form1.frm

vb源码大全

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   1800
      Top             =   1320
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   480
      Width           =   3015
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    With Me
        .BackColor = vbBlack
        .WindowState = vbMaximized      '最大化窗口
    End With
    Label1.Alignment = vbCenter
    Label1.AutoSize = True
    Label1.BackColor = vbBlack
    Label1.Caption = "跟我学Visual Basic"
    Label1.Font.Name = "宋体"
    Label1.Font.Size = 150
    Label1.ForeColor = vbGreen
    Label1.Visible = True
    With Timer1
        .Interval = 10
        .Enabled = True
    End With
End Sub
Private Sub Timer1_Timer()
    With Label1
        If .FontSize > 2 Then
            .FontSize = .FontSize - 2
            '改变Label控件的位置
            .Left = (Me.Width - .Width) / 2
            .Top = (Me.Height - .Height) / 2
        Else
            .Visible = False
            Timer1.Enabled = False
        End If
    End With
End Sub