📄 dskspace.frm
字号:
VERSION 5.00
Begin VB.Form frmDskSpace
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "Disk Space"
ClientHeight = 6030
ClientLeft = 870
ClientTop = 1530
ClientWidth = 8085
ClipControls = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "dskspace.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 8085
Begin VB.Frame Frame1
Height = 1215
Left = 0
TabIndex = 11
Top = 4920
Width = 8175
Begin VB.CommandButton cmdChgDrv
Caption = "Change Drive"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2760
MaskColor = &H00000000&
TabIndex = 14
Top = 360
Width = 1560
End
Begin VB.CommandButton cmdInstall
Caption = "Install"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
MaskColor = &H00000000&
TabIndex = 13
Top = 360
Width = 1560
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "Exit Setup"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 6375
MaskColor = &H00000000&
TabIndex = 12
Top = 360
Width = 1560
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 975
Left = 0
Picture = "dskspace.frx":0442
ScaleHeight = 945
ScaleWidth = 8145
TabIndex = 9
Top = 0
Width = 8175
Begin VB.Label lblapp
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 330
Left = 960
TabIndex = 10
Top = 240
Width = 915
End
End
Begin VB.Shape shpHeading
BorderColor = &H00000000&
Height = 840
Left = 675
Top = 2070
Width = 6900
End
Begin VB.Label lblDisk
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 1320
TabIndex = 1
Top = 2985
Visible = 0 'False
Width = 510
End
Begin VB.Label lblAvail
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 3420
TabIndex = 2
Top = 2985
Visible = 0 'False
Width = 1260
End
Begin VB.Label lblNeed
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 4965
TabIndex = 3
Top = 2985
Visible = 0 'False
Width = 1260
End
Begin VB.Label lblReq
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 1890
TabIndex = 4
Top = 2985
Visible = 0 'False
Width = 1260
End
Begin VB.Shape shpSpace
BorderColor = &H00000000&
Height = 390
Left = 675
Top = 2910
Width = 6900
End
Begin VB.Label lblDiskH
AutoSize = -1 'True
Caption = "Drive"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1320
TabIndex = 5
Top = 2685
Width = 375
End
Begin VB.Label lblAvailH
Alignment = 1 'Right Justify
Caption = "Space Available"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3435
TabIndex = 8
Top = 2490
Width = 1260
WordWrap = -1 'True
End
Begin VB.Label lblNeedH
Alignment = 1 'Right Justify
Caption = "Space Needed"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4965
TabIndex = 7
Top = 2490
Width = 1260
WordWrap = -1 'True
End
Begin VB.Label lblReqH
Alignment = 1 'Right Justify
Caption = "Space Required"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1890
TabIndex = 6
Top = 2490
Width = 1260
WordWrap = -1 'True
End
Begin VB.Label lblNoSpace
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "There is not enough free disk space on one or more drives."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 315
TabIndex = 0
Top = 1230
Width = 4170
End
End
Attribute VB_Name = "frmDskSpace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Compare Text
'
' Form/Module Constants
'
Const strFMT$ = "######0 K"
Private Sub cmdChgDrv_Click()
gfRetVal = gintRET_CANCEL
Unload Me
End Sub
Private Sub cmdExit_Click()
ExitSetup Me, gintRET_EXIT
End Sub
Private Sub cmdInstall_Click()
gfRetVal = gintRET_CONT
Unload Me
End Sub
Private Sub Form_Load()
Const ONE_K& = 1024
lblapp.Caption = gstrAppName + " Installation wizard"
Dim intIdx As Integer
Dim lAvail As Long
Dim lReq As Long
Dim intHeight As Integer
Dim intTop As Integer
SetFormFont Me
cmdExit.Caption = ResolveResString(resBTNEXIT)
cmdInstall.Caption = ResolveResString(resBTNINSTALLNOW)
cmdChgDrv.Caption = ResolveResString(resBTNCHGDRV)
lblDiskH.Caption = ResolveResString(resLBLDRIVE)
lblAvailH.Caption = ResolveResString(resLBLAVAIL)
lblNeedH.Caption = ResolveResString(resLBLNEEDED)
lblReqH.Caption = ResolveResString(resLBLREQUIRED)
lblNoSpace.Caption = ResolveResString(resLBLNOSPACE)
frmDskSpace.Caption = gstrTitle
intHeight = lblDisk(0).Height * 1.6
intTop = lblDisk(0).Top
'
'borders are for design mode only...
'
lblDisk(0).BorderStyle = 0
lblReq(0).BorderStyle = 0
lblAvail(0).BorderStyle = 0
lblNeed(0).BorderStyle = 0
For intIdx = 1 To Len(gstrDrivesUsed)
Load lblDisk(intIdx)
Load lblReq(intIdx)
Load lblAvail(intIdx)
Load lblNeed(intIdx)
lAvail = gsDiskSpace(intIdx).lAvail
lReq = gsDiskSpace(intIdx).lReq
lblDisk(intIdx).Caption = Mid$(gstrDrivesUsed, intIdx, 1) & gstrCOLON
lblReq(intIdx).Caption = Format$(lReq / ONE_K, strFMT)
lblAvail(intIdx).Caption = Format$(lAvail / ONE_K, strFMT)
lblNeed(intIdx).Caption = Format$(IIf(lReq > lAvail, lReq - lAvail, 0) / ONE_K, strFMT)
lblDisk(intIdx).Top = intTop
lblReq(intIdx).Top = intTop
lblAvail(intIdx).Top = intTop
lblNeed(intIdx).Top = intTop
intTop = intTop + intHeight
lblDisk(intIdx).Visible = True
lblReq(intIdx).Visible = True
lblAvail(intIdx).Visible = True
lblNeed(intIdx).Visible = True
Next
shpSpace.Height = intHeight * (intIdx - 1)
cmdChgDrv.Top = shpSpace.Top + shpSpace.Height + cmdChgDrv.Height
cmdInstall.Top = cmdChgDrv.Top
cmdExit.Top = cmdChgDrv.Top
frmDskSpace.Height = cmdChgDrv.Top + cmdChgDrv.Height * 2.5
EtchedLine Me, 100, cmdChgDrv.Top - cmdChgDrv.Height * 0.5, Me.ScaleWidth - 200
CenterForm Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
ExitSetup Me, gintRET_EXIT
Cancel = 1
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -