frminfo.frm

来自「Com串口即时通讯工具.有服务端和客启端..是学习的好程度!」· FRM 代码 · 共 139 行

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Begin VB.Form frmInfo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用户信息"
   ClientHeight    =   3270
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3750
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   3750
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text6 
      BackColor       =   &H8000000C&
      Height          =   285
      Left            =   240
      TabIndex        =   11
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   2160
      TabIndex        =   9
      Top             =   2280
      Width           =   1335
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H8000000C&
      Height          =   285
      Left            =   240
      TabIndex        =   3
      Top             =   2880
      Width           =   3255
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H8000000C&
      Height          =   285
      Left            =   240
      TabIndex        =   2
      Top             =   2280
      Width           =   495
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H8000000C&
      Height          =   285
      Left            =   240
      TabIndex        =   1
      Top             =   1680
      Width           =   1815
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H8000000C&
      Height          =   285
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   1815
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   1695
      Left            =   2160
      TabIndex        =   12
      Top             =   480
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   2990
      _Version        =   393217
      BackColor       =   -2147483636
      Enabled         =   -1  'True
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      TextRTF         =   $"frmInfo.frx":0000
   End
   Begin VB.Label Label6 
      Caption         =   "性别"
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label5 
      Caption         =   "关于:"
      Height          =   255
      Left            =   2160
      TabIndex        =   8
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "主页地址"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   2640
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "年龄:"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "出生日期:"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "国家"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   240
      Width           =   1215
   End
End
Attribute VB_Name = "frmInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'================
'查看用户信息确认窗体
'================
Private Sub Command1_Click()
    Me.Hide
End Sub