进度条窗体中，点击stop按钮后，怎么停止主程序？

当代码执行时显示一个有进度条的窗体，进度条窗体上有个Stop按钮，当点击时主程序应停止运行  
  代码如下：  
  sub   a()  
  dim   InFrmPrg   as   new   frmPgr   '定义进度条窗体实例  
  InFrmprg.ower=me  
  infrmprg.show  
   
  c()   '过程C  
    Infrmprg.progressbar.value=10  
   
  d()   '过程d  
    Infrmprg.progressbar.value=10  
   
  e()   '过程e  
    Infrmprg.progressbar.value=10  
  f()   '过程f  
    Infrmprg.progressbar.value=10  
  .....  
  .....  
   
  end   sub  
   
  当主程序运行到过程d时，我点击了进度条窗体infrmprg上的stop按钮，主程序应该退出不应再执行后面的过程，请问怎么实现？ 问题点数：20、回复次数：1Top

1 楼nettop（）回复于 2005-04-01 13:31:40 得分 20

设一个Boolean类型的变量。然后在过程D中执行exit   sub之前设置这个Boolean类型的变量为True。然后再调用以下过程之前判断这个Boolean类型的值。如果为True，则不去执行下面的过程。如果为False,则继续执行。就可以解决了Top

相关问题

• 执行
• infrmprg
• 主程序
• 进度条窗体
• 过程
• progressbar
• stop按钮
• 点击
• boolean类型
• sub

• 帖主：tjj3000
• nettop

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载