易截截图软件、单文件、免安装、纯绿色、仅160KB

VB过程控制

怎么点击form2上的按钮 可以结束form1上正在进行的循环 
form1里面添加一个变量：
Public bEnd As Boolean

循环代码添加：
bEnd = False
Do
    ...
    If bEnd Then Exit Do
    DoEvents
Loop

另一个窗口：
frm1.bEnd = True
引用
form1里面添加一个变量：
Public bEnd As Boolean

循环代码添加：
bEnd = False
Do
    ...
    If bEnd Then Exit Do
    DoEvents
Loop

另一个窗口：
frm1.bEnd = True


应该可行,DoEvents很关键
要是for循环呢？
VB code:
Option Explicit
Dim bolExit As Boolean '退出循环的标志
Private Sub Command1_Click()
bolExit = False
Do
DoEvents '最好添加这个语句，防止程序假死
If Command1.Caption = "开始循环" Then Command1.Caption = "循环执行中..."
Loop Until bolExit
Command1.Caption = "开始循环"
End Sub

Private Sub Command2_Click()
bolExit = True
End Sub

Private Sub Form_Load()
Command1.Caption = "开始循环"
Command2.Caption = "结束循环"
End Sub


For 是一样的。
引用


相关问答：

我要学存储过程（VB.NET,SQL）跪求教程~~

如题~~
MSDN，Google，想系统学建议还是买本书看吧，毕竟手打的代码记忆要比复制的深刻。

我要边学边用在代码里面，肯定要手打的了


看看sql server 2005的帮助很全面或看看书
http://topic.csdn.net/u/2 ......

vb编写dll文件提示找不到dllinstall注入点

我想写一个asp读取本地机子的网瞳的功能，需要用vb写一个dll 在网上找了一下，把下面的段拷入vb工程里：
Option Explicit

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private ......

vb MSFlexGrid1.Row 实时错误'30009'Row数值无效

代码如下：
Private Sub MSFlexGrid1_SelChange()
  If MSFlexGrid1.Rows = 1 Then Exit Sub
  If MSFlexGrid1.Row = 0 Then Exit Sub
 
  grid_row = MSFlexGrid1.Row
......

VB 获取网页源代码

一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......

VB HOOK API

    各位，请问钩子是怎么运行的啊？请先看看我写的代码：
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
以下� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号