CSDN博客

img fallback

vb编程中的DoEvent

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

分类: VB

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