在VB中有如下代码
do
msgbox"hhhhhhhh"
button= 1
loop
我的问题是怎么样才能在这个循环中自已加一个语句能够跳出
列如 我单击某个控件.
问题是我如保让这个控件获得输入控制权啊.
do
msgbox"hhhhhhhh"
button= 1
loop
我的问题是怎么样才能在这个循环中自已加一个语句能够跳出
列如 我单击某个控件.
问题是我如保让这个控件获得输入控制权啊.
调试欢乐多
...
exit do
...
loop
msgbox"hhhhhhhh"
button= 1
DoEvents
if ..... then '在这里判断是不是按下其它控件
Exit Do
end if
loop
用 Exit 语句可以直接退出 For 循环、Do 循环、子过程或函数过程。Exit 语句的语法很简单:Exit For 在 For 循环中出现的次数没有限制,Exit Do 在 Do 循环中出现的次数也没有限制。For counter = start To end [Step increment]
[statementblock]
[Exit For]
[statementblock]Next [counter[, counter] [,...]]Do [{While | Until} condition]
[statementblock]
[Exit Do]
[statementblock]Loop Exit Do 语句可以在 Do 循环语法的所有版本中使用。Exit For 和 Exit Do 非常有用,因为它有时适于立即退出循环,而且不再执行循环中的任何进一步迭代或者语句。例如,在前面的打印屏幕和打印机共有字体的例子中,程序不断将打印机字体和给定的屏幕字体作比较,甚至在已经找到了一个相符的打字机字体后还在继续寻找。对这个函数有一个效率更高的改进版,在此,只要找到相匹配的字体后就立即退出循环: