?? frmprops.frm
字號:
VERSION 5.00
Begin VB.Form frmProperties
BorderStyle = 3 'Fixed Dialog
Caption = "端口設置"
ClientHeight = 3720
ClientLeft = 4140
ClientTop = 1665
ClientWidth = 5895
Icon = "frmProps.frx":0000
LinkTopic = "Form3"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3720
ScaleWidth = 5895
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame fraSettings
Height = 3495
Left = 255
TabIndex = 0
Top = 100
Width = 5445
Begin VB.CommandButton cmdCancel
Caption = "取消(&E)"
Height = 300
Left = 4335
TabIndex = 20
Top = 1200
Width = 1080
End
Begin VB.Frame Frame1
Caption = "波特率"
Height = 870
Left = 180
TabIndex = 18
Top = 630
Width = 2340
Begin VB.ComboBox cboSpeed
Height = 300
Left = 375
Style = 2 'Dropdown List
TabIndex = 19
Top = 330
Width = 1695
End
End
Begin VB.Frame fraConnection
Caption = "傳輸屬性"
Height = 1770
Left = 180
TabIndex = 11
Top = 1635
Width = 2325
Begin VB.ComboBox cboStopBits
Height = 300
Left = 1050
Style = 2 'Dropdown List
TabIndex = 14
Top = 1260
Width = 1140
End
Begin VB.ComboBox cboParity
Height = 300
Left = 1050
Style = 2 'Dropdown List
TabIndex = 13
Top = 810
Width = 1140
End
Begin VB.ComboBox cboDataBits
Height = 300
Left = 1050
Style = 2 'Dropdown List
TabIndex = 12
Top = 330
Width = 1140
End
Begin VB.Label Label5
Caption = "停止位："
Height = 285
Left = 180
TabIndex = 17
Top = 1320
Width = 885
End
Begin VB.Label Label4
Caption = "校驗："
Height = 285
Left = 180
TabIndex = 16
Top = 855
Width = 615
End
Begin VB.Label Label3
Caption = "數據位："
Height = 285
Left = 180
TabIndex = 15
Top = 375
Width = 825
End
End
Begin VB.ComboBox cboPort
Height = 300
Left = 900
Style = 2 'Dropdown List
TabIndex = 10
Top = 150
Width = 1425
End
Begin VB.CommandButton cmdOK
Caption = "確定(&O)"
Default = -1 'True
Height = 300
Left = 4335
MaskColor = &H00000000&
TabIndex = 9
Top = 705
Width = 1080
End
Begin VB.Frame Frame7
Caption = "響應"
Height = 870
Left = 2595
TabIndex = 6
Top = 630
Width = 1590
Begin VB.OptionButton optEcho
Caption = "關"
Height = 315
Index = 0
Left = 135
MaskColor = &H00000000&
TabIndex = 8
Top = 360
Width = 615
End
Begin VB.OptionButton optEcho
Caption = "開"
Height = 195
Index = 1
Left = 795
MaskColor = &H00000000&
TabIndex = 7
Top = 420
Width = 555
End
End
Begin VB.Frame Frame5
Caption = "傳輸協議"
Height = 1770
Left = 2595
TabIndex = 1
Top = 1635
Width = 1620
Begin VB.OptionButton optFlow
Caption = "無"
Height = 255
Index = 0
Left = 180
MaskColor = &H00000000&
TabIndex = 5
Top = 345
Width = 855
End
Begin VB.OptionButton optFlow
Caption = "Xon/Xoff"
Height = 255
Index = 1
Left = 180
MaskColor = &H00000000&
TabIndex = 4
Top = 645
Width = 1095
End
Begin VB.OptionButton optFlow
Caption = "RTS"
Height = 255
Index = 2
Left = 180
MaskColor = &H00000000&
TabIndex = 3
Top = 945
Width = 735
End
Begin VB.OptionButton optFlow
Caption = "Xon/RTS"
Height = 255
Index = 3
Left = 180
MaskColor = &H00000000&
TabIndex = 2
Top = 1245
Width = 1155
End
End
Begin VB.Label Label1
Caption = "端口："
Height = 180
Left = 330
TabIndex = 21
Top = 180
Width = 540
End
End
End
Attribute VB_Name = "frmProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private iFlow As Integer, iTempEcho As Boolean
Sub LoadPropertySettings()
Dim i As Integer, Settings As String, Offset As Integer
' Load Port Settings
For i = 1 To 16
cboPort.AddItem "Com" & Trim$(Str$(i))
Next i
' Load Speed Settings
cboSpeed.AddItem "110"
cboSpeed.AddItem "300"
cboSpeed.AddItem "600"
cboSpeed.AddItem "1200"
cboSpeed.AddItem "2400"
cboSpeed.AddItem "4800"
cboSpeed.AddItem "9600"
cboSpeed.AddItem "14400"
cboSpeed.AddItem "19200"
cboSpeed.AddItem "28800"
cboSpeed.AddItem "38400"
cboSpeed.AddItem "56000"
cboSpeed.AddItem "57600"
cboSpeed.AddItem "115200"
cboSpeed.AddItem "128000"
cboSpeed.AddItem "256000"
' Load Data Bit Settings
cboDataBits.AddItem "4"
cboDataBits.AddItem "5"
cboDataBits.AddItem "6"
cboDataBits.AddItem "7"
cboDataBits.AddItem "8"
' Load Parity Settings
cboParity.AddItem "Even"
cboParity.AddItem "Odd"
cboParity.AddItem "None"
cboParity.AddItem "Mark"
cboParity.AddItem "Space"
' Load Stop Bit Settings
cboStopBits.AddItem "1"
cboStopBits.AddItem "1.5"
cboStopBits.AddItem "2"
' Set Default Settings
Settings = frmTerminal.MSComm1.Settings
' In all cases the right most part of Settings will be 1 character
' except when there are 1.5 stop bits.
If InStr(Settings, ".") > 0 Then
Offset = 2
Else
Offset = 0
End If
cboSpeed.Text = Left$(Settings, Len(Settings) - 6 - Offset)
Select Case Mid$(Settings, Len(Settings) - 4 - Offset, 1)
Case "e"
cboParity.ListIndex = 0
Case "m"
cboParity.ListIndex = 1
Case "n"
cboParity.ListIndex = 2
Case "o"
cboParity.ListIndex = 3
Case "s"
cboParity.ListIndex = 4
End Select
cboDataBits.Text = Mid$(Settings, Len(Settings) - 2 - Offset, 1)
cboStopBits.Text = Right$(Settings, 1 + Offset)
cboPort.ListIndex = frmTerminal.MSComm1.CommPort - 1
optFlow(frmTerminal.MSComm1.Handshaking).Value = True
If Echo Then
optEcho(1).Value = True
Else
optEcho(0).Value = True
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim OldPort As Integer, ReOpen As Boolean
On Error Resume Next
Echo = iTempEcho
OldPort = frmTerminal.MSComm1.CommPort
NewPort = cboPort.ListIndex + 1
If NewPort <> OldPort Then ' If the port number changes, close the old port.
If frmTerminal.MSComm1.PortOpen Then
frmTerminal.MSComm1.PortOpen = False
ReOpen = True
End If
frmTerminal.MSComm1.CommPort = NewPort ' Set the new port number.
If Err = 0 Then
If ReOpen Then
frmTerminal.MSComm1.PortOpen = True
frmTerminal.mnuOpen.Checked = frmTerminal.MSComm1.PortOpen
frmTerminal.tbrToolBar.Buttons("TransmitTextFile").Enabled = frmTerminal.MSComm1.PortOpen
End If
End If
If Err Then
MsgBox Error$, 48
frmTerminal.MSComm1.CommPort = OldPort
Exit Sub
End If
End If
frmTerminal.MSComm1.Settings = Trim$(cboSpeed.Text) & "," & Left$(cboParity.Text, 1) _
& "," & Trim$(cboDataBits.Text) & "," & Trim$(cboStopBits.Text)
If Err Then
MsgBox Error$, 48
Exit Sub
End If
frmTerminal.MSComm1.Handshaking = iFlow
If Err Then
MsgBox Error$, 48
Exit Sub
End If
SaveSetting App.Title, "端口設置", "傳輸屬性", frmTerminal.MSComm1.Settings
SaveSetting App.Title, "端口設置", "通訊端口號", frmTerminal.MSComm1.CommPort
SaveSetting App.Title, "端口設置", "通訊協議", frmTerminal.MSComm1.Handshaking
SaveSetting App.Title, "端口設置", "響應", Echo
Unload Me
End Sub
Private Sub Form_Load()
' Set the form's size
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
' Size the frame to fit in the tabstrip control
'fraSettings.Move tabSettings.ClientLeft, tabSettings.ClientTop
' Make sure the frame is the top most control
fraSettings.ZOrder
' Load current property settings
LoadPropertySettings
End Sub
Private Sub optEcho_Click(Index As Integer)
If Index = 1 Then
iTempEcho = True
Else
iTempEcho = False
End If
End Sub
Private Sub optFlow_Click(Index As Integer)
iFlow = Index
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -