VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB常见问题解答(1)
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8496, 日期:2001-06-23
VB常见问题解答(1)
问:在一个床体中设置了2个命令按钮,Command1,Command2。Commamd1执行一个费时的操作,包括调用多个过程和函数,而Command2则是终止/暂停Command1的运行,不是退出该程序,不知用VB5.0如何解决?
答:你可以采用一种变通的方法,在程序中定义一个Boolean变量,在执行command1中的程序时监视该变量,如果为False退出程序,在command2中加入代码,只要点击command2就将该变量设置为False下面是例程
Dim bMark As Boolean
Private Sub Command1_Click()
bMark = True
For I = 1 To 150000 注释: Start loop.
DoEvents 注释: Yield to operating system.
Text1.Text = Str(I)
If Not bMark Then
Exit Sub
End If
Next I 注释: Increment loop counter
End Sub

Private Sub Command2_Click()
bMark = False
End Sub

问:有位大侠编了如下代码:
Private Sub cmdCalendar_Click()
Dim UserDate As Date

UserDate = CVDate(txtDate)
If frmCalendar.GetDate(UserDate) Then
txtDate = UserDate
End If
End Sub-