📄 form1.vb
字号:
'miControl
'
Me.miControl.Index = 2
Me.miControl.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miStartServer, Me.miStopServer, Me.miOffLine, Me.miSendData, Me.miSendK, Me.miClear, Me.miS1, Me.miStartNoProService, Me.miStopNoProService, Me.miS4, Me.miNoProBack, Me.miS3, Me.menu_AddOneUser})
Me.miControl.Text = "控制(&C)"
'
'miStartServer
'
Me.miStartServer.Index = 0
Me.miStartServer.Shortcut = System.Windows.Forms.Shortcut.CtrlS
Me.miStartServer.Text = "启动服务(&S)"
'
'miStopServer
'
Me.miStopServer.Enabled = False
Me.miStopServer.Index = 1
Me.miStopServer.Shortcut = System.Windows.Forms.Shortcut.CtrlT
Me.miStopServer.Text = "停止服务(&T)"
'
'miOffLine
'
Me.miOffLine.Enabled = False
Me.miOffLine.Index = 2
Me.miOffLine.Text = "分离终端(&O)"
'
'miSendData
'
Me.miSendData.Enabled = False
Me.miSendData.Index = 3
Me.miSendData.Text = "发送数据(&D)"
'
'miSendK
'
Me.miSendK.Enabled = False
Me.miSendK.Index = 4
Me.miSendK.Text = "发送对话框(&K)"
'
'miClear
'
Me.miClear.Index = 5
Me.miClear.Text = "清空(&R)"
'
'miS1
'
Me.miS1.Index = 6
Me.miS1.Text = "-"
'
'miStartNoProService
'
Me.miStartNoProService.Index = 7
Me.miStartNoProService.Text = "启动无协议服务"
'
'miStopNoProService
'
Me.miStopNoProService.Enabled = False
Me.miStopNoProService.Index = 8
Me.miStopNoProService.Text = "停止无协议服务"
'
'miS4
'
Me.miS4.Index = 9
Me.miS4.Text = "-"
'
'miNoProBack
'
Me.miNoProBack.Enabled = False
Me.miNoProBack.Index = 10
Me.miNoProBack.Text = "无协议应答"
'
'miS3
'
Me.miS3.Index = 11
Me.miS3.Text = "-"
'
'menu_AddOneUser
'
Me.menu_AddOneUser.Index = 12
Me.menu_AddOneUser.Text = "增加用户"
'
'miShowView
'
Me.miShowView.Index = 3
Me.miShowView.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miViewData, Me.miHEXShow, Me.miAnswer, Me.miCount})
Me.miShowView.Text = "显示(&V)"
'
'miViewData
'
Me.miViewData.Checked = True
Me.miViewData.Index = 0
Me.miViewData.Text = "显示数据(&D)"
'
'miHEXShow
'
Me.miHEXShow.Index = 1
Me.miHEXShow.Text = "HEX显示(&H)"
'
'miAnswer
'
Me.miAnswer.Index = 2
Me.miAnswer.Text = "应答(&A)"
'
'miCount
'
Me.miCount.Checked = True
Me.miCount.Index = 3
Me.miCount.Text = "计数(&C)"
'
'miHelp
'
Me.miHelp.Index = 4
Me.miHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miHelpContent, Me.miAbout})
Me.miHelp.Text = "帮助(&H)"
'
'miHelpContent
'
Me.miHelpContent.Index = 0
Me.miHelpContent.Text = "帮助(&H)"
'
'miAbout
'
Me.miAbout.Index = 1
Me.miAbout.Text = "关于(&A)"
'
'Command1
'
Me.Command1.BackColor = System.Drawing.SystemColors.Control
Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Command1.Location = New System.Drawing.Point(312, 8)
Me.Command1.Name = "Command1"
Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Command1.Size = New System.Drawing.Size(161, 25)
Me.Command1.TabIndex = 8
Me.Command1.Text = "测试get_user_info函数"
Me.Command1.Visible = False
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(617, 352)
Me.Controls.Add(Me.ckHex)
Me.Controls.Add(Me.Winsock1)
Me.Controls.Add(Me.Text2)
Me.Controls.Add(Me.Text1)
Me.Controls.Add(Me.Text3)
Me.Controls.Add(Me.ImageList2)
Me.Controls.Add(Me.StatusBar1)
Me.Controls.Add(Me.ImageList1)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.Toolbar1)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Location = New System.Drawing.Point(11, 49)
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Text = "DSC-数据业务中心"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
CType(Me.Winsock1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageList2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageList1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Toolbar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Toolbar1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
#Region "升级支持"
Private Shared m_vb6FormDefInstance As Form1
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As Form1
Get
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New Form1()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
End Property
#End Region
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
srvport = 5002
waittime = 120
Timer2.Enabled = True
LineCount = 0
SysAutoM = 0
End Sub
'UPGRADE_WARNING: Form 事件 Form1.QueryUnload 具有新的行为。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"”
Private Sub Form1_Closing(ByVal eventSender As System.Object, ByVal eventArgs As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim Cancel As Short = eventArgs.Cancel
If MsgBox("确定要退出吗？", MsgBoxStyle.YesNo, "确认") = MsgBoxResult.No Then
Cancel = 1
GoTo EventExitSub
End If
If Form1.DefInstance.Toolbar1.Buttons.Item(2).Enabled = True Then
miStopServer_Click(miStopServer, New System.EventArgs())
End If
EventExitSub:
eventArgs.Cancel = Cancel
End Sub
'UPGRADE_WARNING: 初始化窗体时可能激发事件 Form1.Resize。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2075"”
Private Sub Form1_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Resize
If VB6.PixelsToTwipsY(Form1.DefInstance.Height) < 5685 Or VB6.PixelsToTwipsX(Form1.DefInstance.Width) < 7860 Then Exit Sub
Form1.DefInstance.ListView1.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Form1.DefInstance.Width) - 130)
Form1.DefInstance.Text3.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Form1.DefInstance.Width) - 150)
Form1.DefInstance.Text3.Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Form1.DefInstance.Height) - 4220)
'Form1.Command2.Top = Form1.Height - 1395
'Form1.Command2.Left = Form1.Width - 1380
'Form1.Command1.Top = Form1.Height - 1395
'Form1.Command1.Left = Form1.Width - 560
Form1.DefInstance.Text1.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Form1.DefInstance.Height) - 1365)
Me.ckHex.Top = Form1.DefInstance.Text1.Top
'Form1.Text1.Width = Form1.Width - 2070
Form1.DefInstance.Text2.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Form1.DefInstance.Height) - 1365)
Form1.DefInstance.Text4.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Form1.DefInstance.Width) - 4100)
redcolor = 255
greencolor = 30
bluecolor = 30
colorflag = 1
End Sub
'UPGRADE_WARNING: Form 事件 Form1.Unload 具有新的行为。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"”
Private Sub Form1_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
Timer2.Enabled = False
End Sub
Private Sub ListView1_ClickEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ListView1.ClickEvent
If ListView1.ListItems.Count > 0 Then
Text2.Text = ListView1.SelectedItem.Text
End If
End Sub
Private Sub ListView1_DblClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ListView1.DblClick
miSendK_Click(miSendK, New System.EventArgs())
End Sub
Public Sub menu_AddOneUser_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles menu_AddOneUser.Popup
menu_AddOneUser_Click(eventSender, eventArgs)
End Sub
Public Sub menu_AddOneUser_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles menu_AddOneUser.Click
Dim us As user_info
Dim i As Integer
Dim sTim As String
For i = 1 To 11
us.m_userid(i) = Asc(Mid("13900000000", i, 1))
Next i
'us.m_sin_addr(4) = 192
'us.m_sin_addr(3) = 168
'us.m_sin_addr(2) = 0
'us.m_sin_addr(1) = 243
us.m_sin_port = 5002
'us.m_local_addr(4) = 192
'us.m_local_addr(3) = 168
'us.m_local_addr(2) = 0
'us.m_local_addr(1) = 243
us.m_local_port = 5001
sTim = VB6.Format(Now, "YYYY-MM-DD HH:mm:SS")
For i = 1 To 19
us.m_logon_date(i) = Asc(Mid(sTim, i, 1))
us.m_update_date(i) = Asc(Mid(sTim, i, 1))
Next i
us.m_status = 1
AddOneUser(us)
pollusertable()
End Sub
Public Sub miAbout_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miAbout.Popup
miAbout_Click(eventSender, eventArgs)
End Sub
Public Sub miAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miAbout.Click
FAbout.DefInstance.ShowDialog()
End Sub
Public Sub miAnswer_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miAnswer.Popup
miAnswer_Click(eventSender, eventArgs)
End Sub
Public Sub miAnswer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miAnswer.Click
miAnswer.Checked = Not miAnswer.Checked
End Sub
Public Sub miClear_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miClear.Popup
miClear_Click(eventSender, eventArgs)
End Sub
Public Sub miClear_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miClear.Click
Text3.Text = ""
End Sub
Public Sub miCount_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles miCount.Popup
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -