【VB开源代码栏目提醒】:本文主要为网学会员提供9.3.21.frm，希望对需要9.3.21.frm网友有所帮助，学习一下!

    VERSION 5.00
    Begin VB.Form Form5 
       Caption         =   "GetFocus事件和LostFocus事件"
       ClientHeight    =   3825
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4890
       LinkTopic       =   "Form5"
       ScaleHeight     =   3825
       ScaleWidth      =   4890
       StartUpPosition =   2  '屏幕中心
       Begin VB.TextBox Text3 
          Height          =   375
          Left            =   2160
          TabIndex        =   6
          Text            =   "Text1"
          Top             =   1800
          Width           =   1455
       End
       Begin VB.TextBox Text2 
          Height          =   375
          Left            =   2160
          TabIndex        =   5
          Text            =   "Text1"
          Top             =   360
          Width           =   1455
       End
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   2160
          TabIndex        =   4
          Text            =   "Text1"
          Top             =   1080
          Width           =   1455
       End
       Begin VB.CommandButton Command1 
          Caption         =   "确定"
          Height          =   495
          Left            =   1800
          TabIndex        =   3
          Top             =   2760
          Width           =   1215
       End
       Begin VB.Label Label3 
          Caption         =   "性别:"
          Height          =   375
          Left            =   1080
          TabIndex        =   2
          Top             =   1800
          Width           =   975
       End
       Begin VB.Label Label2 
          Caption         =   "年龄:"
          Height          =   375
          Left            =   1080
          TabIndex        =   1
          Top             =   1080
          Width           =   975
       End
       Begin VB.Label Label1 
          Caption         =   ":"
          Height          =   375
          Left            =   1080
          TabIndex        =   0
          Top             =   360
          Width           =   975
       End
    End
    Attribute VB_Name = "Form5"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Text1_GotFocus()
    MsgBox "该文本框内只能输入数字"
    End Sub
    
    

上一篇：9.3.2.frm
下一篇：法律专业开题报告范文