📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmMain
Caption = "足彩大王"
ClientHeight = 10380
ClientLeft = 135
ClientTop = 615
ClientWidth = 15240
LinkTopic = "Form1"
ScaleHeight = 10380
ScaleWidth = 15240
Begin VB.CommandButton cmdReadFrom
Caption = "读取"
Height = 375
Left = 4680
TabIndex = 107
Top = 6000
Width = 975
End
Begin VB.ComboBox cmbGroupSet
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5760
TabIndex = 105
Text = "全部"
Top = 9720
Width = 1095
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "退出系统"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13440
TabIndex = 103
Top = 9720
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "打印清单"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 12240
TabIndex = 102
Top = 9720
Width = 1095
End
Begin VB.CommandButton cmdSingleLost
Caption = "单注注水组合"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10800
TabIndex = 101
Top = 9720
Width = 1335
End
Begin VB.CommandButton cmdTrueGroup
Caption = "再次组合"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9600
TabIndex = 100
Top = 9720
Width = 1095
End
Begin VB.CommandButton cmdFirst
Caption = "首轮组合"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8160
TabIndex = 99
Top = 9720
Width = 1335
End
Begin VB.CommandButton cmdGroupClear
Caption = "初始化组合"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6960
TabIndex = 98
Top = 9720
Width = 1095
End
Begin VB.CommandButton cmdDo
Caption = "投注"
Height = 375
Left = 5760
TabIndex = 81
Top = 5400
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "清空投注结果"
Height = 375
Left = 6960
TabIndex = 80
Top = 5400
Width = 1695
End
Begin VB.Frame Frame1
BackColor = &H8000000B&
Caption = "缩水操作"
Height = 3735
Left = 120
TabIndex = 78
Top = 6480
Width = 5535
Begin VB.CommandButton cmdZuPing
Caption = "组内平过滤"
Height = 375
Left = 4080
TabIndex = 110
Top = 2640
Width = 1335
End
Begin VB.CommandButton cmdZuFu
Caption = "组内负过滤"
Height = 375
Left = 4080
TabIndex = 109
Top = 2160
Width = 1335
End
Begin VB.CommandButton cmdZuSheng
Caption = "组内胜过滤"
Height = 375
Left = 4080
TabIndex = 108
Top = 1680
Width = 1335
End
Begin VB.TextBox txtZj1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 106
Text = "8"
Top = 720
Width = 615
End
Begin VB.TextBox txtZCPing1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 97
Text = "2"
Top = 2640
Width = 615
End
Begin VB.TextBox txtZCPing2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 96
Text = "6"
Top = 2640
Width = 615
End
Begin VB.CommandButton cmdDelZcPing
Caption = "主场平过滤"
Height = 375
Left = 240
TabIndex = 94
Top = 2640
Width = 1215
End
Begin VB.TextBox txtZCFu1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 93
Text = "2"
Top = 2160
Width = 615
End
Begin VB.TextBox txtZCFu2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 92
Text = "5"
Top = 2160
Width = 615
End
Begin VB.CommandButton cmdDelZcfu
Caption = "主场负过滤"
Height = 375
Left = 240
TabIndex = 90
Top = 2160
Width = 1215
End
Begin VB.TextBox txtZcSheng1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 89
Text = "4"
Top = 1680
Width = 615
End
Begin VB.TextBox txtZcSheng2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 88
Text = "8"
Top = 1680
Width = 615
End
Begin VB.CommandButton cmdZcDel
Caption = "主场胜过滤"
Height = 375
Left = 240
TabIndex = 85
Top = 1680
Width = 1215
End
Begin VB.TextBox txtZj2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 84
Text = "11"
Top = 720
Width = 615
End
Begin VB.CommandButton cmdDelZj
Caption = "将专家的预测去掉"
Height = 375
Left = 240
TabIndex = 79
Top = 720
Width = 1935
End
Begin VB.Label Label12
Caption = "注意：总场次为13，设定缩水范围时不要互相矛盾，否则危险！"
ForeColor = &H8000000D&
Height = 255
Left = 240
TabIndex = 112
Top = 3360
Width = 5175
End
Begin VB.Label Label10
Caption = "<= 主场平<="
Height = 255
Left = 2280
TabIndex = 95
Top = 2760
Width = 1095
End
Begin VB.Label Label9
Caption = "<= 主场负<="
Height = 255
Left = 2280
TabIndex = 91
Top = 2160
Width = 1095
End
Begin VB.Label Label8
Caption = "<= 主场胜<="
Height = 255
Left = 2280
TabIndex = 87
Top = 1680
Width = 1095
End
Begin VB.Label Label7
BackColor = &H8000000A&
Caption = "请输入你认为的主场胜、平、负的场次范围，分别过滤"
ForeColor = &H000000C0&
Height = 255
Left = 240
TabIndex = 86
Top = 1320
Width = 5055
End
Begin VB.Label Label6
Caption = "<= 专家对 <="
Height = 255
Left = 3240
TabIndex = 83
Top = 840
Width = 1215
End
Begin VB.Label Label4
BackColor = &H8000000A&
Caption = "专家预测的结果在上面输入，请输入专家可信度！"
ForeColor = &H000000C0&
Height = 255
Left = 360
TabIndex = 82
Top = 360
Width = 4695
End
End
Begin VB.CommandButton cmdSaveTo
Caption = "保存到"
Height = 375
Left = 1200
TabIndex = 77
Top = 6000
Width = 1095
End
Begin VB.ComboBox cmbList
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2400
TabIndex = 76
Text = "Combo1"
Top = 6000
Width = 2295
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -