原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:4 来源：未知

---

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

---

• 锁住数据库中的表 • 树视TreeView树视的使用技巧 • 用VB开发CAI软件的小经验 • VB环境多媒体压缩数据流播放技术 • 用Visual Basic6.0实现电影特效 • VB6实现局域网多站点互连手册 • 用Visual Basic设计个性化文件夹图标 • VB编程计算农历的计算方法 • 在Visual Basic 6.0中实现自动播放VCD • VB中不规则图形热点的实现

• VB 从零开始编外挂(六) • 用VB自制屏幕保护程序 • 用API函数控制光驱的开关 • 用VB6.0设计简易赛车游戏 • 用VB编写标准CGI程序（下） • 制作自己的网络搜索软件 • 在VB中调用EXCEL • 用VB编程实现图像的熠熠生辉效果 • 利用VB三维面板控件设计流动条 • VB 从零开始编外挂(五)

---

本文章所属分类：首页 → VB