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的位置看看
VB编程中Command按钮点击事件示例
博客展示了一段VB编程代码,是Command按钮点击事件的实现。代码通过两层循环,外层循环从1到100,内层循环执行一定次数并使用DoEvents,最后将文本框内容设为'Done',还提示可改变DoEvents位置查看效果。
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的位置看看

被折叠的 条评论
为什么被折叠?