www.pudn.com > textmanager.rar > Frmabout.frm, change:2005-04-12,size:13707b


VERSION 5.00 
Begin VB.Form FrmAbout  
   BorderStyle     =   3  'Fixed Dialog 
   ClientHeight    =   30 
   ClientLeft      =   2760 
   ClientTop       =   3465 
   ClientWidth     =   30 
   ControlBox      =   0   'False 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   30 
   ScaleWidth      =   30 
   ShowInTaskbar   =   0   'False 
   Begin VB.CommandButton Command1  
      BackColor       =   &H00808080& 
      Caption         =   "X" 
      Height          =   195 
      Left            =   4650 
      Style           =   1  'Graphical 
      TabIndex        =   0 
      Top             =   -30 
      Width           =   180 
   End 
   Begin VB.Label Label13  
      AutoSize        =   -1  'True 
      Caption         =   "服务器端" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C00000& 
      Height          =   300 
      Left            =   1785 
      TabIndex        =   14 
      Top             =   930 
      Width           =   1275 
   End 
   Begin VB.Label MetalCB1  
      Alignment       =   2  'Center 
      Appearance      =   0  'Flat 
      BackColor       =   &H0080C0FF& 
      BorderStyle     =   1  'Fixed Single 
      Caption         =   "确定" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H80000008& 
      Height          =   345 
      Left            =   3330 
      MouseIcon       =   "Frmabout.frx":0000 
      MousePointer    =   99  'Custom 
      TabIndex        =   13 
      Top             =   2985 
      Width           =   975 
   End 
   Begin VB.Label Label12  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "版权所有" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   210 
      Left            =   1890 
      TabIndex        =   12 
      Top             =   3105 
      Width           =   855 
   End 
   Begin VB.Label Label10  
      BackStyle       =   0  'Transparent 
      Caption         =   "小辉工作室" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00004000& 
      Height          =   300 
      Left            =   285 
      TabIndex        =   10 
      Top             =   2910 
      Width           =   1605 
   End 
   Begin VB.Label Label9  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "HTTP://phf110.yeah.net" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   -1  'True 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   210 
      Left            =   915 
      MouseIcon       =   "Frmabout.frx":0442 
      MousePointer    =   99  'Custom 
      TabIndex        =   9 
      Top             =   2400 
      Width           =   2310 
   End 
   Begin VB.Label Label8  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "EMail:phf110@china.com" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   -1  'True 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   210 
      Left            =   180 
      MouseIcon       =   "Frmabout.frx":0884 
      MousePointer    =   99  'Custom 
      TabIndex        =   8 
      Top             =   2085 
      Width           =   2310 
   End 
   Begin VB.Label Label7  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "使用中有什么问题请发E-Mail!" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00400040& 
      Height          =   210 
      Left            =   1020 
      TabIndex        =   7 
      Top             =   1740 
      Width           =   2940 
   End 
   Begin VB.Image Image1  
      Height          =   765 
      Left            =   195 
      Picture         =   "Frmabout.frx":0CC6 
      Stretch         =   -1  'True 
      Top             =   315 
      Width           =   825 
   End 
   Begin VB.Label Label6  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "谢谢使用本软件!" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15.75 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   315 
      Left            =   1215 
      TabIndex        =   6 
      Top             =   1335 
      Width           =   2640 
   End 
   Begin VB.Label Label3  
      BackColor       =   &H8000000D& 
      BackStyle       =   0  'Transparent 
      Height          =   150 
      Left            =   0 
      TabIndex        =   1 
      Top             =   15 
      Width           =   4635 
   End 
   Begin VB.Line Line5  
      BorderColor     =   &H00E0E0E0& 
      BorderWidth     =   2 
      X1              =   15 
      X2              =   4845 
      Y1              =   135 
      Y2              =   135 
   End 
   Begin VB.Label Label4  
      BackStyle       =   0  'Transparent 
      Caption         =   "——V 1.0" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   240 
      Left            =   3105 
      TabIndex        =   4 
      Top             =   975 
      Width           =   1380 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "题库与考试管理" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   21.75 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   480 
      Left            =   1455 
      TabIndex        =   3 
      Top             =   435 
      Width           =   3255 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "题库与考试管理" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   21.75 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   480 
      Left            =   1485 
      TabIndex        =   2 
      Top             =   420 
      Width           =   3255 
   End 
   Begin VB.Line Line4  
      BorderColor     =   &H00E0E0E0& 
      BorderWidth     =   2 
      X1              =   -45 
      X2              =   4785 
      Y1              =   2760 
      Y2              =   2760 
   End 
   Begin VB.Line Line3  
      BorderColor     =   &H00808080& 
      BorderWidth     =   2 
      X1              =   -45 
      X2              =   4785 
      Y1              =   2745 
      Y2              =   2745 
   End 
   Begin VB.Line Line2  
      BorderColor     =   &H00E0E0E0& 
      BorderWidth     =   2 
      X1              =   -15 
      X2              =   4830 
      Y1              =   60 
      Y2              =   45 
   End 
   Begin VB.Line Line1  
      BorderColor     =   &H00808080& 
      BorderWidth     =   2 
      X1              =   -15 
      X2              =   4830 
      Y1              =   45 
      Y2              =   30 
   End 
   Begin VB.Label Label5  
      BackStyle       =   0  'Transparent 
      Caption         =   "——V 1.0" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00E0E0E0& 
      Height          =   240 
      Left            =   3135 
      TabIndex        =   5 
      Top             =   960 
      Width           =   1380 
   End 
   Begin VB.Line Line6  
      BorderColor     =   &H00808080& 
      BorderWidth     =   2 
      X1              =   0 
      X2              =   4830 
      Y1              =   120 
      Y2              =   120 
   End 
   Begin VB.Label Label11  
      BackStyle       =   0  'Transparent 
      Caption         =   "小辉工作室" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   300 
      Left            =   285 
      TabIndex        =   11 
      Top             =   2895 
      Width           =   1605 
   End 
End 
Attribute VB_Name = "FrmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Option Explicit 
 
 
 
 
 
 
 
Private Sub Command1_Click() 
 MetalCB1_Click 
End Sub 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
 If KeyCode = 13 Then 
   MetalCB1_Click 
 End If 
 If KeyCode = 27 Then 
 Unload Me 
 End If 
End Sub 
 
Private Sub Form_Load() 
Dim GotovalW, GotovalH, Gointo As Long 
 FrmAbout.Visible = True 
   GotovalH = 3585 
   GotovalW = 4920 
 FrmAbout.Left = (Screen.Width - GotovalW) \ 2 
 FrmAbout.Top = (Screen.Height - GotovalH) \ 2 
   
   'MsgBox GotovalW 
 Me.Height = 30 
     
     
    For Gointo = 1 To GotovalW 
            DoEvents 
            Me.Width = Me.Width + 10 
            If Me.Width >= GotovalW Then 
             Me.Width = GotovalW 
             GoTo gotoH 
            End If 
     Next Gointo 
      
gotoH: 
   For Gointo = 30 To GotovalH 
    DoEvents 
        Me.Height = Me.Height + 10 
        If Me.Height >= GotovalH Then 
          Me.Height = GotovalH 
          Exit Sub 
        End If 
    Next Gointo 
End Sub 
 
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
       
    ReleaseCapture 
 Dim ret As Long 
  ret = SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) 
 
 
End Sub 
 
 
Private Sub Label8_Click() 
  ShellExecute Me.hwnd, "open", "mailto:phf110@china.com", vbNullString, vbNullString, &H0 
 
End Sub 
 
Private Sub Label9_Click() 
   ShellExecute Me.hwnd, "open", "Http://phf110.yeah.net", vbNullString, vbNullString, &H0 
 
End Sub 
 
Private Sub MetalCB1_Click() 
 Dim Gotoval, Gointo As Long 
Gotoval = Me.Height / 2 
 
 
For Gointo = 1 To Gotoval 
    'NEW ADDITION NEXT LINE 
 
 
    DoEvents 
        Me.Height = Me.Height - 10 
        'Me.Top = (Screen.Height - Me.Height) \ 2 
        If Me.Height <= 11 Then GoTo horiz 
    Next Gointo 
 
 
    'This is the width part of the same sequence above 
horiz: 
    Me.Height = 30 
    Gotoval = Me.Width / 2 
 
 
    For Gointo = 1 To Gotoval 
        'NEW ADDITION NEXT LINE 
 
 
        DoEvents 
            Me.Width = Me.Width - 10 
            'Me.Left = (Screen.Width - Me.Width) \ 2 
            If Me.Width <= 11 Then End 
        Next Gointo 
         
Unload Me 
End Sub