frmmasked.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmMasked 
   Caption         =   "Fig. 10.13: MaskEdit"
   ClientHeight    =   1470
   ClientLeft      =   2850
   ClientTop       =   2850
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1470
   ScaleWidth      =   4680
   Begin MSMask.MaskEdBox maskEdit 
      Height          =   375
      Left            =   2880
      TabIndex        =   1
      Top             =   120
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   661
      _Version        =   393216
      AutoTab         =   -1  'True
      MaxLength       =   14
      Mask            =   "(###) ###-####"
      PromptChar      =   "_"
   End
   Begin VB.CommandButton cmdDial 
      Caption         =   "Dial"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label lblPrompt 
      Caption         =   "Enter a phone number and click Dial:"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   195
      Width           =   2655
   End
End
Attribute VB_Name = "frmMasked"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit