首页 > 学院 > 开发设计 > 正文

VB常见问题解答(1)

2019-11-18 17:33:13
字体:
来源:转载
供稿:网友
问:在一个床体中设置了2个命令按钮,Command1,Command2。Commamd1执行一个费时的操作,包括调用多个过程和函数,而Command2则是终止/暂停Command1的运行,不是退出该程序,不知用VB5.0如何解决?
答:你可以采用一种变通的方法,在程序中定义一个Boolean变量,在执行command1中的程序时监视该变量,如果为False退出程序,在command2中加入代码,只要点击command2就将该变量设置为False下面是例程
DimbMarkAsBoolean
PRivateSubCommand1_Click()
bMark=True
ForI=1To150000'Startloop.
DoEvents'YieldtoOperatingsystem.
Text1.Text=Str(I)
IfNotbMarkThen
ExitSub
EndIf
NextI'Incrementloopcounter
EndSub

PrivateSubCommand2_Click()
bMark=False
EndSub

问:有位大侠编了如下代码:
PrivateSubcmdCalendar_Click()
DimUserDateAsDate

UserDate=CVDate(txtDate)
IffrmCalendar.GetDate(UserDate)Then
txtDate=UserDate
EndIf
EndSub


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表