📄 chform.frm
字号:
VERSION 5.00
Begin VB.Form ChForm
BorderStyle = 3 'Fixed Dialog
Caption = "A/D通道设置界面"
ClientHeight = 4125
ClientLeft = 2445
ClientTop = 1695
ClientWidth = 4800
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4125
ScaleWidth = 4800
ShowInTaskbar = 0 'False
Begin VB.CheckBox DCh1
Caption = " NO.09--16"
Height = 375
Left = 3000
TabIndex = 18
Top = 960
Value = 1 'Checked
Width = 1335
End
Begin VB.CommandButton Exit
Cancel = -1 'True
Caption = "取 消"
Default = -1 'True
Height = 375
Left = 2633
TabIndex = 21
Top = 3600
Width = 1455
End
Begin VB.CommandButton OK
Caption = "确 定"
Height = 375
Left = 713
TabIndex = 20
Top = 3600
Width = 1455
End
Begin VB.Frame Frame2
Caption = "全部通道选择"
Height = 1695
Left = 2760
TabIndex = 23
Top = 1680
Width = 1935
Begin VB.OptionButton AllCh
Caption = "全部取消"
Height = 375
Index = 1
Left = 240
Style = 1 'Graphical
TabIndex = 24
Top = 1080
Width = 1455
End
Begin VB.OptionButton AllCh
Caption = "全部选中"
Height = 375
Index = 0
Left = 240
Style = 1 'Graphical
TabIndex = 19
Top = 480
Value = -1 'True
Width = 1455
End
End
Begin VB.Frame DFrame
Caption = "多通道选择"
Height = 1455
Left = 2760
TabIndex = 22
Top = 120
Width = 1935
Begin VB.CheckBox DCh0
Caption = " NO.01--08"
Height = 375
Left = 240
TabIndex = 17
Top = 360
Value = 1 'Checked
Width = 1335
End
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.16"
Height = 255
Index = 15
Left = 1560
TabIndex = 16
Top = 3000
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.15"
Height = 255
Index = 14
Left = 1560
TabIndex = 15
Top = 2640
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.14"
Height = 255
Index = 13
Left = 1560
TabIndex = 14
Top = 2280
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.13"
Height = 255
Index = 12
Left = 1560
TabIndex = 13
Top = 1920
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.12"
Height = 255
Index = 11
Left = 1560
TabIndex = 12
Top = 1560
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.11"
Height = 255
Index = 10
Left = 1560
TabIndex = 11
Top = 1200
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.10"
Height = 255
Index = 9
Left = 1560
TabIndex = 10
Top = 840
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.09"
Height = 255
Index = 8
Left = 1530
TabIndex = 9
Top = 480
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.08"
Height = 255
Index = 7
Left = 240
TabIndex = 8
Top = 3000
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.07"
Height = 255
Index = 6
Left = 240
TabIndex = 7
Top = 2640
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.06"
Height = 255
Index = 5
Left = 240
TabIndex = 6
Top = 2280
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.05"
Height = 255
Index = 4
Left = 240
TabIndex = 5
Top = 1920
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.04"
Height = 255
Index = 3
Left = 240
TabIndex = 4
Top = 1560
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.03"
Height = 255
Index = 2
Left = 240
TabIndex = 3
Top = 1200
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.02"
Height = 255
Index = 1
Left = 240
TabIndex = 2
Top = 840
Width = 975
End
Begin VB.CheckBox ChSel
Alignment = 1 'Right Justify
Caption = "NO.01"
Height = 255
Index = 0
Left = 240
TabIndex = 1
Top = 480
Width = 975
End
Begin VB.Frame Frame1
Caption = "通道选择"
Height = 3255
Left = 120
TabIndex = 0
Top = 120
Width = 2535
End
End
Attribute VB_Name = "ChForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'选择所有通道
Private Sub AllCh_Click(Index As Integer)
If AllCh(0) = True Then
k = 1
Else:
k = 0
End If
For i = 0 To 15
ChSel(i).Value = k
Next i
End Sub
'选择1--8路通道
Private Sub DCh0_Click()
For i = 0 To 7
ChSel(i).Value = DCh0
Next i
End Sub
'选择9--16路通道
Private Sub DCh1_Click()
For i = 8 To 15
ChSel(i).Value = DCh1
Next i
End Sub
Private Sub Exit_Click()
Unload ChForm
End Sub
'通道选择初始化函数
Private Sub Form_Load()
For i = 0 To 15
If ch(i) = True Then
ChSel(i).Value = 1
Else
ChSel(i).Value = 0
End If
Next i
End Sub
'确定通道选择函数
Private Sub OK_Click()
k = 0
For i = 0 To 15
If ChSel(i) = 1 Then: k = 1
Next i
'判断是否一个通道也没选择
If k = 0 Then
k = MsgBox("必须选择一个通道，请重新选择！", vbQuestion, "通道选择")
Else
For i = 0 To 15
ch(i) = ChSel(i)
AdForm.Addata(i).Enabled = ch(i)
Next i
Unload ChForm
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -