一个窗口登陆后一秒钟运行另外一个程序怎么写？？？？

Question

我想要在一个窗体登陆后等待一个秒钟就运行另外一个程序，用什么控件，怎么个设置？？？

Answer 1

用sleep函数或timer控件，然后用shell

Answer 2

用timer就行了，它的interval属性设置为1000
比如form1和form2,form1的command1点击后一秒运行form2private sub command1_click()
    timer1.enable=true
    timer1.interval=1000    
end sub
private sub timer1_timer()
    load form2    
    unload form1
    form2.show
    timer1.enable=false    
end sub
这样应该可以了

Answer 3

sleep是API函数，语法：
sleep 1000 '参数是以ms为单位。如果用timer控件，可先设置enabled=false,interval=1000，form_load()中写enabled=true
timer()事件中调用shell()运行另外一个程序，并设enabled=false

Answer 4

Private Sub Command1_Click()
    Timer1.Interval = 1000   
End SubPrivate Sub Timer1_Timer()
    Shell ("path")
    Timer1.Interval = 0
End Sub

Answer 5

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Activate()
    Sleep 2000
    Form2.Show
End Sub