home *** CD-ROM | disk | FTP | other *** search
/ Collection of Internet / Collection of Internet.iso / winprogs / vidvue / vvudde.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-25  |  2.7 KB  |  92 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "DDE to VIDVUE"
  5.    ClientHeight    =   900
  6.    ClientLeft      =   1965
  7.    ClientTop       =   1800
  8.    ClientWidth     =   2370
  9.    Height          =   1335
  10.    Left            =   1890
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   900
  13.    ScaleWidth      =   2370
  14.    Top             =   1440
  15.    Width           =   2520
  16.    Begin CommandButton Quit 
  17.       Caption         =   "Quit"
  18.       Height          =   405
  19.       Left            =   1080
  20.       TabIndex        =   2
  21.       Top             =   66
  22.       Width           =   945
  23.    End
  24.    Begin CommandButton View 
  25.       Caption         =   "View"
  26.       Height          =   405
  27.       Left            =   66
  28.       TabIndex        =   1
  29.       Top             =   66
  30.       Width           =   945
  31.    End
  32.    Begin CommonDialog CMDialog1 
  33.       Left            =   1551
  34.       Top             =   462
  35.    End
  36.    Begin TextBox Text1 
  37.       Height          =   285
  38.       Left            =   33
  39.       LinkTimeout     =   500
  40.       TabIndex        =   0
  41.       Text            =   "ABCDEFG"
  42.       Top             =   561
  43.       Visible         =   0   'False
  44.       Width           =   1463
  45.    End
  46. Sub Form_LinkExecute (CmdStr As String, Cancel As Integer)
  47. End Sub
  48. Sub Quit_Click ()
  49. End Sub
  50. Sub View_Click ()
  51. On Error GoTo LoadErr
  52. CMDialog1.CancelError = True
  53. CMDialog1.Filename = ""
  54. CMDialog1.DefaultExt = "GIF"
  55.      f$ = "GIF (Compuserve)|*.GIF|"
  56. f$ = f$ + "JPG (JPEG/JFIF)|*.JPG|"
  57. f$ = f$ + "PCX (Zsoft)|*.PCX|"
  58. f$ = f$ + "TIF(Aldus TIFF)|*.TIF|"
  59. f$ = f$ + "PCD (Kodak Photo-CD)|*.PCD|"
  60. f$ = f$ + "BMP (Windows)|*.BMP|"
  61. f$ = f$ + "WMF (Windows MetaFile)|*.WMF|"
  62. f$ = f$ + "WAV (WAVform audio)|*.WAV|"
  63. f$ = f$ + "MID (MIDI music)|*.MID|"
  64. f$ = f$ + "AVI (Video for Windows)|*.AVI|"
  65. f$ = f$ + "FLI (Autodesk FLIck)|*.FLI|"
  66. f$ = f$ + "FLC (Autodesk FLiCk)|*.FLC|"
  67. CMDialog1.Filter = f$
  68. CMDialog1.Flags = &H200 Or &H4 Or &H2
  69. CMDialog1.Action = 1
  70. form1!Text1.Text = CMDialog1.Filename
  71. On Error GoTo DDErr
  72. form1!Text1.LinkTopic = "VIDVUE|View"
  73. form1!Text1.LinkItem = "DDETXT"
  74. form1!Text1.LinkMode = 2
  75. form1!Text1.LinkPoke
  76. form1!Text1.LinkMode = 0
  77. DDEresume:
  78. Exit Sub
  79. DDErr:  If Err = 282 Then
  80.             MsgBox "VIDVUE may not be running.  Please run VIDVUE first.", 16, Error$(Err)
  81.         Else
  82.             MsgBox "ERROR:" + Str$(Err) + " " + Error$(Err), 0, "DDE ERROR"
  83.         End If
  84.         Resume DDEresume
  85. LoadErrResume:
  86. Exit Sub
  87. LoadErr:
  88.         If Err = 32755 Then Resume LoadErrResume
  89.         MsgBox Error$(Err), 0, "LOAD ERROR"
  90.         Resume LoadErrResume
  91. End Sub
  92.