📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form Max
Caption = "水雨情接收软件(未登陆)"
ClientHeight = 5220
ClientLeft = 1530
ClientTop = 3000
ClientWidth = 11985
Icon = "Main.frx":0000
LinkTopic = "Form1"
Picture = "Main.frx":0442
ScaleHeight = 5220
ScaleWidth = 11985
Visible = 0 'False
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 3500
Left = 1200
Top = 0
End
Begin MSWinsockLib.Winsock Winsock1
Left = 2400
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
RemoteHost = "localhost"
RemotePort = 1689
LocalPort = 1688
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1800
Top = 0
_ExtentX = 688
_ExtentY = 688
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 60000
Left = 720
Top = 0
End
Begin VB.Timer Timer2
Interval = 2000
Left = 240
Top = 0
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 372
Left = 0
TabIndex = 0
Top = 4848
Width = 11988
_ExtentX = 21140
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 10
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
AutoSize = 2
Object.Width = 1588
MinWidth = 176
TextSave = "2004-6-2"
Object.ToolTipText = "日期"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
AutoSize = 2
Object.Width = 1111
MinWidth = 353
TextSave = "10:49"
Object.ToolTipText = "时间"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Alignment = 1
AutoSize = 2
Enabled = 0 'False
Object.Width = 1005
MinWidth = 353
TextSave = "CAPS"
Object.ToolTipText = "键盘字母大小写"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
AutoSize = 2
Object.Width = 847
MinWidth = 353
TextSave = "NUM"
Object.ToolTipText = "数字键盘开关"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 2
Object.ToolTipText = "已收到数据"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 2
Object.ToolTipText = "已收到雨量"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 2
Object.ToolTipText = "已收到水位"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 2
Object.ToolTipText = "已收到电压"
EndProperty
BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 2
Object.ToolTipText = "远程IP"
EndProperty
BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 344
MinWidth = 176
Object.ToolTipText = "设备连接状态(设备号-串口-字节数)"
EndProperty
EndProperty
End
Begin MSCommLib.MSComm MSComm1
Index = 1
Left = 120
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 2
Left = 720
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 3
Left = 1320
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 4
Left = 1920
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 5
Left = 2520
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 6
Left = 3120
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 7
Left = 3720
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin MSCommLib.MSComm MSComm1
Index = 8
Left = 4320
Top = 720
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = 0 'False
RThreshold = 1
BaudRate = 300
InputMode = 1
End
Begin VB.OLE OLE1
Height = 972
Left = 9600
TabIndex = 2
Top = 120
Visible = 0 'False
Width = 1452
End
Begin VB.Label Label1
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 16.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 324
Left = 120
TabIndex = 1
Top = 120
Width = 168
End
Begin VB.Menu MANAGER
Caption = "管理"
Begin VB.Menu T1
Caption = "接收设置"
End
Begin VB.Menu T6
Caption = "水位高程"
End
Begin VB.Menu T7
Caption = "水位微调"
End
Begin VB.Menu T10
Caption = "雨量排除"
End
Begin VB.Menu T11
Caption = "水位排除"
End
Begin VB.Menu T12
Caption = "电压排除"
End
Begin VB.Menu T2
Caption = "查看原始数据"
End
Begin VB.Menu T9
Caption = "查看实际数据"
End
Begin VB.Menu T8
Caption = "SQL语句"
End
Begin VB.Menu T3
Caption = "设备配置"
End
Begin VB.Menu T13
Caption = "修改远程IP"
End
End
Begin VB.Menu Dong
Caption = "显示"
Begin VB.Menu DF456
Caption = "十六进制窗口"
Begin VB.Menu Rain_table1
Caption = "设备1十六进制窗口"
End
Begin VB.Menu Rain_table2
Caption = "设备2十六进制窗口"
End
Begin VB.Menu Rain_table3
Caption = "设备3十六进制窗口"
End
Begin VB.Menu Rain_table4
Caption = "设备4十六进制窗口"
End
Begin VB.Menu Rain_table5
Caption = "设备5十六进制窗口"
End
Begin VB.Menu Rain_table6
Caption = "设备6十六进制窗口"
End
Begin VB.Menu Rain_table7
Caption = "设备7十六进制窗口"
End
Begin VB.Menu Rain_table8
Caption = "设备8十六进制窗口"
End
End
Begin VB.Menu Water_Table
Caption = "动态窗口"
End
End
Begin VB.Menu SDAFSDSGFSDG
Caption = "安全"
Begin VB.Menu DSGFDSG
Caption = "登陆"
End
Begin VB.Menu LIUYFTS
Caption = "注销"
End
Begin VB.Menu GFHGFKR
Caption = "修改口令"
End
End
Begin VB.Menu jasdg
Caption = "控制面板"
Begin VB.Menu dxvfxdfk
Caption = "控制面板"
End
Begin VB.Menu sad8
Caption = "辅助选项"
End
Begin VB.Menu KDSFHJUR09RE
Caption = "系统特性"
End
Begin VB.Menu DAYINJI
Caption = "添加打印机"
End
Begin VB.Menu KSDFNDSF877
Caption = "添加/删除程序"
End
Begin VB.Menu FUZHICIPAN
Caption = "复制磁盘"
End
Begin VB.Menu RIQISHIJIAN
Caption = "日期/时间"
End
Begin VB.Menu XIANSHISHUXING
Caption = "显示属性"
End
Begin VB.Menu YOUXIKONGZHIQI
Caption = "游戏控制器"
End
Begin VB.Menu SHUBIAO
Caption = "鼠标属性"
End
Begin VB.Menu JIANPAN
Caption = "键盘属性"
End
Begin VB.Menu MODEM
Caption = "MODEM"
End
Begin VB.Menu DUOMEITI
Caption = "声音和多媒体"
End
Begin VB.Menu QUYU
Caption = "区域选项"
End
Begin VB.Menu IE
Caption = "IE设置"
End
End
Begin VB.Menu HELPA
Caption = "帮助"
Begin VB.Menu HELPB
Caption = "帮助"
End
Begin VB.Menu t567
Caption = "关于"
End
Begin VB.Menu asdsadsad
Caption = "-"
End
Begin VB.Menu t5
Caption = "退出本程序"
End
End
End
Attribute VB_Name = "Max"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, _
ByVal hIcon As Long) As Long
Private Sub status()
Dim i As Integer
For i = 1 To 8
If be_open(i) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -