📄 rt3.frm
字号:
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 3840
TabIndex = 34
Top = 600
Width = 255
End
Begin VB.Label Label1
Caption = "11"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 3480
TabIndex = 33
Top = 600
Width = 255
End
Begin VB.Label Label1
Caption = "10"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 3120
TabIndex = 32
Top = 600
Width = 255
End
Begin VB.Label Label1
Caption = "09"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 2760
TabIndex = 31
Top = 600
Width = 255
End
Begin VB.Label Label1
Caption = "08"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 7
Left = 2280
TabIndex = 30
Top = 600
Width = 210
End
Begin VB.Label Label1
Caption = "07"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 765
Index = 6
Left = 1920
TabIndex = 29
Top = 600
Width = 210
End
Begin VB.Label Label1
Caption = "06"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 5
Left = 1680
TabIndex = 28
Top = 480
Width = 180
End
Begin VB.Label Label1
Caption = "05"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 4
Left = 1320
TabIndex = 27
Top = 480
Width = 180
End
Begin VB.Label Label1
Caption = "04"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 3
Left = 960
TabIndex = 26
Top = 480
Width = 180
End
Begin VB.Label Label1
Caption = "03"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 2
Left = 600
TabIndex = 25
Top = 480
Width = 180
End
Begin VB.Label Label1
Caption = "02"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Index = 1
Left = 360
TabIndex = 24
Top = 480
Width = 180
End
Begin VB.Label Label1
Caption = "01"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Index = 0
Left = 120
TabIndex = 22
Top = 480
Width = 180
End
End
Begin VB.Label Label10
Caption = "串口设定"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 10545
TabIndex = 81
Top = 165
Width = 1020
End
Begin VB.Label Label14
Caption = "多点控制器"
Height = 315
Left = 6840
TabIndex = 75
Top = 1080
Width = 1440
End
Begin VB.Label Label13
Caption = "按下上下左右等按钮：先发一次，延迟0.2秒后连续发送"
Height = 375
Left = 5520
TabIndex = 74
Top = 4440
Width = 6135
End
Begin VB.Image bmp111
Height = 330
Left = 5160
Picture = "Rt3.frx":5CE3
Top = 5160
Width = 330
End
Begin VB.Image stp
Height = 300
Left = 8595
Picture = "Rt3.frx":62FD
Top = 5040
Width = 720
End
Begin VB.Image lr
Height = 300
Left = 7320
Picture = "Rt3.frx":6AFF
Top = 5040
Width = 900
End
Begin VB.Image hand
Height = 480
Left = 6885
Picture = "Rt3.frx":73F1
Top = 5040
Width = 480
End
Begin VB.Image bmp0
Height = 240
Left = 5640
Picture = "Rt3.frx":7543
Top = 5160
Width = 240
End
Begin VB.Image bmp2
Height = 240
Left = 6360
Picture = "Rt3.frx":7885
Top = 5160
Width = 240
End
Begin VB.Image bmp1
Height = 240
Left = 6000
Picture = "Rt3.frx":7BC7
Top = 5160
Width = 240
End
Begin VB.Label Label12
Caption = "MPEGII"
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 555
Left = 9480
TabIndex = 64
Top = 4680
Width = 1905
End
Begin VB.Label Label10
Caption = "PC机串口号:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 9720
TabIndex = 61
Top = 160
Width = 600
End
Begin VB.Label Label9
Caption = "监视器编号:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8880
TabIndex = 42
Top = 160
Width = 645
End
End
Attribute VB_Name = "FrmRt3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Update 1999.1.25
Dim send As Boolean
Dim rotate As Boolean
Dim total As Integer
Dim add1 As Byte
Dim add2 As Byte
Dim add3 As Byte
Dim k2(1 To 4) As Boolean
Dim rb() As Byte
Dim sig(6) As Byte
''''''''''' // modified by LGH.
Private IntMax As Long
Dim HWStr As String
Dim AddStr As String
Dim CommandLong As Long
Dim DataLengthShort As Integer
Dim YuanDuan As Long
Dim AlarmPort As String
''''''''''' // added by lgh.
'Dim strLogFilePath As String '990427 ->global
Dim ConnectedIndex(0 To 16) As Byte '*** lgh99.01.18
Dim PSMSConnectedIndex(0 To 16) As Byte '*** lgh99.01.18
Dim mTime
Dim mDate As Date
Dim strYear As String
Dim strMonth As String
Dim strMonth2 As String
Dim itemp As Integer
Dim strTemp As String
Dim strTemp2 As String
Dim Pos, Pos2 As Long
Dim delayCount As Long
Dim Invert(1 To 16, 0 To 4, 1 To 16, 1 To 3) As Boolean
Dim stationname As String
Dim dbHfdb As Database
Dim recWarncode As Recordset
Dim recInfo As Recordset
Dim recStation As Recordset
Dim recCamera As Recordset
Dim recAddrcorresponding As Recordset
Private Sub auto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If rotate = False Then
auto.Picture = stp.Picture
rotate = True
a(5) = &H2
Sendcommand4
Sendcommand4 'lgh 990607
Sendcommand4 'lgh 990607
cmdLeft.Enabled = False '***lgh 99.01.28
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -