home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1995 May / pc_shareware_6.zip / VIDWUE.RAR / VVUDDE.FRM < prev    next >
Text File  |  1994-09-02  |  3KB  |  104 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. End
  47.  
  48. Sub Form_LinkExecute (CmdStr As String, Cancel As Integer)
  49. Beep
  50. End Sub
  51.  
  52. Sub Quit_Click ()
  53. End
  54. End Sub
  55.  
  56. Sub View_Click ()
  57. On Error GoTo LoadErr
  58. CMDialog1.CancelError = True
  59. CMDialog1.Filename = ""
  60. CMDialog1.DefaultExt = "GIF"
  61.      f$ = "GIF (Compuserve)|*.GIF|"
  62. f$ = f$ + "JPG (JPEG/JFIF)|*.JPG|"
  63. f$ = f$ + "PCX (Zsoft)|*.PCX|"
  64. f$ = f$ + "TIF(Aldus TIFF)|*.TIF|"
  65. f$ = f$ + "PCD (Kodak Photo-CD)|*.PCD|"
  66. f$ = f$ + "BMP (Windows)|*.BMP|"
  67. f$ = f$ + "WMF (Windows MetaFile)|*.WMF|"
  68. f$ = f$ + "WAV (WAVform audio)|*.WAV|"
  69. f$ = f$ + "MID (MIDI music)|*.MID|"
  70. f$ = f$ + "AVI (Video for Windows)|*.AVI|"
  71. f$ = f$ + "FLI (Autodesk FLIck)|*.FLI|"
  72. f$ = f$ + "FLC (Autodesk FLiCk)|*.FLC|"
  73. CMDialog1.Filter = f$
  74. CMDialog1.Flags = &H200 Or &H4 Or &H2
  75. CMDialog1.Action = 1
  76.  
  77. form1!Text1.Text = CMDialog1.Filename
  78.  
  79. On Error GoTo DDErr
  80. form1!Text1.LinkTopic = "VIDVUE|View"
  81. form1!Text1.LinkItem = "DDETXT"
  82. form1!Text1.LinkMode = 2
  83. form1!Text1.LinkPoke
  84. form1!Text1.LinkMode = 0
  85. DDEresume:
  86. Exit Sub
  87.  
  88. DDErr:  If Err = 282 Then
  89.             MsgBox "VIDVUE may not be running.  Please run VIDVUE first.", 16, Error$(Err)
  90.         Else
  91.             MsgBox "ERROR:" + Str$(Err) + " " + Error$(Err), 0, "DDE ERROR"
  92.         End If
  93.         Resume DDEresume
  94.  
  95. LoadErrResume:
  96. Exit Sub
  97.  
  98. LoadErr:
  99.         If Err = 32755 Then Resume LoadErrResume
  100.         MsgBox Error$(Err), 0, "LOAD ERROR"
  101.         Resume LoadErrResume
  102. End Sub
  103.  
  104.