frmcommprops.frm

交通电子拍照管理系统 交通电子拍照管理系统

            Height          =   255
            Index           =   0
            Left            =   180
            MaskColor       =   &H00000000&
            TabIndex        =   5
            Top             =   315
            Width           =   855
         End
         Begin VB.OptionButton optFlow 
            Caption         =   "Xon/Xoff"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   1
            Left            =   180
            MaskColor       =   &H00000000&
            TabIndex        =   6
            Top             =   645
            Width           =   1095
         End
         Begin VB.OptionButton optFlow 
            Caption         =   "RTS"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   2
            Left            =   180
            MaskColor       =   &H00000000&
            TabIndex        =   7
            Top             =   990
            Value           =   -1  'True
            Width           =   735
         End
         Begin VB.OptionButton optFlow 
            Caption         =   "Xon/RTS"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   3
            Left            =   180
            MaskColor       =   &H00000000&
            TabIndex        =   8
            Top             =   1320
            Width           =   1155
         End
      End
      Begin VB.Label Label1 
         Caption         =   "串口："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   312
         Left            =   216
         TabIndex        =   14
         Top             =   180
         Width           =   612
      End
   End
   Begin MSComctlLib.TabStrip tabSettings 
      Height          =   3975
      Left            =   120
      TabIndex        =   19
      Top             =   120
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   7011
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   1
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "属性"
            ImageVarType    =   2
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmCommProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public frmComm As Form

' Load Port Settings to Choose
Public Sub LoadPropertySettings()
Dim i As Integer, Offset As Integer

For i = 1 To 16
    cboPort.AddItem "Com" & Trim$(Str$(i))
Next i
cboPort.ListIndex = 1

' 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"
cboSpeed.AddItem "384000"
cboSpeed.ListIndex = 11

' Load Data Bit Settings
cboDataBits.AddItem "4"
cboDataBits.AddItem "5"
cboDataBits.AddItem "6"
cboDataBits.AddItem "7"
cboDataBits.AddItem "8"
cboDataBits.ListIndex = 4

' Load Parity Settings
cboParity.AddItem "Even"
cboParity.AddItem "Odd"
cboParity.AddItem "None"
cboParity.AddItem "Mark"
cboParity.AddItem "Space"
cboParity.ListIndex = 2

' Load Stop Bit Settings
cboStopBits.AddItem "1"
cboStopBits.AddItem "1.5"
cboStopBits.AddItem "2"
cboStopBits.ListIndex = 0


' Set Default Settings
Dim Settings As String
Settings = GetSetting("通讯端口设置", "Properties", "Settings", "")
If Settings <> "" Then       '已保存到过注册表
Else
    Settings = frmComm.MSComm1.Settings     '取默认配置
End If

If Settings <> "" Then   '找到可用Settings
    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 = Mid(Settings, Len(Settings) - Offset)
    cboPort.ListIndex = frmComm.MSComm1.commPort - 1
    optFlow(frmComm.MSComm1.Handshaking).Value = True
End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
Dim OldPort As Integer, NewPort As Integer, ReOpen As Boolean
Dim t As Integer

On Error Resume Next

OldPort = frmComm.MSComm1.commPort
NewPort = cboPort.ListIndex + 1

If NewPort <> OldPort Then  ' If the port number changes, close the old port.
        If frmComm.MSComm1.PortOpen = True Then
           frmComm.MSComm1.PortOpen = False
           ReOpen = True
        End If
        
        ' Set the new port number.
        frmComm.MSComm1.commPort = NewPort
    
        If Err = 0 Then
            If ReOpen Then
                frmComm.MSComm1.PortOpen = True
            End If
        End If
        
        If Err Then
            MsgBox Error$, 48
            frmComm.MSComm1.commPort = OldPort
            Exit Sub
        End If
End If

frmComm.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

Dim i As Integer
For i = 0 To 3
    If optFlow(i).Value = True Then
        frmComm.MSComm1.Handshaking = i
        Exit For
    End If
Next i

If Err Then
    MsgBox Error$, 48
    Exit Sub
End If

SaveSetting "通讯端口设置", "Properties", "Settings", frmComm.MSComm1.Settings
SaveSetting "通讯端口设置", "Properties", "CommPort", frmComm.MSComm1.commPort
SaveSetting "通讯端口设置", "Properties", "Handshaking", frmComm.MSComm1.Handshaking

frmComm.bCommSetOK = True
Unload Me

End Sub