打印本文 打印本文 关闭窗口 关闭窗口
用VB6.0自制压缩与解压缩程序(二)
作者:武汉SEO闵涛  文章来源:敏韬网  点击数5613  更新时间:2009/4/23 15:43:21  文章录入:mintao  责任编辑:mintao

 

用记事本打开frmLogin.frm文件,copy以下内容到其中:

 

VERSION 5.00

Begin VB.Form frmLogin

   BorderStyle     =   3  ''''Fixed Dialog

   Caption         =   "登录"

   ClientHeight    =   1545

   ClientLeft      =   2835

   ClientTop       =   3480

   ClientWidth     =   3750

   Icon            =   "frmLogin.frx":0000

   LinkTopic       =   "Form1"

   LockControls    =   -1  ''''True

   MaxButton       =   0   ''''False

   MinButton       =   0   ''''False

   ScaleHeight     =   912.837

   ScaleMode       =   0  ''''User

   ScaleWidth      =   3521.047

   ShowInTaskbar   =   0   ''''False

   StartUpPosition =   2  ''''屏幕中心

   Begin VB.TextBox txtUserName

      Height          =   345

      Left            =   1290

      TabIndex        =   1

      Text            =   "123"

      Top             =   135

      Width           =   2325

   End

   Begin VB.CommandButton cmdOK

      Caption         =   "确定"

      Default         =   -1  ''''True

      Height          =   390

      Left            =   495

      TabIndex        =   4

      Top             =   1020

      Width           =   1140

   End

   Begin VB.CommandButton cmdCancel

      Cancel          =   -1  ''''True

      Caption         =   "取消"

      Height          =   390

      Left            =   2100

      TabIndex        =   5

      Top             =   1020

      Width           =   1140

   End

   Begin VB.TextBox txtPassword

      Height          =   345

      IMEMode         =   3  ''''DISABLE

      Left            =   1290

      PasswordChar    =   "*"

      TabIndex        =   3

      Text            =   "123"

      Top             =   525

      Width           =   2325

   End

   Begin VB.Label lblLabels

      Caption         =   "用户名称(&U):"

      Height          =   270

      Index           =   0

      Left            =   105

      TabIndex        =   0

      Top             =   150

      Width           =   1080

   End

   Begin VB.Label lblLabels

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >> 

打印本文 打印本文 关闭窗口 关闭窗口