在VB中如何让欢迎画面停留几妙钟后或按任意键进入下一屏幕？

Question

放一个time控件，到一定时间退出，在form 的keypress等加上代码，退出

Answer 1

use the following function:Sleep(100),参数是需要等待的时间长度,100就是指0.1秒

Answer 2

赞同LIU兄的方法，不过最好将退出代码也加在MOUSE_CLICK事件中，这样无论是按键盘还是点鼠标均可退出。

Answer 3

doevent循环可以中止一个程序执行的同时让计算机处理其他任务。
例子，进行100次循环的时间内中止本程序的执行
FOR COUNTER=1 TO 100
    DOEVENT
NEXT

Answer 4

给你一个延时代码，放在FORM_LOAD中，结束后使用UNLOAD退出或在KEYPRESS中加入退出代码
例子：
Private Sub Form_Load()
Me.Show
WWAIT 2 '使此窗体显示2秒中
main.Show '显示主窗体
Unload Me '退出
End Sub
'延时函数
Public Sub WWait(HowManySecs)
    Dim EndWait
    '获得下次的时间
    EndWait = DateAdd("s", HowManySecs, Now)
    '进入循环，若现在的时间已超过（到了时间）
    '跳出循环，进行其他工作
   Do While Now < EndWait
    DoEvents
    Loop
End Sub

Answer 5

Private Declare Function GetTickCount Lib "Kernel32" () As Long
Public Bwake as boolean
Sub form_load
    Dim iTick
    lTick = GetTickCount
    While GetTickCount - lTick < 500
    Wend
    Bwake = true
Unload
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)End Sub

Answer 6

Private Declare Function GetTickCount Lib "Kernel32" () As Long
Public Bwake as boolean
Private Sub Form_Activate() '上一个错了
    Dim iTick
    lTick = GetTickCount
    While GetTickCount - lTick < 500
    Wend
    Bwake = true
Unload
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     if Bwake then
          ' show your new form
     end if
End Sub