【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-frmEditBirthRemind.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
    Begin VB.Form frmEditBirthRemind 
       BorderStyle     =   0  'None
       Caption         =   "Hirdhav Digital Diary - Edit Birthday Reminder"
       ClientHeight    =   4095
       ClientLeft      =   0
       ClientTop       =   0
       ClientWidth     =   5175
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   9
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00000000&
       Icon            =   "frmEditBirthRemind.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   4095
       ScaleWidth      =   5175
       StartUpPosition =   2  'CenterScreen
       Begin VB.TextBox txtName 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   0
          Top             =   470
          Width           =   2415
       End
       Begin VB.TextBox txtPHNo 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   7
          Top             =   2390
          Width           =   2415
       End
       Begin VB.TextBox txtEMail 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   1920
          TabIndex        =   9
          Top             =   2870
          Width           =   2415
       End
       Begin VB.TextBox txtAP 
          Appearance      =   0  'Flat
          Height          =   285
          Left            =   3720
          MaxLength       =   2
          TabIndex        =   6
          Text            =   "AM/PM"
          Top             =   1910
          Width           =   735
       End
       Begin MSMask.MaskEdBox txtRDate 
          Height          =   285
          Left            =   1920
          TabIndex        =   2
          Top             =   1430
          Width           =   1215
          _ExtentX        =   2143
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   10
          Mask            =   "##/##/####"
          PromptChar      =   "_"
       End
       Begin MSMask.MaskEdBox txtBDate 
          Height          =   285
          Left            =   1920
          TabIndex        =   1
          Top             =   950
          Width           =   1215
          _ExtentX        =   2143
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   10
          Mask            =   "##/##/####"
          PromptChar      =   "_"
       End
       Begin MSMask.MaskEdBox txtSS 
          Height          =   285
          Left            =   3120
          TabIndex        =   5
          Top             =   1910
          Width           =   375
          _ExtentX        =   661
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   2
          Mask            =   "##"
          PromptChar      =   "_"
       End
       Begin MSMask.MaskEdBox txtMM 
          Height          =   285
          Left            =   2520
          TabIndex        =   4
          Top             =   1910
          Width           =   375
          _ExtentX        =   661
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   2
          Mask            =   "##"
          PromptChar      =   "_"
       End
       Begin MSMask.MaskEdBox txtHH 
          Height          =   285
          Left            =   1920
          TabIndex        =   3
          Top             =   1910
          Width           =   375
          _ExtentX        =   661
          _ExtentY        =   503
          _Version        =   393216
          Appearance      =   0
          MaxLength       =   2
          Mask            =   "##"
          PromptChar      =   "_"
       End
       Begin VB.Label lblCaptionSupport 
          BackStyle       =   0  'Transparent
          Height          =   255
          Left            =   0
          TabIndex        =   24
          Top             =   0
          Width           =   6255
       End
       Begin VB.Label lblCancelSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   3120
          TabIndex        =   11
          Top             =   3480
          Width           =   1455
       End
       Begin VB.Label lblEditSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   600
          TabIndex        =   12
          Top             =   3480
          Width           =   1455
       End
       Begin VB.Label lblCaption 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hirdhav Digital Diary  -  Edit Birthday Reminder"
          Height          =   225
          Left            =   195
          TabIndex        =   23
          Top             =   15
          Width           =   3870
       End
       Begin VB.Line Line1 
          BorderWidth     =   2
          X1              =   20
          X2              =   20
          Y1              =   230
          Y2              =   4070
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   ":"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   1320
          TabIndex        =   22
          Top             =   465
          Width           =   405
       End
       Begin VB.Label Label2 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "生日:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   1320
          TabIndex        =   21
          Top             =   945
          Width           =   405
       End
       Begin VB.Label Label3 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "提醒日期:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   930
          TabIndex        =   20
          Top             =   1425
          Width           =   765
       End
       Begin VB.Label Label4 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "提醒时间:"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   9
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   225
          Left            =   930
          TabIndex        =   19
          Top             =   1905
          Width           =   765
       End
       Begin VB.Label Label5 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   ":"
          Height          =   225
          Left            =   2400
          TabIndex        =   18
          Top             =   1910
          Width           =   45
       End
       Begin VB.Label Label6 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   ":"
          Height          =   225
          Left            =   3000
          TabIndex        =   17
          Top             =   1910
          Width           =   45
       End
       Begin VB.Label Label7 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "电话