Category : Files from Magazines
Archive   : IVB938.ZIP
Filename : FRMSETDI.FRM

 
Output of file : FRMSETDI.FRM contained in archive : IVB938.ZIP
VERSION 2.00
Begin Form frmSetDir
Caption = "Choose Directory"
ClientHeight = 3240
ClientLeft = 6528
ClientTop = 1536
ClientWidth = 5256
Height = 3660
Left = 6480
LinkTopic = "Form2"
ScaleHeight = 3240
ScaleWidth = 5256
Top = 1164
Width = 5352
Begin CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 330
Left = 3570
TabIndex = 5
Top = 540
Width = 1470
End
Begin CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 330
Left = 3570
TabIndex = 4
Top = 135
Width = 1470
End
Begin DirListBox Dir1
Height = 1752
Left = 132
TabIndex = 1
Top = 612
Width = 3180
End
Begin DriveListBox Drive1
Height = 315
Left = 135
TabIndex = 3
Top = 2835
Width = 3180
End
Begin Label lblDrive
Caption = "Dri&ves:"
Height = 225
Left = 135
TabIndex = 2
Top = 2535
Width = 660
End
Begin Label lblDirName
Height = 255
Left = 135
TabIndex = 6
Top = 330
Width = 3210
End
Begin Label lblDir
Caption = "&Directories"
Height = 252
Left = 132
TabIndex = 0
Top = 72
Width = 1212
End
End
Option Explicit

Dim OrigName$
Dim I%

Const KEY_SPACE = &H20
Const KEY_INSERT = &H2D

Sub cmdCancel_Click ()
lblDirName.Caption = OrigName$
For I% = -3 To Dir1.ListCount - 1
If Dir1.List(I%) = OrigName$ Then
Dir1.ListIndex = I%
Exit For
End If
Next I%
Dir1.Path = OrigName$
frmSetDir.Hide
End Sub

Sub cmdOK_Click ()
frmSetDir.Hide
End Sub

Sub Dir1_Change ()
UpdateDirName
End Sub

Sub Dir1_Keyup (KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_SPACE Or KeyCode = KEY_INSERT Then
Dir1.Path = Dir1.List(Dir1.ListIndex)
End If
UpdateDirName
End Sub

Sub Dir1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
UpdateDirName
End Sub

Sub Drive1_Change ()
Dir1.Path = Drive1.Drive ' When Drive changes, the directory path
UpdateDirName
End Sub

Sub Form_Activate ()
Dir1.Path = lblDirName.Caption
OrigName$ = lblDirName.Caption
End Sub

Sub Form_Load ()
Dir1.Path = Drive1.Drive
UpdateDirName
End Sub

Sub UpdateDirName ()
lblDirName.Caption = Dir1.List(Dir1.ListIndex)
End Sub



  3 Responses to “Category : Files from Magazines
Archive   : IVB938.ZIP
Filename : FRMSETDI.FRM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/