www.pudn.com > yanshi.rar > frmMain.frm

VERSION 5.00 
Begin VB.Form frmMain  
   BackColor       =   &H00E0E0E0& 
   Caption         =   " 编 译 课 件 （小 型 翻 译 器）" 
   ClientHeight    =   7845 
   ClientLeft      =   165 
   ClientTop       =   450 
   ClientWidth     =   11625 
   LinkTopic       =   "Form7" 
   Picture         =   "frmMain.frx":0000 
   ScaleHeight     =   7845 
   ScaleWidth      =   11625 
   StartUpPosition =   3  'Windows Default 
   Begin VB.Timer Timer1  
      Interval        =   500 
      Left            =   5640 
      Top             =   1440 
   End 
   Begin VB.Label Label3  
      BackStyle       =   0  'Transparent 
      Caption         =   "单击此处" 
      BeginProperty Font  
         Name            =   "隶书" 
         Size            =   26.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   -1  'True 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   735 
      Left            =   5040 
      TabIndex        =   2 
      Top             =   3840 
      Width           =   2655 
   End 
   Begin VB.Shape Shape1  
      FillColor       =   &H0000FFFF& 
      FillStyle       =   0  'Solid 
      Height          =   855 
      Left            =   4800 
      Shape           =   2  'Oval 
      Top             =   3720 
      Width           =   2775 
   End 
   Begin VB.Label Label2  
      AutoSize        =   -1  'True 
      BackColor       =   &H00FF0000& 
      Caption         =   "退出编译世界..." 
      BeginProperty Font  
         Name            =   "华文行楷" 
         Size            =   26.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000080FF& 
      Height          =   555 
      Left            =   4200 
      TabIndex        =   1 
      Top             =   5520 
      Width           =   3690 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      BackColor       =   &H00FF0000& 
      Caption         =   "欢迎进入编译世界..." 
      BeginProperty Font  
         Name            =   "华文行楷" 
         Size            =   26.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000080FF& 
      Height          =   555 
      Left            =   3960 
      TabIndex        =   0 
      Top             =   2160 
      Width           =   4740 
   End 
End 
Attribute VB_Name = "frmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
 
 
 
 
 
 
 
Private Sub Label2_Click() 
End 
End Sub 
 
Private Sub Label3_Click() 
frmCiFa.Show 
End Sub 
 
Private Sub Timer1_Timer() 
Label1.FontSize = Label1.FontSize + 2 
If Label1.FontSize > 30 Then Label1.FontSize = 2 
End Sub