控制台编程

开发平台：

Visual Basic

frmWelcome.frm：源码内容

							VERSION 5.00
Begin VB.Form frmWelcome 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "欢迎"
   ClientHeight    =   3660
   ClientLeft      =   2745
   ClientTop       =   1425
   ClientWidth     =   6765
   DrawStyle       =   1  'Dash
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmWelcome.frx":0000
   ScaleHeight     =   3660
   ScaleWidth      =   6765
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   4000
      Left            =   480
      Top             =   840
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub Timer1_Timer()
Unload Me
frmLogin.Show
End Sub

						