⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmeditbirthremind.frm

📁 很好的个人数字助理软件代码
💻 FRM
📖 第 1 页 / 共 2 页
字号:
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 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -