propertypagesms.pag

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

VERSION 5.00
Begin VB.PropertyPage PropertyPageSMS 
   Caption         =   "短信设置"
   ClientHeight    =   1395
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5625
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   1395
   ScaleWidth      =   5625
   Begin VB.TextBox txtSmsc 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   375
      Left            =   1680
      MaxLength       =   14
      TabIndex        =   0
      Top             =   240
      Width           =   2775
   End
   Begin VB.Label Label1 
      Caption         =   "短信中心号码："
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   1455
   End
End
Attribute VB_Name = "PropertyPageSMS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).SMSC = txtSmsc.Text

End Sub

Private Sub PropertyPage_Initialize()
'     txtSmsc.Text = SelectedControls(0).SMSC
End Sub

Private Sub PropertyPage_SelectionChanged()
    txtSmsc.Text = SelectedControls(0).SMSC
End Sub

Private Sub txtSmsc_Change()
    On Error Resume Next
    If isNum(txtSmsc.Text) Then
        Changed = True
    End If

    
End Sub