home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
JS3PAK.ZIP
/
DFINFO.ZIP
/
SAMPLE.ZIP
/
DFSAMPLE.FRM
next >
Wrap
Text File
|
1993-08-08
|
5KB
|
159 lines
VERSION 2.00
Begin Form DFSample
BorderStyle = 1 'Fixed Single
Caption = "DFInfo Sample"
ClientHeight = 2895
ClientLeft = 1350
ClientTop = 1965
ClientWidth = 3135
Height = 3300
Left = 1290
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 3135
Top = 1620
Width = 3255
Begin DiskInfo DiskInfo1
Disk = ""
Left = 2760
Top = 0
End
Begin Frame Frame1
Caption = "Disk Info"
Height = 2535
Left = 240
TabIndex = 0
Top = 120
Width = 2655
Begin DriveListBox Drive1
Height = 315
Left = 720
TabIndex = 2
Top = 360
Width = 1695
End
Begin PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 420
Left = 120
Picture = DFSAMPLE.FRX:0000
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 1
Top = 360
Width = 420
End
Begin Label StartupDrive
Alignment = 1 'Right Justify
Height = 255
Left = 2040
TabIndex = 12
Top = 2160
Width = 375
End
Begin Label Label5
Caption = "Start-Up Drive:"
Height = 255
Left = 120
TabIndex = 11
Top = 2160
Width = 1455
End
Begin Label NumFloppies
Alignment = 1 'Right Justify
Height = 255
Left = 1920
TabIndex = 10
Top = 1920
Width = 495
End
Begin Label Label4
Caption = "NumFloppies:"
Height = 255
Left = 120
TabIndex = 9
Top = 1920
Width = 1575
End
Begin Label VolumeName
Alignment = 1 'Right Justify
Height = 255
Left = 1320
TabIndex = 8
Top = 960
Width = 1095
End
Begin Label Label3
Caption = "Volume:"
Height = 255
Left = 120
TabIndex = 7
Top = 960
Width = 1095
End
Begin Label Network
Alignment = 1 'Right Justify
Height = 255
Left = 1320
TabIndex = 6
Top = 1440
Width = 1095
End
Begin Label Label2
Caption = "Network:"
Height = 255
Left = 120
TabIndex = 5
Top = 1440
Width = 1095
End
Begin Label FreeSpace
Alignment = 1 'Right Justify
Height = 255
Left = 1200
TabIndex = 3
Top = 1200
Width = 1215
End
Begin Label Label1
Caption = "Free Space:"
Height = 255
Left = 120
TabIndex = 4
Top = 1200
Width = 1095
End
End
End
Option Explicit
Sub Drive1_Change ()
DiskInfo1.Disk = Drive1
VolumeName = DiskInfo1.VolumeName
FreeSpace = DiskInfo1.FreeSpace
If DiskInfo1.Network Then
Network = "Network"
Else
Network = "Local"
End If
End Sub
Sub Form_Load ()
DFSample.Left = (Screen.Width - DFSample.Width) / 2
DFSample.Top = (Screen.Height - DFSample.Height) / 2
Call Drive1_Change ' force load of labels
NumFloppies = DiskInfo1.NumFloppies
StartupDrive = DiskInfo1.StartupDrive
End Sub
Sub Form_Unload (Cancel As Integer)
End
End Sub