CSDN博客

img fallback

vb编程中的DoEvent

发表于2005/1/3 9:17:00  907人阅读

Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 100
 Text1.Text = i
 For j = 1 To 100000: DoEvents
  Next
  Next

Text1.Text = "Done"
End Sub

'可以改变DoEvents的位置看看

0 0

相关博文

我的热门文章

img
取 消
img即使是一小步
也想与你分享
打开
img