Category : Recently Uploaded Files
Archive   : VIDVUE30.ZIP
Filename : VVUDDE.FRM

VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "DDE to VIDVUE"
ClientHeight = 900
ClientLeft = 1965
ClientTop = 1800
ClientWidth = 2370
Height = 1335
Left = 1890
LinkTopic = "Form1"
ScaleHeight = 900
ScaleWidth = 2370
Top = 1440
Width = 2520
Begin CommandButton Quit
Caption = "Quit"
Height = 405
Left = 1080
TabIndex = 2
Top = 66
Width = 945
End
Begin CommandButton View
Caption = "View"
Height = 405
Left = 66
TabIndex = 1
Top = 66
Width = 945
End
Begin CommonDialog CMDialog1
Left = 1551
Top = 462
End
Begin TextBox Text1
Height = 285
Left = 33
LinkTimeout = 500
TabIndex = 0
Text = "ABCDEFG"
Top = 561
Visible = 0 'False
Width = 1463
End
End

Sub Form_LinkExecute (CmdStr As String, Cancel As Integer)
Beep
End Sub

Sub Quit_Click ()
End
End Sub

Sub View_Click ()
On Error GoTo LoadErr
CMDialog1.CancelError = True
CMDialog1.Filename = ""
CMDialog1.DefaultExt = "GIF"
f$ = "GIF (Compuserve)|*.GIF|"
f$ = f$ + "JPG (JPEG/JFIF)|*.JPG|"
f$ = f$ + "PCX (Zsoft)|*.PCX|"
f$ = f$ + "TIF(Aldus TIFF)|*.TIF|"
f$ = f$ + "PCD (Kodak Photo-CD)|*.PCD|"
f$ = f$ + "BMP (Windows)|*.BMP|"
f$ = f$ + "WMF (Windows MetaFile)|*.WMF|"
f$ = f$ + "WAV (WAVform audio)|*.WAV|"
f$ = f$ + "MID (MIDI music)|*.MID|"
f$ = f$ + "AVI (Video for Windows)|*.AVI|"
f$ = f$ + "FLI (Autodesk FLIck)|*.FLI|"
f$ = f$ + "FLC (Autodesk FLiCk)|*.FLC|"
CMDialog1.Filter = f$
CMDialog1.Flags = &H200 Or &H4 Or &H2
CMDialog1.Action = 1

form1!Text1.Text = CMDialog1.Filename

On Error GoTo DDErr
form1!Text1.LinkTopic = "VIDVUE|View"
form1!Text1.LinkItem = "DDETXT"
form1!Text1.LinkMode = 2
form1!Text1.LinkPoke
form1!Text1.LinkMode = 0
DDEresume:
Exit Sub

DDErr: If Err = 282 Then
MsgBox "VIDVUE may not be running. Please run VIDVUE first.", 16, Error$(Err)
Else
MsgBox "ERROR:" + Str$(Err) + " " + Error$(Err), 0, "DDE ERROR"
End If
Resume DDEresume

LoadErrResume:
Exit Sub

LoadErr:
If Err = 32755 Then Resume LoadErrResume
MsgBox Error$(Err), 0, "LOAD ERROR"
Resume LoadErrResume
End Sub