📄 fmian.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Fmain
BorderStyle = 1 'Fixed Single
Caption = "网络通讯实验程序(BY:c0der)"
ClientHeight = 5520
ClientLeft = 150
ClientTop = 540
ClientWidth = 9000
Icon = "Fmian.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5520
ScaleWidth = 9000
StartUpPosition = 1 '所有者中心
Begin RichTextLib.RichTextBox Tsend
Height = 255
Left = 0
TabIndex = 3
Top = 5040
Width = 9015
_ExtentX = 15901
_ExtentY = 450
_Version = 393217
BorderStyle = 0
MaxLength = 3000
TextRTF = $"Fmian.frx":1A7A
End
Begin MSComDlg.CommonDialog CF
Left = 8400
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSCommLib.MSComm MSComm
Left = 7680
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 3000
NullDiscard = -1 'True
OutBufferSize = 3000
RThreshold = 1
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 5265
Width = 9000
_ExtentX = 15875
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 8
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "CAPS"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "NUM"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Object.Width = 1058
MinWidth = 1058
TextSave = "INS"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 4
Enabled = 0 'False
Object.Width = 1058
MinWidth = 1058
TextSave = "SCRL"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 7
Enabled = 0 'False
TextSave = "KANA"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Object.Width = 4304
MinWidth = 4304
TextSave = "10/11/2006"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 4304
MinWidth = 4304
TextSave = "9:37 AM"
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox NOTE
Height = 5055
Left = 0
TabIndex = 2
Top = 0
Width = 9015
_ExtentX = 15901
_ExtentY = 8916
_Version = 393217
BorderStyle = 0
ReadOnly = -1 'True
ScrollBars = 2
TextRTF = $"Fmian.frx":1B17
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 1
Top = 0
Width = 9000
_ExtentX = 15875
_ExtentY = 1085
ButtonWidth = 609
ButtonHeight = 926
Appearance = 1
_Version = 393216
End
Begin VB.Menu M_FILE
Caption = "文件(&F)"
Begin VB.Menu M_NCON
Caption = "新建连接(&N) "
Shortcut = ^N
End
Begin VB.Menu M_LOAD
Caption = "打开连接(&O) "
Shortcut = ^O
End
Begin VB.Menu M_S2
Caption = "-"
End
Begin VB.Menu M_SAVE
Caption = "保存连接(&S) "
Enabled = 0 'False
Shortcut = ^S
End
Begin VB.Menu M_S1
Caption = "-"
End
Begin VB.Menu M_SET
Caption = "设置(&S)"
Enabled = 0 'False
Shortcut = +{F1}
End
Begin VB.Menu M_S4
Caption = "-"
End
Begin VB.Menu M_EXIT
Caption = "退出(&X)"
Shortcut = ^X
End
End
Begin VB.Menu M_MODE
Caption = "模式(&M)"
Begin VB.Menu M_ARQ
Caption = "ARQ模式(&A)"
End
Begin VB.Menu M_SEND
Caption = "发送文件(&S)"
Enabled = 0 'False
Shortcut = ^F
End
End
Begin VB.Menu m_debug
Caption = "调试(&D)"
End
End
Attribute VB_Name = "Fmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public WithEvents SENDEVENT As sendfile_
Attribute SENDEVENT.VB_VarHelpID = -1
Private Sub Form_Load()
Set SENDEVENT = New sendfile_
is_cominuse = False
Fmain.StatusBar.Panels(1).Text = "无连接"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer '在窗体集合中循环并卸载每个窗体。
If is_cominuse = True Then
'Me.MSComm.PortOpen = False
End If
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next
End Sub
Private Sub M_ARQ_Click()
If IS_ARQ = True Then
IS_ARQ = False
M_ARQ.Checked = IS_ARQ
M_SEND.Enabled = IS_ARQ
Tsend.Enabled = True
VIEWMODE = 0
ChangeViewMode VIEWMODE
Else
IS_ARQ = True
M_ARQ.Checked = IS_ARQ
M_SEND.Enabled = IS_ARQ
Tsend.Enabled = False
VIEWMODE = 1
ChangeViewMode VIEWMODE
End If
End Sub
Private Sub m_debug_Click()
Call showdetail
End Sub
Private Sub M_SEND_Click()
If is_cominuse = True Then
SETF.Show
Else
MsgBox "当前未建立有效的数据通路!", vbInformation + vbOKOnly, "提示"
End If
End Sub
Private Sub M_EXIT_Click()
Call Form_Unload(0)
End Sub
Private Sub M_LOAD_Click()
If is_cominuse = True Then
a = MsgBox("连接" & COMNAME & "正在被使用是否关闭此连接？", vbInformation + vbYesNo, "提示")
If a = 6 Then
Closecom
COMLoad
Else
Exit Sub
End If
Else
COMLoad
End If
End Sub
Private Sub M_SAVE_Click()
If is_cominuse = True Then
COMSAVE
Else
End If
End Sub
Private Sub M_NCON_Click()
Dim a As Integer
If is_cominuse = True Then
a = MsgBox("连接" & COMNAME & "正在被使用是否关闭此连接？", vbInformation + vbYesNo, "提示")
If a = 6 Then
Fmain.MSComm.PortOpen = False
is_cominuse = False
Fmain.StatusBar.Panels(1).Text = TCOM.COMPORT & "断开连接"
Fmain.Caption = "网络通讯实验程序(BY:c0der)"
Else
Exit Sub
End If
Else
End If
CHO.Show
End Sub
Private Sub M_SET_Click()
SETT2.Show
End Sub
Private Sub MSComm_OnComm()
Dim charc As String * 1
Dim data As Variant
Dim num As Double
'Dim t1 As Single
'Dim t2 As Single
'Dim t3 As Single
Dim charb As Variant
't1 = Timer
'Debug.Print t1
Select Case MSComm.CommEvent
' Errors
Case comEventBreak ' A Break was received.
Case comEventFrame ' Framing Error
Case comEventOverrun ' Data Lost.
Case comEventRxOver ' Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]
' Events
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -