如何让VB运行时一直执行一部分代码

Question

比如不通过按钮或者鼠标点击事件，只要程序运行时，就使界面中的text不断显示数字？如果使用formload，则form界面会一直等待程序结束才出现，该如何解决呢？谢谢

Answer 1

试试下面这段代码，不知道是不是你要求的
Private Sub Form_Load()
Me.Timer1.Interval = 500
Me.Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Static i As Long
i = i + 1
Me.Text1.Text = i
End Sub

Answer 2

Private Sub Timer1_Timer() 
Static i As Long 
i = i + 1 
Me.Text1.Text = i End Sub
其实你完全可以在此添加自己想要实现的代码。

Answer 3

先让Form_load运行完 循环显示的代码在其他地方写 例如Timer

Answer 4

谢谢，用了timer，可以实现，再去看看form.activate

Answer 5

放在fromload里也行就是在调用哪部分循环代码前执行一下me.show就可以显示出窗口了

Answer 6

Private Sub Form_Load()
Label1.Caption = "0"
Me.Show
Me.Refresh
DoEvents
Do
    Label1.Caption = Str(Val(Label1.Caption) + 1)
    Sleep 500
    DoEvents
Loop
End Sub