📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmMain
Caption = "Create ISO9660 images"
ClientHeight = 6240
ClientLeft = 60
ClientTop = 345
ClientWidth = 7890
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6240
ScaleWidth = 7890
StartUpPosition = 3 'Windows-Standard
Begin VB.PictureBox picInfo
BorderStyle = 0 'Kein
Height = 240
Left = 3600
ScaleHeight = 240
ScaleWidth = 4065
TabIndex = 29
TabStop = 0 'False
Top = 825
Width = 4065
Begin VB.Label lblInfo
AutoSize = -1 'True
Caption = "Add files and directories by dropping them!"
Height = 195
Left = 900
TabIndex = 30
Top = 0
Width = 3090
End
End
Begin VB.PictureBox picVD
Height = 4665
Left = 225
ScaleHeight = 4605
ScaleWidth = 7380
TabIndex = 9
TabStop = 0 'False
Top = 1200
Visible = 0 'False
Width = 7440
Begin VB.Frame Frame2
Caption = "Date"
Height = 840
Left = 525
TabIndex = 24
Top = 3525
Width = 5865
Begin VB.CommandButton cmdSetDate
Caption = "now"
Height = 315
Left = 4875
TabIndex = 28
Top = 300
Width = 765
End
Begin MSComCtl2.DTPicker dateCreation
Height = 315
Left = 1650
TabIndex = 26
Top = 300
Width = 1440
_ExtentX = 2540
_ExtentY = 556
_Version = 393216
Format = 20316161
CurrentDate = 38925
End
Begin MSComCtl2.DTPicker timeCreation
Height = 315
Left = 3300
TabIndex = 27
Top = 300
Width = 1440
_ExtentX = 2540
_ExtentY = 556
_Version = 393216
Format = 20316162
CurrentDate = 38925
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Creation:"
Height = 195
Index = 5
Left = 765
TabIndex = 25
Top = 345
Width = 675
End
End
Begin VB.Frame Frame1
Caption = "Descriptor: "
Height = 3015
Left = 525
TabIndex = 10
Top = 375
Width = 5865
Begin VB.TextBox txtVolSetID
Height = 300
Left = 1635
TabIndex = 23
Top = 2475
Width = 3915
End
Begin VB.TextBox txtVolID
Height = 300
Left = 1635
TabIndex = 13
Top = 600
Width = 3915
End
Begin VB.TextBox txtSysID
Height = 300
Left = 1635
TabIndex = 15
Top = 975
Width = 3915
End
Begin VB.TextBox txtAppID
Height = 300
Left = 1635
TabIndex = 17
Top = 1350
Width = 3915
End
Begin VB.TextBox txtPubID
Height = 300
Left = 1635
TabIndex = 19
Top = 1725
Width = 3915
End
Begin VB.TextBox txtPrepID
Height = 300
Left = 1635
TabIndex = 21
Top = 2100
Width = 3915
End
Begin VB.ComboBox cboDescr
Height = 315
ItemData = "frmMain.frx":0442
Left = 1050
List = "frmMain.frx":044C
Style = 2 'Dropdown-Liste
TabIndex = 11
Top = 0
Width = 1815
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Volume Set ID:"
Height = 195
Index = 6
Left = 375
TabIndex = 22
Top = 2520
Width = 1065
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Volume ID:"
Height = 195
Index = 0
Left = 645
TabIndex = 12
Top = 645
Width = 780
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "System ID:"
Height = 195
Index = 1
Left = 630
TabIndex = 14
Top = 1020
Width = 795
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Application ID:"
Height = 195
Index = 2
Left = 390
TabIndex = 16
Top = 1395
Width = 1050
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Publisher ID:"
Height = 195
Index = 3
Left = 525
TabIndex = 18
Top = 1770
Width = 915
End
Begin VB.Label lblDescrID
Alignment = 1 'Rechts
AutoSize = -1 'True
Caption = "Data Preparer ID:"
Height = 195
Index = 4
Left = 150
TabIndex = 20
Top = 2145
Width = 1290
End
End
End
Begin prjISOImageWriter.Splitter spltMain
Height = 3690
Left = 2100
TabIndex = 5
TabStop = 0 'False
Top = 1425
Width = 4890
_ExtentX = 8625
_ExtentY = 6509
SplitterPos = 1430
RatioFromTop = 0,3
Child1 = "tvwDirs"
Child2 = "lvwFiles"
Begin prjISOImageWriter.ucTreeView tvwDirs
Height = 3690
Left = 0
TabIndex = 7
Top = 0
Width = 1430
_ExtentX = 2514
_ExtentY = 6509
End
Begin MSComctlLib.ListView lvwFiles
Height = 3720
Left = 1490
TabIndex = 8
Top = -15
Width = 3415
_ExtentX = 6033
_ExtentY = 6562
View = 3
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
OLEDragMode = 1
OLEDropMode = 1
_Version = 393217
Icons = "imgs"
SmallIcons = "imgs"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
OLEDragMode = 1
OLEDropMode = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Filename"
Object.Width = 5716
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Size"
Object.Width = 2540
EndProperty
End
End
Begin MSComDlg.CommonDialog dlg
Left = 7425
Top = 1500
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "ISO Images (*.iso)|*.iso"
Flags = 2
End
Begin MSComctlLib.ImageList imgs
Left = 7275
Top = 900
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0461
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":09FB
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox picHeader
Align = 1 'Oben ausrichten
BackColor = &H005B9CBB&
BorderStyle = 0 'Kein
Height = 765
Left = 0
ScaleHeight = 765
ScaleWidth = 7890
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 7890
Begin prjISOImageWriter.isButton cmdMenu
Height = 590
Left = 225
TabIndex = 1
Top = 75
Width = 680
_ExtentX = 1191
_ExtentY = 1032
Icon = "frmMain.frx":0F95
Style = 4
IconSize = 32
IconAlign = 0
iNonThemeStyle = 4
ShowFocus = -1 'True
USeCustomColors = -1 'True
BackColor = 6003899
HighlightColor = 2271457
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaskColor = 0
RoundedBordersByTheme= 0 'False
End
Begin VB.Label lblHeader2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Level 2 + Joliet"
ForeColor = &H00FFFFFF&
Height = 195
Left = 1200
TabIndex = 3
Top = 450
Width = 1095
End
Begin VB.Line lnDiv2
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 7875
Y1 = 750
Y2 = 750
End
Begin VB.Line lnDiv
BorderColor = &H00004080&
X1 = 0
X2 = 7875
Y1 = 735
Y2 = 735
End
Begin VB.Label lblHeader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ISO9660 Image Writer"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 1125
TabIndex = 2
Top = 75
Width = 3615
End
End
Begin MSComctlLib.StatusBar sbar
Align = 2 'Unten ausrichten
Height = 255
Left = 0
TabIndex = 4
Top = 5985
Width = 7890
_ExtentX = 13917
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7832
MinWidth = 7832
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -