通信端口属性

1、Private iFlow As Integer,iTemEcho As BooleanSub LoadPropertySettings()Dim i As Integer,Settings As String,Offset As Integer,For i = 1 To 16cboPort.AddItem "Com" & Trim$(Str$(i)Next iLoad Speed settingscboSpeed.AddItem "110"cboSpeed.AddItem "300"cboSpeed.AddItem &quo

2、t;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 &quo

3、t;56000"cboSpeed.AddItem "57600"cboSpeed.AddItem "115200"cboSpeed.AddItem "128000"cboSpeed.AddItem "256000"cboDataBits.AddItem "4"cboDataBits.AddItem "5"cboDataBits.AddItem "6"cboDataBits.AddItem "7"cboDataBits.AddI

4、tem "8"cboParity.AddItem "Even"cboParity.AddItem "Odd"cboParity.AddItem "None"cboParity.AddItem "Mark"cboParity.AddItem "Space"cboStopBits.AddItem "1"cboStopBits.AddItem "1.5"cboStopBits.AddItem "2"Settings = f

5、orm1.MSComm1.Settings1.5If InStr(Settings,".") > 0 ThenOffset = 2ElseOffset = 0End IfcboSpeed.text = Left$(Settings,Len(Settings)- 6 - offset)Select Case Mid$(Setting,Len(Setting) - 4 - offset,1)Case "e"cboparity.ListIndex = 0Case "e"cboparity.ListIndex = 1Case "

6、;n"cboparity.ListIndex = 2Case "o"cboparity.ListIndex = 3Case "s"cboparity.ListIndex = 4End SelectcboDataBits.text = Mid$(Settings,Len(Settings) - 2 - Offset,1)cboStopBits.text = Right$(Settings, 1 + Offset)cboPort.ListIndex = form1.MSComm1.Commport - 1optFlow (form1.MSComm1

7、.Handshaking).Value = TrueIf Echo ThenoptEcho(1).Value = TrueElseoptEcho(0).Value = TrueEnd IfEnd SubPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim OldPort As Integer, ReOpen As BoleanOn Error Resume NextEcho = iTempEchoOldPort = form1.MSComm1.CommportNewPort = cboPort.Lis

8、tIndex + 1If NewPort <> OldPort Then If form1.MSComm1.PortOpen Thenform1.MSComm1. PortOpen = FalseReOpen = TrueEnd Ifform1.MSComm1.CommPort = NewPort If Err = 0 ThenIf ReOpen Thenform1.MSComm1. PortOpen = TrueForm1.mnuOpen.Checked = Form1.MSComm1. PortOpenFrom1.mnuSendText .Enabled = Form1.MSC

9、omm1. PortOpenFrom1.tbrToolBar.Buttons(TransmitTexFile).Enabled = Form1.MSComm1. PortOpenEnd IfEnd IfIf Err ThenMsgBox Error$,48form1.MSComm1. PortOpen = OldPortExit SubEnd IfEnd Ifform1.MSComm1. Settings = Trim$(cboSpeed.text) & , & Left$(cboParity.text,1) & , Trm$(cboDataBits.text) &am

10、p; , & Trim$(cboStopBits.text)If Err ThenMsgBox Error$.48Exit SubEnd Ifform1.MSComm1. Handshaking = iFlowIf Err ThenSaveSetting App.Title, form1.MSComm1. SettingsSaveSetting App.Title, form1.MSComm1.CommPortSaveSetting App.Title, form1.MSComm1.HandshakingSaveSetting App.Title, EchoForm1.Command1.Enabled = TrueUnload MeEnd SubPrivate Sub Form_Load()Me.Left = (Screen.Width C Me .width) / 2Me.Top = (Screen.Height C Me Height ) / 2fraSettings.Move tabSettings.ClientLeft, tabSettings.ClientTopfraSettings.ZOrderLoadPropertySettingsEnd SubPrivate