about.frm

计算机网络课程设计--局域网聊天系统(VB开发的有源程序和完整的报告)

VERSION 5.00
Begin VB.Form About 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于 HeroChat Server"
   ClientHeight    =   4560
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6405
   Icon            =   "about.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   6405
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture1 
      Height          =   780
      Left            =   360
      Picture         =   "about.frx":0ECA
      ScaleHeight     =   720
      ScaleWidth      =   720
      TabIndex        =   8
      Top             =   960
      Width           =   780
   End
   Begin VB.PictureBox Picture2 
      Height          =   2160
      Left            =   3960
      Picture         =   "about.frx":330E
      ScaleHeight     =   2100
      ScaleWidth      =   2235
      TabIndex        =   7
      ToolTipText     =   "感谢对本软件的支持"
      Top             =   720
      Width           =   2295
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   3960
      Width           =   1215
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   3
      X1              =   0
      X2              =   6360
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   2
      X1              =   0
      X2              =   6360
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Label CrLabel6 
      Caption         =   "E-Mail:"
      Height          =   255
      Left            =   1560
      TabIndex        =   6
      Top             =   2520
      Width           =   600
   End
   Begin VB.Label CrLabel3 
      Caption         =   "HeroChat Server 0.5"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   1560
      TabIndex        =   5
      Top             =   960
      Width           =   1935
   End
   Begin VB.Label CrLabel5 
      Caption         =   "Copyright (C) 1995-2007 Hero Fan, Inc."
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   840
      TabIndex        =   4
      ToolTipText     =   "版权归作者所有"
      Top             =   3000
      UseMnemonic     =   0   'False
      Width           =   3975
   End
   Begin VB.Label CrLabel4 
      Caption         =   "[e-mail]"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   2280
      TabIndex        =   3
      ToolTipText     =   "给我发邮件"
      Top             =   2520
      Width           =   2055
   End
   Begin VB.Label CrLabel2 
      Caption         =   "班级:计算机044"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   1560
      TabIndex        =   2
      Top             =   2040
      Width           =   1575
   End
   Begin VB.Label CrLabel1 
      Caption         =   "作者:范俊辉"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   1560
      TabIndex        =   1
      ToolTipText     =   "Hero Fan"
      Top             =   1560
      Width           =   1095
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   0
      X2              =   6360
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   0
      X2              =   6360
      Y1              =   3720
      Y2              =   3720
   End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Unload Me
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End Sub