form4.frm

软件用到的技巧：透明窗体

VERSION 5.00
Object = "{F2446D5D-39E8-4596-85A2-1D21FC5D9D52}#1.0#0"; "AutoPY.ocx"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form FrmRenAdd 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "添加联系人资料"
   ClientHeight    =   6000
   ClientLeft      =   3615
   ClientTop       =   3390
   ClientWidth     =   6660
   LinkTopic       =   "Form4"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6000
   ScaleWidth      =   6660
   ShowInTaskbar   =   0   'False
   Begin 自动拼音转换控件.AutoPY AutoPY1 
      Height          =   1455
      Left            =   780
      TabIndex        =   36
      Top             =   5445
      Visible         =   0   'False
      Width           =   4365
      _ExtentX        =   7699
      _ExtentY        =   2566
      ok              =   0   'False
   End
   Begin CSCommand.Command Command2 
      Height          =   375
      Left            =   5250
      TabIndex        =   16
      Top             =   5445
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      IconAlign       =   0
      Icon            =   "Form4.frx":0000
      Caption         =   "保存 &S"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Frame Frame1 
      Caption         =   "个人资料"
      Height          =   2265
      Left            =   225
      TabIndex        =   0
      Top             =   180
      Width           =   6210
      Begin VB.TextBox Text15 
         Height          =   270
         Left            =   1155
         TabIndex        =   9
         Text            =   "Text15"
         Top             =   1830
         Width           =   4920
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "Form4.frx":001C
         Left            =   4110
         List            =   "Form4.frx":0029
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   1440
         Width           =   1965
      End
      Begin VB.TextBox Text14 
         Height          =   270
         Left            =   1155
         TabIndex        =   7
         Text            =   "Text14"
         Top             =   1455
         Width           =   2130
      End
      Begin VB.TextBox Text6 
         Height          =   270
         Left            =   4110
         TabIndex        =   6
         Text            =   "Text6"
         Top             =   1065
         Width           =   1950
      End
      Begin VB.TextBox Text5 
         Height          =   270
         Left            =   1155
         TabIndex        =   5
         Text            =   "Text5"
         Top             =   1080
         Width           =   2130
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Left            =   4110
         TabIndex        =   4
         Text            =   "Text4"
         Top             =   690
         Width           =   1950
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   1155
         TabIndex        =   3
         Text            =   "Text3"
         Top             =   705
         Width           =   2130
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   4110
         TabIndex        =   2
         Text            =   "Text2"
         Top             =   315
         Width           =   1950
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   1155
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   330
         Width           =   2130
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "家庭地址："
         Height          =   165
         Left            =   270
         TabIndex        =   35
         Top             =   1875
         Width           =   900
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "家庭电话："
         Height          =   180
         Left            =   270
         TabIndex        =   34
         Top             =   1500
         Width           =   900
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "性  别："
         Height          =   180
         Left            =   3390
         TabIndex        =   33
         Top             =   1500
         Width           =   720
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "QQ号码："
         Height          =   180
         Left            =   3390
         TabIndex        =   22
         Top             =   1140
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "电子信箱："
         Height          =   180
         Left            =   270
         TabIndex        =   21
         Top             =   1125
         Width           =   900
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "小灵通："
         Height          =   180
         Left            =   3375
         TabIndex        =   20
         Top             =   735
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "助记码："
         Height          =   180
         Left            =   3390
         TabIndex        =   19
         Top             =   375
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "手机号码："
         Height          =   180
         Left            =   270
         TabIndex        =   18
         Top             =   750
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "姓    名："
         Height          =   180
         Left            =   285
         TabIndex        =   17
         Top             =   375
         Width           =   900
      End
   End
   Begin VB.Frame Frame2 
      Height          =   630
      Left            =   225
      TabIndex        =   23
      Top             =   2490
      Width           =   6210
      Begin CSCommand.Command Command1 
         Height          =   345
         Left            =   5370
         TabIndex        =   10
         Top             =   180
         Width           =   750
         _ExtentX        =   1323
         _ExtentY        =   609
         IconAlign       =   0
         Icon            =   "Form4.frx":0037
         Caption         =   "▲"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.TextBox Text13 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1740
         TabIndex        =   32
         Text            =   "Text13"
         Top             =   210
         Width           =   3480
      End
      Begin VB.TextBox Text7 
         Alignment       =   2  'Center
         Enabled         =   0   'False
         Height          =   285