vb.net 中，do while loop循环时，怎样监控鼠标事件

[良朋]

勾选CKECKBOX复选框，无限执行do while loop循环，直到取消checkbox的勾选

Private Sub ckb_Online_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckb_Online.CheckedChanged
If ckb_Online.Checked Then
myLoop = True
n_Page = 1

Do While myLoop

‘执行某一持续动作Brow_Original()
If n_Page = totalYS Then
n_Page = 1
End If
n_Page += 1
Loop
Else
myLoop = False
End If
End Sub

[rayyu1989]

在线程池中执行，你这是要卡死主线程？

[良朋]

多用panel和TableLayoutPanel, 把你的控件装到里面， 全部DOCK就自动缩放了。 用tablelayoutpanel时注意anchor和span rowspan columnspan 工作需要，我的程序都是支持自动缩放

[良朋]

2#楼是我回复别人的，贴错地方了。 to 1楼：有什么好办法？ 执行的那个子过程确实是在另一线程，invoke时可显示执行信息，但是读不了控件被点击的事件

[threenewbee]

加一个Application.DoEvents()