📄 form2.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "Select Numbers"
ClientHeight = 3075
ClientLeft = 3195
ClientTop = 3195
ClientWidth = 5370
Icon = "Form2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3075
ScaleWidth = 5370
Begin VB.CommandButton Command6
Caption = "&Clear List"
Height = 375
Left = 2640
TabIndex = 40
Top = 2520
Width = 975
End
Begin VB.CommandButton Command1
Caption = "E&xport to Main List"
Height = 375
Left = 3720
TabIndex = 2
Top = 2520
Width = 1455
End
Begin VB.ListBox List1
Height = 1815
Left = 3480
TabIndex = 1
Top = 480
Width = 1695
End
Begin TabDlg.SSTab s
Height = 3015
Left = 0
TabIndex = 0
Top = 0
Width = 5325
_ExtentX = 9393
_ExtentY = 5318
_Version = 393216
Tabs = 4
Tab = 1
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "&Random"
TabPicture(0) = "Form2.frx":08CA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Command4"
Tab(0).Control(1)= "Text9"
Tab(0).Control(2)= "Option3"
Tab(0).Control(3)= "Option2"
Tab(0).Control(4)= "Option1"
Tab(0).Control(5)= "Text8"
Tab(0).Control(6)= "Label12"
Tab(0).Control(7)= "Label11"
Tab(0).Control(8)= "Label8"
Tab(0).ControlCount= 9
TabCaption(1) = "&Squencial"
TabPicture(1) = "Form2.frx":08E6
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label3"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Text1"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Text2"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Command2"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
TabCaption(2) = "&Input"
TabPicture(2) = "Form2.frx":0902
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label4"
Tab(2).Control(1)= "Label5"
Tab(2).Control(2)= "Label6"
Tab(2).Control(3)= "Label7"
Tab(2).Control(4)= "Text3"
Tab(2).Control(5)= "Text4"
Tab(2).Control(6)= "Text5"
Tab(2).Control(7)= "Text6"
Tab(2).Control(8)= "Command3"
Tab(2).Control(9)= "List2"
Tab(2).Control(10)= "List3"
Tab(2).Control(11)= "List4"
Tab(2).Control(12)= "List5"
Tab(2).ControlCount= 13
TabCaption(3) = "&Combinations"
TabPicture(3) = "Form2.frx":091E
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label9"
Tab(3).Control(1)= "Label10"
Tab(3).Control(2)= "Label13"
Tab(3).Control(3)= "Label14"
Tab(3).Control(4)= "Label15"
Tab(3).Control(5)= "Label16"
Tab(3).Control(6)= "Label17"
Tab(3).Control(7)= "Label18"
Tab(3).Control(8)= "Text7"
Tab(3).Control(9)= "Text10"
Tab(3).Control(10)= "Text11"
Tab(3).Control(11)= "Text12"
Tab(3).Control(12)= "Command5"
Tab(3).ControlCount= 13
Begin VB.ListBox List5
Height = 1815
Left = -71520
TabIndex = 44
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.ListBox List4
Height = 1815
Left = -71520
TabIndex = 43
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.ListBox List3
Height = 1815
Left = -71520
TabIndex = 42
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.ListBox List2
Height = 1815
Left = -71520
TabIndex = 41
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.CommandButton Command5
Caption = "Add"
Height = 375
Left = -73440
TabIndex = 36
Top = 2520
Width = 975
End
Begin VB.TextBox Text12
Height = 375
Left = -72240
TabIndex = 31
Top = 1320
Width = 615
End
Begin VB.TextBox Text11
Height = 375
Left = -73200
TabIndex = 30
Top = 1320
Width = 855
End
Begin VB.TextBox Text10
Height = 375
Left = -74160
TabIndex = 29
Top = 1320
Width = 855
End
Begin VB.TextBox Text7
Height = 375
Left = -74880
TabIndex = 28
Top = 1320
Width = 615
End
Begin VB.CommandButton Command4
Caption = "Add"
Height = 375
Left = -73440
TabIndex = 26
Top = 2520
Width = 975
End
Begin VB.TextBox Text9
Height = 375
Left = -73440
Locked = -1 'True
TabIndex = 25
Text = "1000"
Top = 1800
Width = 1335
End
Begin VB.OptionButton Option3
Caption = "Eight"
Height = 255
Left = -74760
TabIndex = 24
Top = 2280
Width = 1095
End
Begin VB.OptionButton Option2
Caption = "Six "
Height = 255
Left = -74760
TabIndex = 23
Top = 1920
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "Four"
Height = 255
Left = -74760
TabIndex = 22
Top = 1560
Value = -1 'True
Width = 1095
End
Begin VB.TextBox Text8
Height = 285
Left = -74760
TabIndex = 20
Text = "1000"
Top = 840
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Add"
Height = 375
Left = -73440
TabIndex = 13
Top = 2520
Width = 975
End
Begin VB.TextBox Text6
Height = 375
Left = -73560
TabIndex = 12
Top = 1920
Width = 1695
End
Begin VB.TextBox Text5
Height = 375
Left = -73560
TabIndex = 11
Top = 1440
Width = 1695
End
Begin VB.TextBox Text4
Height = 375
Left = -73560
TabIndex = 10
Top = 960
Width = 1695
End
Begin VB.TextBox Text3
Height = 375
Left = -73560
TabIndex = 9
Top = 480
Width = 1695
End
Begin VB.CommandButton Command2
Caption = "Add"
Height = 375
Left = 1560
TabIndex = 5
Top = 2520
Width = 975
End
Begin VB.TextBox Text2
Height = 375
Left = 1560
TabIndex = 4
Text = "1000"
Top = 1560
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Left = 1560
TabIndex = 3
Text = "1"
Top = 1080
Width = 1215
End
Begin VB.Label Label18
Caption = ")"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = -72600
TabIndex = 39
Top = 840
Width = 135
End
Begin VB.Label Label17
Caption = "("
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = -74160
TabIndex = 38
Top = 840
Width = 135
End
Begin VB.Label Label16
Caption = "Example:- ABC-5930-XYZ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74760
TabIndex = 37
Top = 1920
Width = 2895
End
Begin VB.Label Label15
Caption = "End With"
ForeColor = &H00FF0000&
Height = 375
Left = -72240
TabIndex = 35
Top = 840
Width = 615
End
Begin VB.Label Label14
Caption = "To"
ForeColor = &H00FF0000&
Height = 255
Left = -72960
TabIndex = 34
Top = 840
Width = 615
End
Begin VB.Label Label13
Caption = "Numbers From"
ForeColor = &H00FF0000&
Height = 375
Left = -74040
TabIndex = 33
Top = 840
Width = 735
End
Begin VB.Label Label10
Caption = "Start With"
ForeColor = &H00FF0000&
Height = 375
Left = -74880
TabIndex = 32
Top = 840
Width = 615
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -