Private Sub Command1_Click()
a = 1
While a < 12
a = a + 1
Text2.Text = a
Text1.Text = a
For aa = 1 To 700000
DoEvents '注意这是第一个。
aa = aa + 1
Next
Wend
End Sub
a = 1
While a < 12
a = a + 1
Text2.Text = a
Text1.Text = a
For aa = 1 To 700000
DoEvents '注意这是第一个。
aa = aa + 1
Next
Wend
End Sub
2.activate在窗体"激活"--就是标题发蓝--取得焦点的时候执行一次.
3.看不明白你在说什么
2.是一个事件过程,在窗体被激活时运行一次,而且不会被中断.
上面遇到的情况你因为你用了,doevents把控制权转换的原因.
不用active,两个command的事件也可以出现上面的情况.
3.dataarrival是什么事件?