propertypagecom.pag

来自「通过手机串口发送短信的VB控件代码,在NOKIA等手机上已经通过测试.」· PAG 代码 · 共 142 行

VERSION 5.00
Begin VB.PropertyPage PropertyPageCom 
   Caption         =   "手机Modem设置"
   ClientHeight    =   1395
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5625
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   1395
   ScaleWidth      =   5625
   Begin VB.ComboBox CmbPortName 
      Height          =   300
      Left            =   1560
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   240
      Width           =   2535
   End
   Begin VB.ComboBox cmbBaud 
      Height          =   300
      Left            =   1560
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   840
      Width           =   2535
   End
   Begin VB.Label Label2 
      Caption         =   "串口属性："
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "串口："
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "PropertyPageCom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub cmbBaud_Change()
    On Error Resume Next
    Changed = True
End Sub

Private Sub cmbBaud_Click()
    Changed = True
End Sub

Private Sub CmbPortName_Change()
    On Error Resume Next
    Changed = True
End Sub

Private Sub CmbPortName_Click()
    Changed = True
End Sub

Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).CommPort = CmbPortName.ListIndex + 1
    SelectedControls(0).Settings = cmbBaud.Text
End Sub

Private Sub PropertyPage_Initialize()
    With CmbPortName
        .Clear
        .AddItem "COM1"
        .AddItem "COM2"
        .AddItem "COM3"
        .AddItem "COM4"
        .AddItem "COM5"
        .AddItem "COM6"
        .AddItem "COM7"
        .AddItem "COM8"
        .AddItem "COM9"
        .AddItem "COM10"
        .AddItem "COM11"
        .AddItem "COM12"
        .AddItem "COM13"
        .AddItem "COM14"
        .AddItem "COM15"
        .AddItem "COM16"
        .ListIndex = 0
    End With

    With cmbBaud
        .Clear
        .AddItem "4800" & ",N,8,1"
        .AddItem "9600" & ",N,8,1"
        .AddItem "19200" & ",N,8,1"
        .AddItem "38400" & ",N,8,1"
        .AddItem "57600" & ",N,8,1"
        .AddItem "115200" & ",N,8,1"
        .ListIndex = 1
    End With
'    CmbPortName.ListIndex = SelectedControls(0).CommPort - 1
''    Dim strSetting As String
'    strSetting = SelectedControls(0).Settings
'    Dim i As Integer
'    For i = 0 To cmbBaud.ListCount - 1
'        If cmbBaud.List(i) = strSetting Then
'
'            Exit For
'        End If
'    Next i
'    cmbBaud.ListIndex = i
End Sub


Private Sub PropertyPage_SelectionChanged()
'
    CmbPortName.ListIndex = SelectedControls(0).CommPort - 1
    Dim strSetting As String
    strSetting = SelectedControls(0).Settings
    Dim i As Integer
    Dim bFound As Boolean
    bFound = False
    For i = 0 To cmbBaud.ListCount - 1
        If UCase(cmbBaud.List(i)) = UCase(strSetting) Then
            bFound = True
            Exit For
        End If
    Next i
    If bFound = True Then
        cmbBaud.ListIndex = i
    Else
        cmbBaud.ListIndex = 1
    End If

    
End Sub