VB常见问题解答(1)

问：在一个床体中设置了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