如何用VB写一个程序，让本窗口三秒后自动卸载而跳到另一个窗口

如何用VB写一个程序，让本窗口三秒后自动卸载而跳到另一个窗口.  
  请问这程序怎样写。 问题点数：20、回复次数：13Top

1 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-03 13:53:51 得分 8

Private   Sub   Form_Load()  
      Me.Show  
      Me.Timer1.Interval   =   3000  
      Me.Timer1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
        Form2.Show  
        Unload   Me  
  End   Sub  
  Top

2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-03 13:58:05 得分 0

同上，用timer来定时，时间到了，就Unload并Load   另一个Top

3 楼lc_mtt（柠檬把大飞猪裤子一脱...被大飞猪投诉了）回复于 2006-03-03 14:41:15 得分 0

贼简单，一楼正解Top

4 楼AnnaBear（淡淡）回复于 2006-03-03 15:02:56 得分 5

Option   Explicit  
   
  Private   Sub   Form_Load()  
          Timer1.Enabled   =   True  
          Timer1.Interval   =   3000  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
          Form2.Show  
          Form2.Text1   =   "该我出场了!"  
  End   SubTop

5 楼wangchong（网虫）回复于 2006-03-03 15:54:23 得分 0

呵呵！！大家都正确，我来蹭点分  
  Top

6 楼shortppsy（小河）回复于 2006-03-03 16:39:06 得分 3

Private   Declare   Sub   Sleep   Lib   "kernel32"   Alias   "Sleep"   (ByVal   dwMilliseconds   As   Long)  
   
  Private   Sub   Form_Load()  
          sleep   3000  
          form2.show  
          unload   me  
  End   SubTop

7 楼HotUs（）回复于 2006-03-03 17:01:44 得分 0

呵呵！！大家都正确，我来蹭点分Top

8 楼wenquan836（电脑狂徒）回复于 2006-03-03 17:08:36 得分 0

路过此地，顺便拿几分Top

9 楼clark_m（）回复于 2006-03-07 10:20:41 得分 4

Private   Sub   Form_Load()  
      Me.Show  
      Me.Timer1.Interval   =   3000  
      Me.Timer1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
        shell   "D:\a.exe"  
        Unload   Me  
  End   SubTop

10 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2006-03-07 10:41:57 得分 0

呵呵！！大家都正确，我来蹭点分  
  Top

11 楼ljqqyx（）回复于 2006-03-07 11:06:36 得分 0

呵呵！！大家都正确，我来蹭点分  
  Top

12 楼1111111（我有人品问题-我人品有问题）回复于 2006-03-07 13:45:00 得分 0

呵呵！！大家都正确，我来蹭点分Top

13 楼guyueseng（古月僧）回复于 2006-03-07 16:35:49 得分 0

分。。。。。。。。Top

相关问题

• sleep
• me
• timer1
• 程序
• subprivate
• unload meend
• 正确
• sub
• 来蹭点分
• timer

• 帖主：kakim
• ZOU_SEAFARER
• AnnaBear
• shortppsy
• clark_m

• Visual Basic类图书
• Visual Basic类源码下载