📄 viewer.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Viewer
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Viewer"
ClientHeight = 6405
ClientLeft = 45
ClientTop = 315
ClientWidth = 7545
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6405
ScaleWidth = 7545
ShowInTaskbar = 0 'False
Tag = "0"
WindowState = 2 'Maximized
Begin VB.CheckBox receiveonly
Caption = "只收不发"
Height = 375
Left = 6720
TabIndex = 25
Top = 6000
Width = 735
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4875
Left = 0
ScaleHeight = 4845
ScaleWidth = 7470
TabIndex = 22
Top = 300
Width = 7500
Begin VB.PictureBox viewerwnd
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4875
Left = 0
ScaleHeight = 4845
ScaleMode = 0 'User
ScaleWidth = 7473.421
TabIndex = 23
Top = 0
Width = 7500
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4800
Top = 2460
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Line cursureline2
BorderColor = &H000000FF&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 5040
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
Index = 1
X1 = 0
X2 = 7383.38
Y1 = 0
Y2 = 0
End
Begin VB.Line bgline
BorderColor = &H00E0E0E0&
Index = 0
Visible = 0 'False
X1 = -32775
X2 = 34395.75
Y1 = 300
Y2 = 300
End
Begin VB.Line cursureline1
BorderColor = &H00FF0000&
X1 = -32782.01
X2 = -32782.01
Y1 = 0
Y2 = 5040
End
End
End
Begin VB.CommandButton Command1
Caption = "保存数据"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6660
TabIndex = 17
Top = 5400
Width = 855
End
Begin VB.HScrollBar viewmove
Height = 195
Left = 0
Max = 0
TabIndex = 13
Top = 5160
Width = 7515
End
Begin VB.Frame Frame3
Height = 1035
Left = 0
TabIndex = 3
Top = 5340
Width = 3075
Begin VB.VScrollBar bdc
Height = 855
Left = 2760
TabIndex = 19
Top = 120
Width = 195
End
Begin VB.VScrollBar adc
Height = 855
Left = 2280
TabIndex = 18
Top = 120
Width = 195
End
Begin VB.ListBox List1
Height = 255
ItemData = "viewer.frx":0000
Left = 120
List = "viewer.frx":0010
TabIndex = 5
Top = 600
Width = 855
End
Begin VB.ListBox List2
Height = 255
ItemData = "viewer.frx":002D
Left = 1080
List = "viewer.frx":0040
TabIndex = 4
Top = 600
Width = 855
End
Begin VB.Label label
Alignment = 2 'Center
Caption = "B 偏移"
Height = 675
Left = 2520
TabIndex = 21
Top = 240
Width = 255
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = " A 偏移"
Height = 675
Left = 2040
TabIndex = 20
Top = 240
Width = 255
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "时间调整"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 7
Top = 180
Width = 915
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "数据调整"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1020
TabIndex = 6
Top = 180
Width = 975
End
End
Begin VB.Frame Frame2
Height = 1035
Left = 3120
TabIndex = 0
Top = 5340
Width = 3495
Begin VB.Label timelabel
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 2400
TabIndex = 24
Top = 720
Width = 1035
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "当前值-蓝"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1260
TabIndex = 16
Top = 120
Width = 1155
End
Begin VB.Label currentvalueb1
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 1320
TabIndex = 15
Top = 720
Width = 1035
End
Begin VB.Label currentvaluea1
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 1320
TabIndex = 14
Top = 420
Width = 1035
End
Begin VB.Label time12
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 2400
TabIndex = 12
Top = 420
Width = 1035
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "时间差"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2280
TabIndex = 11
Top = 120
Width = 1155
End
Begin VB.Label currentvalueb2
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 240
TabIndex = 10
Top = 720
Width = 1035
End
Begin VB.Label Label5
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "B："
Height = 255
Left = 60
TabIndex = 9
Top = 720
Width = 255
End
Begin VB.Label Label4
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "A："
Height = 255
Left = 60
TabIndex = 8
Top = 420
Width = 255
End
Begin VB.Label currentvaluea2
Alignment = 1 'Right Justify
BackColor = &H80000009&
Caption = "0"
Height = 255
Left = 240
TabIndex = 2
Top = 420
Width = 1035
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "当前值-红"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 240
TabIndex = 1
Top = 120
Width = 1155
End
End
Begin VB.Image blue
Height = 360
Left = -180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -