frmsetting.frm

通过手机串口发送短信的VB控件代码,在NOKIA等手机上已经通过测试.

VERSION 5.00
Begin VB.Form frmSetting 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "设置"
   ClientHeight    =   2655
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   495
      Left            =   1680
      TabIndex        =   7
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   495
      Left            =   3120
      TabIndex        =   6
      Top             =   1920
      Width           =   1215
   End
   Begin VB.TextBox txtSmsc 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   1560
      MaxLength       =   14
      TabIndex        =   4
      Top             =   1200
      Width           =   2775
   End
   Begin VB.ComboBox cmbBaud 
      Height          =   300
      Left            =   1560
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   600
      Width           =   2775
   End
   Begin VB.ComboBox CmbPortName 
      Height          =   300
      Left            =   1560
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label Label3 
      Caption         =   "短信中心号码："
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   1200
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "端口号："
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "端口属性："
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   600
      Width           =   975
   End
End
Attribute VB_Name = "frmSetting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
'    MSComm1.CommPort = CmbPortName.ListIndex - 1
'    UserControl1.MSComm1.Settings = cmbBaud.Text

    Unload Me
End Sub

Private Sub Form_Load()
    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 = UserControl.MSComm1.CommPort - 1
'    Dim strSetting As String
''    strSetting = UserControl.MSComm1.Settings
'    Dim i As Integer
'    For i = 0 To cmbBaud.ListCount - 1
'        If cmbBaud.List(i) = strSetting Then
'
'            Exit For
'        End If
'    Next i
'    CmbPortName.ListIndex = i
''    Me.txtSmsc.Text = m_SMSC
End Sub