📄 nihongdeng6.frm
字号:
VERSION 5.00
Begin VB.Form Form6
BorderStyle = 1 'Fixed Single
Caption = "文字花样"
ClientHeight = 2640
ClientLeft = 60
ClientTop = 675
ClientWidth = 10545
ControlBox = 0 'False
LinkTopic = "Form5"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 2640
ScaleWidth = 10545
Begin VB.Frame Frame1
Caption = "插入到灯管花样"
Height = 1815
Index = 3
Left = 8400
TabIndex = 26
Top = 120
Width = 2055
Begin VB.ListBox List2
Height = 1500
ItemData = "nihongdeng6.frx":0000
Left = 120
List = "nihongdeng6.frx":0002
TabIndex = 27
Top = 240
Width = 1815
End
End
Begin VB.CommandButton Command5
Caption = "删除"
Height = 375
Left = 3600
TabIndex = 17
Top = 2160
Width = 735
End
Begin VB.CommandButton Command4
Caption = "添加"
Height = 375
Left = 4680
TabIndex = 16
Top = 2160
Width = 735
End
Begin VB.Frame Frame1
Caption = "参数选择"
Height = 1815
Index = 2
Left = 4680
TabIndex = 8
Top = 120
Width = 3495
Begin VB.ComboBox Combo2
Height = 300
Index = 2
ItemData = "nihongdeng6.frx":0004
Left = 960
List = "nihongdeng6.frx":0006
Style = 2 'Dropdown List
TabIndex = 25
Top = 920
Width = 975
End
Begin VB.ComboBox Combo2
Height = 300
Index = 1
ItemData = "nihongdeng6.frx":0008
Left = 960
List = "nihongdeng6.frx":000A
Style = 2 'Dropdown List
TabIndex = 24
Top = 540
Width = 975
End
Begin VB.TextBox Text3
Height = 270
Index = 2
Left = 2760
Locked = -1 'True
TabIndex = 23
Text = "100"
Top = 920
Width = 375
End
Begin VB.TextBox Text3
Height = 270
Index = 1
Left = 2760
Locked = -1 'True
TabIndex = 22
Text = "0"
Top = 560
Width = 375
End
Begin VB.TextBox Text3
Height = 270
Index = 0
Left = 2760
Locked = -1 'True
TabIndex = 18
Text = "0"
Top = 200
Width = 375
End
Begin VB.ComboBox Combo2
Height = 300
Index = 0
ItemData = "nihongdeng6.frx":000C
Left = 960
List = "nihongdeng6.frx":000E
Style = 2 'Dropdown List
TabIndex = 15
Top = 200
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "当前值："
Height = 180
Index = 15
Left = 2040
TabIndex = 21
Top = 960
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "当前值："
Height = 180
Index = 14
Left = 2040
TabIndex = 20
Top = 600
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "当前值："
Height = 180
Index = 13
Left = 2040
TabIndex = 19
Top = 240
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "秒"
Height = 180
Index = 11
Left = 3240
TabIndex = 14
Top = 960
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "次"
Height = 180
Index = 10
Left = 3240
TabIndex = 13
Top = 600
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "秒"
Height = 180
Index = 9
Left = 3240
TabIndex = 12
Top = 240
Width = 180
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 = 1815
Index = 1
Left = 2400
TabIndex = 4
Top = 120
Width = 2055
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H80000000&
Height = 735
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 = "nihongdeng6.frx":0010
Left = 120
List = "nihongdeng6.frx":0012
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 = 1815
Index = 0
Left = 120
TabIndex = 2
Top = 120
Width = 2055
Begin VB.ListBox List1
Height = 1500
ItemData = "nihongdeng6.frx":0014
Left = 120
List = "nihongdeng6.frx":0016
TabIndex = 3
Top = 240
Width = 1815
End
End
Begin VB.CommandButton Command3
Caption = "确定"
Height = 375
Left = 6840
TabIndex = 1
Top = 2160
Width = 735
End
Begin VB.CommandButton Command1
Caption = "预览"
Height = 375
Left = 5760
TabIndex = 0
Top = 2160
Width = 735
End
End
Attribute VB_Name = "Form6"
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 HzHyShuoMing(Form6.Combo1.Text)
Form6.Label1(0).Caption = "待选花样注释"
End Sub
Private Sub Combo2_Click(Index As Integer)
Form6.Text3(Index).Text = Form6.Combo2(Index).Text
HuaYangHzCs(List1.ListIndex, Index) = Form6.Text3(Index).Text
End Sub
Private Sub Command1_Click()
OutEnableFlag = False
HzHuaYangPlay (List1.ListIndex)
End Sub
Private Sub Command3_Click()
Form1.Timer3.Enabled = False
Form1.Timer4.Enabled = False
Form1.Timer5.Enabled = False
For i = 0 To TotalHz - 1
If HzXuHao(i) <> TotalHz Then
Form1.Label1(HzXuHao(i)).Visible = True
End If
Next i
Unload Form6
Form1.Enabled = True
Form1.SetFocus
End Sub
Private Sub Command4_Click()
If (Form6.List1.SelCount <> 0) And (Form6.Combo1.Text <> Empty) Then
Form6.List1.List(List1.ListIndex) = "花样" & Format(List1.ListIndex + 1, "000") & "：" & Form6.Combo1.Text
Form6.Frame1(2).Enabled = True
Form6.Command1.Enabled = True
Form6.Command5.Enabled = True
For i = 0 To 2
Form6.Text3(i).Text = Empty
Form6.Combo2(i).Enabled = True
Next i
NowHzHyName(List1.ListIndex) = Mid(List1.List(List1.ListIndex), 7)
Form6.Text3(0).Text = SaoMiaoHzDefault
Form6.Text3(1).Text = XunHuanHzDefault
Form6.Text3(2).Text = TingZhiHzDefault
HuaYangHzCs(List1.ListIndex, 0) = SaoMiaoHzDefault
HuaYangHzCs(List1.ListIndex, 1) = XunHuanHzDefault
HuaYangHzCs(List1.ListIndex, 2) = TingZhiHzDefault
HuaYangHzCs(List1.ListIndex, 3) = DgHyHzDefault
If TotalDgHuaYang <> 0 Then
Form6.List2.ListIndex = DgHyHzDefault
Form6.Frame1(3).Enabled = True
End If
If TotalHzHuaYang < MaxHuaYangNumber Then
TotalHzHuaYang = TotalHzHuaYang + 1
End If
End If
End Sub
Private Sub Command5_Click()
If Form6.List1.SelCount <> 0 Then
Form6.List1.List(List1.ListIndex) = "花样" & Format(List1.ListIndex + 1, "000") & "：" & HuaYangNoUseName
Form6.Frame1(2).Enabled = False
Form6.Frame1(3).Enabled = False
For i = 0 To 2
Form6.Text3(i).Text = Empty
Form6.Combo2(i).Enabled = True
Next i
For i = 0 To 3
HuaYangHzCs(List1.ListIndex, i) = Empty
Next i
If TotalDgHuaYang <> 0 Then
Form6.List2.ListIndex = DgHyHzDefault
End If
NowHzHyName(List1.ListIndex) = HuaYangNoUseName
If TotalHzHuaYang > 0 Then
TotalHzHuaYang = TotalHzHuaYang - 1
End If
End If
End Sub
Private Sub List1_Click()
If Form6.List1.SelCount <> 0 Then
For i = 0 To 2
Form6.Text3(i).Text = Empty
Form6.Combo2(i).Enabled = True
Next i
Call HzHyShuoMing(Mid(List1.List(List1.ListIndex), 7))
Form6.Label1(0).Caption = "已选花样注释"
If Mid(List1.List(List1.ListIndex), 7) = HuaYangNoUseName Then
Form6.Frame1(2).Enabled = False
Form6.Frame1(3).Enabled = False
Form6.Command1.Enabled = False
Form6.Command5.Enabled = False
If TotalDgHuaYang <> 0 Then
Form6.List2.ListIndex = DgHyHzDefault
End If
Else
Form6.Frame1(2).Enabled = True
Form6.Command1.Enabled = True
Form6.Command5.Enabled = True
For i = 0 To 2
Form6.Text3(i).Text = HuaYangHzCs(List1.ListIndex, i)
Next i
If TotalDgHuaYang <> 0 Then
Form6.Frame1(3).Enabled = True
Form6.List2.ListIndex = Val(HuaYangHzCs(List1.ListIndex, 3))
End If
End If
End If
End Sub
Private Sub List2_Click()
If Form6.List2.SelCount <> 0 And (Mid(List2.List(List2.ListIndex), 7) <> HuaYangNoUseName) Then
HuaYangHzCs(List1.ListIndex, 3) = Form6.List2.ListIndex
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -