Category : Recently Uploaded Files
Archive   : VIDVUE30.ZIP
Filename : VVUDDE.FRM
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
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/