📄 nihongdeng5.frm
字号:
Height = 180
Index = 11
Left = 3840
TabIndex = 19
Top = 960
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "次"
Height = 180
Index = 10
Left = 3840
TabIndex = 18
Top = 600
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "秒"
Height = 180
Index = 9
Left = 3840
TabIndex = 17
Top = 240
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "中开位置："
Height = 180
Index = 8
Left = 120
TabIndex = 16
Top = 2760
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "左右根数："
Height = 180
Index = 7
Left = 120
TabIndex = 15
Top = 2400
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "碰碰根数："
Height = 180
Index = 6
Left = 120
TabIndex = 14
Top = 2040
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "压罗根数："
Height = 180
Index = 5
Left = 120
TabIndex = 13
Top = 1680
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "流水比例："
Height = 180
Index = 4
Left = 120
TabIndex = 12
Top = 1320
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "停止时间："
Height = 180
Index = 3
Left = 120
TabIndex = 11
Top = 960
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "循环次数："
Height = 180
Index = 2
Left = 120
TabIndex = 10
Top = 600
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "扫描速度："
Height = 180
Index = 1
Left = 120
TabIndex = 9
Top = 240
Width = 900
End
End
Begin VB.Frame Frame1
Caption = "待选花样"
Height = 3495
Index = 1
Left = 2400
TabIndex = 4
Top = 120
Width = 2055
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H80000000&
Height = 2415
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Top = 960
Width = 1815
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "nihongdeng5.frx":0024
Left = 120
List = "nihongdeng5.frx":0026
Style = 2 'Dropdown List
TabIndex = 5
Top = 240
Width = 1815
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "注释"
Height = 180
Index = 0
Left = 720
TabIndex = 7
Top = 720
Width = 360
End
End
Begin VB.Frame Frame1
Caption = "已选花样"
Height = 3495
Index = 0
Left = 120
TabIndex = 2
Top = 120
Width = 2055
Begin VB.ListBox List1
Height = 3120
ItemData = "nihongdeng5.frx":0028
Left = 120
List = "nihongdeng5.frx":002A
TabIndex = 3
Top = 240
Width = 1815
End
End
Begin VB.CommandButton Command3
Caption = "确定"
Height = 375
Left = 6000
TabIndex = 1
Top = 3840
Width = 735
End
Begin VB.CommandButton Command1
Caption = "预览"
Height = 375
Left = 4920
TabIndex = 0
Top = 3840
Width = 735
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command6_Click()
End Sub
Private Sub Combo1_Click()
Call DgHyShuoMing(Form5.Combo1.Text)
Form5.Label1(0).Caption = "待选花样注释"
End Sub
Private Sub Combo2_Click(Index As Integer)
If Form5.List1.SelCount <> 0 Then
Form5.Text3(Index).Text = Form5.Combo2(Index).Text
HuaYangCs(List1.ListIndex, Index) = Form5.Text3(Index).Text
End If
End Sub
Private Sub Command1_Click()
PlayStyle = False
OutEnableFlag = False
Call DgHuaYangPlay(List1.ListIndex, 0)
End Sub
Private Sub Command3_Click()
Form1.Timer1.Enabled = False
Form1.Timer2.Enabled = False
For i = 0 To NowLs - 1
Form1.Shape1(i).Visible = True
Next i
Unload Form5
Form1.Enabled = True
Form1.SetFocus
End Sub
Private Sub Command4_Click()
Dim NowZhongKai As Integer
If (Form5.List1.SelCount <> 0) And (Form5.Combo1.Text <> Empty) Then
Form5.List1.List(List1.ListIndex) = "花样" & Format(List1.ListIndex + 1, "000") & "：" & Form5.Combo1.Text
Form5.Frame1(2).Enabled = True
Form5.Command1.Enabled = True
Form5.Command5.Enabled = True
For i = 0 To 8
Form5.Text3(i).Text = Empty
Form5.Combo2(i).Enabled = True
HuaYangCs(List1.ListIndex, i) = Empty
Next i
NowHyName(List1.ListIndex) = Mid(List1.List(List1.ListIndex), 7)
Form5.Text3(0).Text = SaoMiaoDefault
Form5.Text3(1).Text = XunHuanDefault
Form5.Text3(2).Text = TingZhiDefault
For i = 0 To 2
HuaYangCs(List1.ListIndex, i) = Form5.Text3(i).Text
Next i
For i = 3 To 8
Form5.Combo2(i).Enabled = False
Next i
If Mid(List1.List(List1.ListIndex), 7, 2) = "扫描" Then
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "流水" Then
Form5.Combo2(3).Enabled = True
Form5.Text3(3).Text = LiuShuiDefault
HuaYangCs(List1.ListIndex, 3) = Form5.Text3(3).Text
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对流" Then
Form5.Combo2(3).Enabled = True
Form5.Text3(3).Text = LiuShuiDefault
HuaYangCs(List1.ListIndex, 3) = Form5.Text3(3).Text
Call ZkPosition
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对罗" Then
Form5.Combo2(4).Enabled = True
Form5.Text3(4).Text = YaLuoDefault
HuaYangCs(List1.ListIndex, 4) = Form5.Text3(4).Text
Call ZkPosition
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "压罗" Then
Form5.Combo2(4).Enabled = True
Form5.Text3(4).Text = YaLuoDefault
HuaYangCs(List1.ListIndex, 4) = Form5.Text3(4).Text
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "碰碰" Then
Form5.Combo2(5).Enabled = True
Form5.Text3(5).Text = PengPengDefault
HuaYangCs(List1.ListIndex, 5) = Form5.Text3(5).Text
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "左右" Then
Form5.Combo2(6).Enabled = True
Form5.Text3(6).Text = ZuoYouDefault
HuaYangCs(List1.ListIndex, 6) = Form5.Text3(6).Text
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对对" Then
Form5.Combo2(6).Enabled = True
Form5.Text3(6).Text = ZuoYouDefault
HuaYangCs(List1.ListIndex, 6) = Form5.Text3(6).Text
Call ZkPosition
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "中开" Then
Call ZkPosition
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "百叶" Then
Form5.Combo2(8).Enabled = True
NowZhongKai = NowLs / 2
If NowZhongKai <= 0 Then
NowZhongKai = 1
End If
Form5.Text3(8).Text = NowZhongKai
HuaYangCs(List1.ListIndex, 8) = Form5.Text3(8).Text
End If
If TotalDgHuaYang < MaxHuaYangNumber Then
TotalDgHuaYang = TotalDgHuaYang + 1
End If
End If
End Sub
Private Sub Command5_Click()
If Form5.List1.SelCount <> 0 Then
Form5.List1.List(List1.ListIndex) = "花样" & Format(List1.ListIndex + 1, "000") & "：" & HuaYangNoUseName
Form5.Frame1(2).Enabled = False
For i = 0 To 8
Form5.Text3(i).Text = Empty
Form5.Combo2(i).Enabled = True
HuaYangCs(List1.ListIndex, i) = Empty
Next i
NowHyName(List1.ListIndex) = HuaYangNoUseName
If TotalDgHuaYang > 0 Then
TotalDgHuaYang = TotalDgHuaYang - 1
End If
End If
End Sub
Private Sub List1_Click()
If Form5.List1.SelCount <> 0 Then
For i = 0 To 8
Form5.Text3(i).Text = Empty
Form5.Combo2(i).Enabled = True
Next i
Call DgHyShuoMing(Mid(List1.List(List1.ListIndex), 7))
Form5.Label1(0).Caption = "已选花样注释"
If Mid(List1.List(List1.ListIndex), 7) = HuaYangNoUseName Then
Form5.Frame1(2).Enabled = False
Form5.Command1.Enabled = False
Form5.Command5.Enabled = False
Else
For i = 3 To 8
Form5.Combo2(i).Enabled = False
Next i
If Mid(List1.List(List1.ListIndex), 7, 2) = "扫描" Then
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "流水" Then
Form5.Combo2(3).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对流" Then
Form5.Combo2(3).Enabled = True
Form5.Combo2(7).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对罗" Then
Form5.Combo2(4).Enabled = True
Form5.Combo2(7).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "压罗" Then
Form5.Combo2(4).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "碰碰" Then
Form5.Combo2(5).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "左右" Then
Form5.Combo2(6).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "对对" Then
Form5.Combo2(6).Enabled = True
Form5.Combo2(7).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "中开" Then
Form5.Combo2(7).Enabled = True
ElseIf Mid(List1.List(List1.ListIndex), 7, 2) = "百叶" Then
Form5.Combo2(8).Enabled = True
End If
Form5.Frame1(2).Enabled = True
Form5.Command1.Enabled = True
Form5.Command5.Enabled = True
For i = 0 To 8
Form5.Text3(i).Text = HuaYangCs(List1.ListIndex, i)
Next i
End If
End If
End Sub
Private Sub Option2_Click(Index As Integer)
If ChangeMe = True Then
If Form5.Option2(0).Value = True Then
NowColor = 0
For i = 0 To NowLs - 1
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
ElseIf Form5.Option2(1).Value = True Then
NowColor = 1
For i = 0 To NowLs - 1 Step 2
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
For i = 1 To NowLs - 1 Step 2
Form1.Shape1(i).BackColor = DengGuanColor2
Form1.Shape1(i).BorderColor = DengGuanColor2
Next i
ElseIf Form5.Option2(2).Value = True Then
NowColor = 2
For i = 0 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor1
Form1.Shape1(i).BorderColor = DengGuanColor1
Next i
For i = 1 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor2
Form1.Shape1(i).BorderColor = DengGuanColor2
Next i
For i = 2 To NowLs - 1 Step 3
Form1.Shape1(i).BackColor = DengGuanColor3
Form1.Shape1(i).BorderColor = DengGuanColor3
Next i
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -