首 页行业资讯解决方案成功案例了解我们产品服务联系我们  
 
  OA登录:用户名: 密码:   转播到腾讯微博
产品服务
最新更新
《关于促进互联网金融健康…
淘宝十二月围城:无解的博弈…
巨头们的移动时代(5):替罪…
百度理财推出半天销售过10…
开发者对微信公众号收费的…
下一个蓝海市场:汽车垂直电…
义乌进军外贸电商的背后
domia命令语法在百度的运用…
网站改版后死链的问题
个人做SEO的一些心得
您的当前位置:首 页 > 产品服务 > 常见问题
VB异常的常识性处理
发布时间: 2011-01-28    来源:易网    收藏本文
 
 在一些软件中,我们会发现,当软件运行到需要向A驱读写文件时,它会自动对A驱进行检测。如果用户没有按要求在A驱插入磁盘,程序会提示用户将磁盘插入到A驱中;如果需要向A驱进行写文件,而这时A驱里的磁盘“写保护”了,程序无法向其写文件,程序也会提示用户去掉磁盘的“写保护”。
  这种智能化的提示功能能否在VB中实现呢?答案是肯定的!
  用VB写过程序的人都应该知道,在VB中有一个非常有用的语句:ON ERROR
  其作用就是启动一个错误处理程序并指定该子程序在一个过程中的位置;也可用来禁止一个错误处理程序。
  其语法:
    On Error GoTo line
    On Error Resume Next
    On Error GoTo 0 On Error
   语句的语法可以具有以下任何一种形式:


语 句 描 述
on Error GoTo line  启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。  
On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用on Error GoTo。
On Error GoTo 0  禁止当前过程中任何已启动的错误处理程序。  

  有了这个ON ERROR 语句,我们就可以在其启动的错误处理程序中对错误号进行检测,由此可以得知A驱是否有磁盘以及其磁盘是否写保护。
  下面以一个简单的例子来说明在VB中用ON ERROR语句来检测A驱是否有盘或其磁盘是否写保护。
  在需要向A驱进行读写操作的模块头部写上下面这行代码:
  On Error GoTo DiskErr
  红色的DiskErr是错误处理程序的开始标识,你可以任意设定。接下来就写对A驱进行读写的程序代码,直到对所有需要处理的代码写完。在其最后加上下面这行代码:
  Exit Sub
  这行代码的作用是防止程序直接进入错误处理子程序。接下来写错误处理程序:
  DiskErr:
   Select Case Err.Number
    Case 52, 71 注释:A驱无盘
      If MsgBox("A驱没有磁盘!" & vbCrLf & "请在你的A驱插入软盘后再试!" & vbCrLf, vbOKCancel, "A驱错误!") = vbOK Then
        Resume 注释:返回到出错的语句重新处理
      Else
        On Error Resume Next 注释:忽略错误
      End If
    Case 70 注释:A盘写保护
      If MsgBox("请打开A盘写保护!", vbOKCancel, "A驱写入错误!") = vbOK Then
       Resume
      Else
       On Error Resume Next
      End If
    Case Else MsgBox "错误号:" & Err.Number & vbCrLf & "错误内容:" & Error, , "错误"
  End Select
  如此以来,你的程序就有了本文开头所说的智能提示功能了。快快启动你的VB试试吧!

Tags: vb, 异常

 
上一篇文章:  怎样提高站点在搜索引擎中被搜索到的机会?
下一篇文章:  外文版企业网站建设的几点注意事项
 
加入收藏】【打印本页】【返回首页  
  相关文章
  金华电大微信平台............2014-03-27
  网建过程中的人事处理............2011-02-19
  网站建设的一些基本问题............2011-02-15
  为什么网页会经常打不开............2011-02-12
  外文版企业网站建设的几点注意事项............2011-02-10
  VB异常的常识性处理............2011-01-28
  怎样提高站点在搜索引擎中被搜索到的机会?............2011-01-24
  站长教你如何做网赚?............2011-01-09
  行业网站改版的几点问题分析............2010-12-19
  金华网络公司哪几家拥有ICP经营许可证?............2010-12-04

网站链接1:

   
Copyright © 2004 - 2013 金华易网 版权所有    地址:金华市永康街639号美保龙北楼A座404    网站制作东讯科技

电话:0579-82380828 82064765    邮编:321000    传真:0579-82449200
浙ICP备09063066号