📄 form1.frm
字号:
Width = 9855
End
Begin VB.HScrollBar HScroll1
Height = 135
LargeChange = 32
Left = 3240
Max = 1024
TabIndex = 0
Top = 180
Width = 2352
End
Begin VB.Label Label20
BackColor = &H00000000&
Caption = "1.000V"
ForeColor = &H00FFFFFF&
Height = 255
Left = 540
TabIndex = 47
Top = 2940
Width = 1095
End
Begin VB.Label Label19
BackColor = &H00000000&
Caption = "500.0000NS"
ForeColor = &H00FFFFFF&
Height = 255
Left = 420
TabIndex = 46
Top = 2580
Width = 1335
End
Begin VB.Label Label18
BackColor = &H00000000&
Caption = "500.0000NS"
ForeColor = &H00FFFFFF&
Height = 255
Left = 420
TabIndex = 45
Top = 2340
Width = 1335
End
Begin VB.Label Label17
BackColor = &H00000000&
Caption = "500.0000NS"
ForeColor = &H00FFFFFF&
Height = 255
Left = 420
TabIndex = 44
Top = 2040
Width = 1335
End
Begin VB.Label Label16
BackColor = &H00000000&
Caption = "V1-V2"
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 43
Top = 2940
Width = 495
End
Begin VB.Label Label15
BackColor = &H00000000&
Caption = "B-T"
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 42
Top = 2580
Width = 375
End
Begin VB.Label Label14
BackColor = &H00000000&
Caption = "A-T"
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 41
Top = 2280
Width = 375
End
Begin VB.Label Label13
BackColor = &H00000000&
Caption = "A-B"
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 40
Top = 2040
Width = 375
End
Begin VB.Label Label12
BackColor = &H00000000&
Caption = "0"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2700
TabIndex = 39
Top = 180
Width = 735
End
Begin VB.Label Label11
BackColor = &H00000000&
Caption = "Screen"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1920
TabIndex = 38
Top = 180
Width = 735
End
Begin VB.Label Label10
BackColor = &H00000000&
Caption = "242"
ForeColor = &H008080FF&
Height = 255
Left = 900
TabIndex = 34
Top = 1680
Width = 735
End
Begin VB.Label Label9
BackColor = &H00000000&
Caption = "10"
ForeColor = &H00C0E0FF&
Height = 255
Left = 900
TabIndex = 33
Top = 1260
Width = 735
End
Begin VB.Label Label8
BackColor = &H00000000&
Caption = "200"
ForeColor = &H000000FF&
Height = 255
Left = 840
TabIndex = 32
Top = 720
Width = 1095
End
Begin VB.Label Label7
BackColor = &H00000000&
Caption = "300"
ForeColor = &H00FFC0FF&
Height = 255
Left = 840
TabIndex = 31
Top = 360
Width = 1095
End
Begin VB.Label Label6
BackColor = &H00000000&
Caption = "100"
ForeColor = &H00FFFFC0&
Height = 255
Left = 900
TabIndex = 30
Top = 0
Width = 1095
End
Begin VB.Label Label5
BackColor = &H00000000&
Caption = "Volts V2"
ForeColor = &H008080FF&
Height = 255
Left = 240
TabIndex = 27
Top = 1680
Width = 615
End
Begin VB.Label Label4
BackColor = &H00000000&
Caption = "Volts V1"
ForeColor = &H00C0E0FF&
Height = 255
Left = 240
TabIndex = 26
Top = 1260
Width = 615
End
Begin VB.Label Label3
BackColor = &H00000000&
Caption = "触发"
ForeColor = &H000000FF&
Height = 255
Left = 0
TabIndex = 25
Top = 720
Width = 615
End
Begin VB.Label Label2
BackColor = &H00000000&
Caption = "光标 B"
ForeColor = &H00FFC0FF&
Height = 255
Left = 0
TabIndex = 24
Top = 360
Width = 735
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = "光标 A"
ForeColor = &H00FFFFC0&
Height = 255
Left = 0
TabIndex = 23
Top = 0
Width = 855
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Paint()
'HScroll1.Top = Form1.ScaleHeight - 250
Call refreshscreen1
End Sub
Private Sub HScroll1_Change()
Form1.Label12.Caption = Form1.HScroll1.Value
'Form1.Line1.X1 = Form1.HScroll1.Value
'Form1.Line1.X2 = Form1.Line1.X1 + 100
Call refreshscreen1
End Sub
Private Sub HScroll3_Change()
Form1.Label6.Caption = Form1.HScroll3.Value
Call refreshscreen1
Call cursorA
Call DISTANCEA_B
End Sub
Private Sub HScroll5_Change()
Form1.Label7.Caption = Form1.HScroll5.Value
Call refreshscreen1
Call cursorB
Call DISTANCEA_B
End Sub
Private Sub HScroll6_Change()
paraon = 1
Form1.Label8.Caption = Form1.HScroll6.Value
Call refreshscreen1
Call cursorT
Call DISTANCEA_B
End Sub
Private Sub VScroll1_Change()
'Select Case Form1.VScroll1.Value
Call refreshscreen1
End Sub
Private Sub VScroll2_Change()
Dso29.Timer2.Enabled = False
Dso29.Timer2.Interval = 30000
Dso29.Timer2.Enabled = True
v1v2disflag = 1
Call refreshscreen1
Call cursorV1
Call setv1_v2
End Sub
Private Sub VScroll3_Change()
Dso29.Timer2.Enabled = False
Dso29.Timer2.Interval = 30000
Dso29.Timer2.Enabled = True
v1v2disflag = 1
Call refreshscreen1
Call cursorV1
Call setv1_v2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -