📄 chform.frm
字号:
VERSION 5.00
Begin VB.Form ChForm
BorderStyle = 3 'Fixed Dialog
Caption = "A/D参数设置界面"
ClientHeight = 4935
ClientLeft = 1860
ClientTop = 1620
ClientWidth = 4920
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 = 4935
ScaleWidth = 4920
ShowInTaskbar = 0 'False
Begin VB.TextBox zyedit
Enabled = 0 'False
Height = 375
Left = 3840
MaxLength = 3
TabIndex = 27
Text = "Text1"
ToolTipText = "=1,2,4,8,16,32,64,128"
Top = 3720
Width = 735
End
Begin VB.Frame Frame3
Caption = "中断允许"
Enabled = 0 'False
Height = 615
Left = 120
TabIndex = 25
Top = 3480
Width = 2775
Begin VB.OptionButton zd1
Caption = "不允许"
Height = 255
Index = 1
Left = 1320
TabIndex = 29
Top = 240
Width = 1215
End
Begin VB.OptionButton zd1
Caption = "允许"
Height = 255
Index = 0
Left = 120
TabIndex = 26
Top = 240
Value = -1 'True
Width = 975
End
End
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 = 22
Top = 4440
Width = 1455
End
Begin VB.CommandButton OK
Caption = "确 定"
Height = 375
Left = 713
TabIndex = 21
Top = 4440
Width = 1455
End
Begin VB.Frame Frame2
Caption = "全部通道选择"
Height = 1695
Left = 2760
TabIndex = 24
Top = 1680
Width = 1935
Begin VB.OptionButton AllCh
Caption = "全部取消"
Height = 375
Index = 1
Left = 240
Style = 1 'Graphical
TabIndex = 20
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 = 23
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 = 1560
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
Begin VB.Label Label1
Caption = "增益："
Height = 375
Left = 3240
TabIndex = 28
Top = 3720
Width = 855
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
Private Sub DCh0_Click()
For i = 0 To 7
ChSel(i).Value = DCh0
Next i
End Sub
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_Deactivate()
zy = Val("" & zyedit)
If zd1(0) Then
zd = 0
Else
zd = 1
End If
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
zd1(0) = True
zyedit = 1
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 + -