通用.pag

非常好的串口控件

VERSION 5.00
Begin VB.PropertyPage 通用 
   Caption         =   "通用"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.ComboBox cbFlowControl 
      Height          =   300
      ItemData        =   "通用.pgx":0000
      Left            =   1260
      List            =   "通用.pgx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   2040
      Width           =   2655
   End
   Begin VB.ComboBox cbStopBits 
      Height          =   300
      ItemData        =   "通用.pgx":0004
      Left            =   1260
      List            =   "通用.pgx":0006
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   1656
      Width           =   2655
   End
   Begin VB.ComboBox cbByteSize 
      Height          =   300
      ItemData        =   "通用.pgx":0008
      Left            =   1260
      List            =   "通用.pgx":000A
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   1272
      Width           =   2655
   End
   Begin VB.ComboBox cbParity 
      Height          =   300
      ItemData        =   "通用.pgx":000C
      Left            =   1260
      List            =   "通用.pgx":001F
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   888
      Width           =   2655
   End
   Begin VB.ComboBox cbBaudRate 
      Height          =   300
      ItemData        =   "通用.pgx":0041
      Left            =   1260
      List            =   "通用.pgx":0081
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   504
      Width           =   2655
   End
   Begin VB.ComboBox cbPort 
      Height          =   300
      ItemData        =   "通用.pgx":00FF
      Left            =   1260
      List            =   "通用.pgx":0101
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   120
      Width           =   2655
   End
   Begin VB.CheckBox chDtr 
      Caption         =   "DTR 有效"
      Height          =   300
      Left            =   180
      TabIndex        =   1
      Top             =   2640
      Width           =   1092
   End
   Begin VB.CheckBox chRts 
      Caption         =   "RTS 有效"
      Height          =   300
      Left            =   2340
      TabIndex        =   0
      Top             =   2640
      Width           =   1092
   End
   Begin VB.Label Label6 
      Caption         =   "流控制："
      Height          =   300
      Left            =   180
      TabIndex        =   12
      Top             =   2040
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "停止位："
      Height          =   300
      Left            =   180
      TabIndex        =   11
      Top             =   1656
      Width           =   1095
   End
   Begin VB.Label Label4 
      Caption         =   "数据位："
      Height          =   300
      Left            =   180
      TabIndex        =   10
      Top             =   1272
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "校验位："
      Height          =   300
      Left            =   180
      TabIndex        =   9
      Top             =   888
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "波特率："
      Height          =   300
      Left            =   180
      TabIndex        =   8
      Top             =   504
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "端口号："
      Height          =   300
      Left            =   180
      TabIndex        =   7
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "通用"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit



Private Sub cbBaudRate_Click()
    Changed = True
End Sub

Private Sub cbByteSize_click()
    Changed = True
End Sub

Private Sub cbFlowControl_click()
    Changed = True
End Sub

Private Sub cbParity_click()
    Changed = True
End Sub

Private Sub cbPort_click()
    Changed = True
End Sub

Private Sub cbStopBits_click()
    Changed = True
End Sub

Private Sub chDtr_Click()
    Changed = True
End Sub

Private Sub chRts_Click()
    Changed = True
End Sub

Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).FlowControl = cbFlowControl.ListIndex
    SelectedControls(0).Rts = chRts.Value
    SelectedControls(0).Dtr = chDtr.Value
    SelectedControls(0).StopBits = cbStopBits.ListIndex
    SelectedControls(0).DataBits = cbByteSize.ListIndex
    SelectedControls(0).Parity = cbParity.ListIndex
    SelectedControls(0).BaudRate = cbBaudRate.ListIndex
    SelectedControls(0).port = cbPort.ListIndex
End Sub

Private Sub PropertyPage_Initialize()
    Dim nI As Integer
    cbPort.Clear
    For nI = 1 To 255
        cbPort.AddItem "COM" & nI
    Next nI
    
    cbBaudRate.Clear
    cbBaudRate.AddItem "50"
    cbBaudRate.AddItem "75"
    cbBaudRate.AddItem "110"
    cbBaudRate.AddItem "134"
    cbBaudRate.AddItem "150"
    cbBaudRate.AddItem "300"
    cbBaudRate.AddItem "600"
    cbBaudRate.AddItem "1200"
    cbBaudRate.AddItem "1800"
    cbBaudRate.AddItem "2400"
    cbBaudRate.AddItem "4800"
    cbBaudRate.AddItem "7200"
    cbBaudRate.AddItem "9600"
    cbBaudRate.AddItem "19200"
    cbBaudRate.AddItem "38400"
    cbBaudRate.AddItem "57600"
    cbBaudRate.AddItem "115200"
    cbBaudRate.AddItem "230400"
    cbBaudRate.AddItem "460800"
    cbBaudRate.AddItem "921600"
    
    cbParity.Clear
    cbParity.AddItem "无"
    cbParity.AddItem "奇校验"
    cbParity.AddItem "偶校验"
    cbParity.AddItem "标记"
    cbParity.AddItem "空格"
    
    cbByteSize.Clear
    cbByteSize.AddItem "5"
    cbByteSize.AddItem "6"
    cbByteSize.AddItem "7"
    cbByteSize.AddItem "8"

    cbStopBits.Clear
    cbStopBits.AddItem "1"
    cbStopBits.AddItem "2"

    cbFlowControl.Clear
    cbFlowControl.AddItem "无"
    cbFlowControl.AddItem "Xon/Xoff"
    cbFlowControl.AddItem "RTS/CTS"
    
End Sub

Private Sub PropertyPage_SelectionChanged()
    cbFlowControl.ListIndex = SelectedControls(0).FlowControl
    chRts.Value = SelectedControls(0).Rts
    chDtr.Value = SelectedControls(0).Dtr
    cbStopBits.ListIndex = SelectedControls(0).StopBits
    cbByteSize.ListIndex = SelectedControls(0).DataBits
    cbParity.ListIndex = SelectedControls(0).Parity
    cbBaudRate.ListIndex = SelectedControls(0).BaudRate
    cbPort.ListIndex = SelectedControls(0).port
End Sub