📄 form1.frm
字号:
End
Begin VB.CheckBox Check1
BackColor = &H0000FFFF&
Caption = "31"
Height = 285
Index = 30
Left = 1515
TabIndex = 33
Top = 1905
Width = 495
End
Begin VB.CheckBox Check1
BackColor = &H0000FFFF&
Caption = "32"
Height = 285
Index = 31
Left = 2115
TabIndex = 32
Top = 1905
Width = 495
End
Begin VB.CheckBox Check1
BackColor = &H0000FFFF&
Caption = "33"
Height = 285
Index = 32
Left = 2715
TabIndex = 31
Top = 1905
Width = 495
End
Begin VB.CheckBox Check1
BackColor = &H0000FFFF&
Caption = "34"
Height = 285
Index = 33
Left = 3315
TabIndex = 30
Top = 1905
Width = 495
End
Begin VB.CheckBox Check1
BackColor = &H0000FFFF&
Caption = "35"
Height = 285
Index = 34
Left = 3915
TabIndex = 29
Top = 1905
Width = 495
End
Begin VB.CommandButton Command2
Caption = "全选"
Height = 315
Left = 2715
TabIndex = 28
Top = 2385
Width = 855
End
Begin VB.CommandButton Command3
Caption = "反选"
Height = 315
Left = 3555
TabIndex = 27
Top = 2385
Width = 855
End
Begin VB.ComboBox Combo4
Height = 300
Left = 3900
TabIndex = 23
Top = 5220
Width = 2295
End
Begin VB.Frame Frame9
BackColor = &H00C0E0FF&
Caption = "后区待选"
Height = 435
Left = 3900
TabIndex = 26
Top = 4980
Width = 1095
End
Begin VB.ComboBox Combo3
Height = 300
Left = 180
TabIndex = 20
Top = 5220
Width = 3615
End
Begin VB.Frame Frame8
BackColor = &H00C0E0FF&
Caption = "前区待选"
Height = 435
Left = 180
TabIndex = 25
Top = 4980
Width = 1095
End
Begin VB.ListBox List6
Height = 780
Left = 4320
TabIndex = 22
Top = 7440
Width = 1875
End
Begin VB.ListBox List5
Height = 1140
Left = 4500
TabIndex = 21
Top = 7140
Width = 2535
End
Begin VB.ListBox List4
Height = 2040
Left = -120
TabIndex = 19
Top = 7200
Width = 2535
End
Begin VB.ListBox List3
Height = 2040
Left = -180
TabIndex = 18
Top = 6900
Width = 2475
End
Begin VB.ListBox List2
Height = 3660
Left = 4380
TabIndex = 17
Top = 6960
Width = 2535
End
Begin VB.ListBox List1
Height = 1860
Left = 0
TabIndex = 16
Top = 6900
Width = 2535
End
Begin VB.Frame Frame7
BackColor = &H00C0E0FF&
Caption = "产生号码(组)："
Height = 1935
Left = 3900
TabIndex = 8
Top = 2940
Width = 2295
Begin VB.CommandButton Command1
Caption = "数据排列"
Height = 315
Left = 240
TabIndex = 24
Top = 1500
Width = 1815
End
Begin VB.CommandButton Command6
Caption = "随机后区"
Height = 375
Left = 1140
TabIndex = 11
Top = 1020
Width = 915
End
Begin VB.CommandButton Command5
Caption = "随机前区"
Height = 375
Left = 240
TabIndex = 10
Top = 1020
Width = 915
End
Begin VB.TextBox Text3
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 420
Left = 540
TabIndex = 9
Text = "20"
Top = 360
Width = 1155
End
End
Begin VB.Frame Frame3
BackColor = &H00C0E0FF&
Caption = "前区总值"
Height = 915
Left = 180
TabIndex = 0
Top = 2940
Width = 2115
Begin VB.TextBox Text4
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Left = 1200
TabIndex = 13
Text = "195"
Top = 300
Width = 735
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 180
TabIndex = 1
Text = "15"
Top = 300
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 960
TabIndex = 12
Top = 300
Width = 195
End
End
Begin VB.Frame Frame4
BackColor = &H00C0E0FF&
Caption = "后区总值"
Height = 915
Left = 180
TabIndex = 2
Top = 3960
Width = 2115
Begin VB.TextBox Text5
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Left = 1200
TabIndex = 15
Text = "23"
Top = 300
Width = 735
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 180
TabIndex = 3
Text = "3"
Top = 300
Width = 735
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 960
TabIndex = 14
Top = 300
Width = 195
End
End
Begin VB.Frame Frame6
BackColor = &H00C0E0FF&
Caption = "后区奇偶比"
Height = 915
Left = 2280
TabIndex = 6
Top = 3960
Width = 1515
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Form1.frx":0CCA
Left = 180
List = "Form1.frx":0CD7
Style = 2 'Dropdown List
TabIndex = 7
Top = 360
Width = 1155
End
End
Begin VB.Frame Frame5
BackColor = &H00C0E0FF&
Caption = "前区奇偶比"
Height = 915
Left = 2280
TabIndex = 4
Top = 2940
Width = 1515
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":0CEA
Left = 180
List = "Form1.frx":0CFA
Style = 2 'Dropdown List
TabIndex = 5
Top = 360
Width = 1155
End
End
Begin VB.Label Label4
BackColor = &H00C0E0FF&
Caption = "后区号码"
Height = 195
Left = 4815
TabIndex = 78
Top = 180
Width = 840
End
Begin VB.Shape Shape3
Height = 2610
Left = 4710
Top = 255
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00C0E0FF&
Caption = "前区号码"
Height = 210
Left = 240
TabIndex = 64
Top = 195
Width = 945
End
Begin VB.Shape Shape2
BorderColor = &H80000004&
FillColor = &H00FFFFFF&
Height = 2580
Left = 120
Top = 285
Width = 4530
End
Begin VB.Shape Shape1
Height = 2580
Left = 105
Top = 270
Width = 4530
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描 述：明发-超级大乐透缩水选号器 Ver1.0
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim CheckVock As Integer, CheckBock As Integer
Dim OpenVoleID(0 To 34) As Boolean
Dim OpenBoleID(0 To 11) As Boolean
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
CheckVock = CheckVock + 1
OpenVoleID(Index) = True
Else
CheckVock = CheckVock - 1
OpenVoleID(Index) = False
End If
End Sub
Private Sub Check2_Click(Index As Integer)
'CheckBock
If Check2(Index).Value = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -