frm_bzxx_gy.frm

来自「生产管理系统 (VB+SQL Server 2000）在使用本系统的第二套、第三」· FRM 代码 · 共 114 行

VERSION 5.00
Begin VB.Form Frm_Bzxx_Gy 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于我的应用程序"
   ClientHeight    =   4440
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   6180
   ClipControls    =   0   'False
   Icon            =   "Frm_Bzxx_Gy.frx":0000
   LinkTopic       =   "Form2"
   MinButton       =   0   'False
   ScaleHeight     =   3064.567
   ScaleMode       =   0  'User
   ScaleWidth      =   5803.339
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Cmd_Ok 
      Caption         =   "确定"
      Height          =   398
      Left            =   4110
      TabIndex        =   3
      Top             =   3825
      Width           =   958
   End
   Begin VB.Image imaIcon 
      Height          =   735
      Left            =   195
      Stretch         =   -1  'True
      Top             =   285
      Width           =   870
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   1281.805
      X2              =   5596.748
      Y1              =   2515.844
      Y2              =   2515.844
   End
   Begin VB.Label lblDes 
      Caption         =   "应用程序描述"
      ForeColor       =   &H00000000&
      Height          =   1575
      Left            =   1305
      TabIndex        =   0
      Top             =   1935
      Width           =   3885
   End
   Begin VB.Label lblTitle 
      Caption         =   "应用程序标题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   345
      Left            =   1305
      TabIndex        =   1
      Top             =   225
      Width           =   4950
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   1281.805
      X2              =   5596.748
      Y1              =   2526.197
      Y2              =   2515.844
   End
   Begin VB.Label lblVersion 
      Caption         =   "版本"
      Height          =   585
      Left            =   1305
      TabIndex        =   2
      Top             =   660
      Width           =   3885
   End
End
Attribute VB_Name = "Frm_Bzxx_Gy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Cmd_Ok_Click()
 Unload Me
End Sub

Private Sub Form_Load()
  Me.Caption = "关于 " & App.Title
  lblTitle.Caption = Frm_Main.Caption
  imaIcon.Picture = Frm_Main.Icon
  lblVersion.Caption = "FOR WINDOWS 9X/2000/NT" _
                       & Chr(10) & "Copyright [C] 2006-2007"
  lblDes.Caption = "信息技术系  出品" _
                  & Chr(10) & Chr(10) & "地址：常州市武进区大学城滆湖中路5号2C409室" _
                  & Chr(10) & Chr(10) & "电话：[phone]" _
                  & Chr(10) & Chr(10) & "网址：http://www.cztgi.edu.cn"
                            
End Sub


Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub