VB编程时如何检测A驱有无磁盘或磁盘写保护?

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

在一些软件中,我们会发现,当软件运行到需要向A驱读写文件时,它会自动对A驱进行检测。如果用户没有按要求在A驱插入磁盘,程序会提示用户将磁盘插入到A驱中;如果需要向A驱进行写文件,而这时A驱里的磁盘“写保护”了,程序无法向其写文件,程序也会提示用户去掉磁盘的“写保护”。

这种智能化的提示功能能否在VB中实现呢?答案是肯定的!

用VB写过程序的人都应该知道,在VB中有一个非常有用的语句:ONERROR

其作用就是启动一个错误处理程序并指定该子程序在一个过程中的位置;也可用来禁止一个错误处理程序。

其语法:

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

禁止当前过程中任何已启动的错误处理程序。

有了这个ONERROR语句,我们就可以在其启动的错误处理程序中对错误号进行检测,由此可以得知A驱是否有磁盘以及其磁盘是否写保护。

下面以一个简单的例子来说明在VB中用ONERROR语句来检测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试试吧!在本人个主页《文渊主页》里有一个简单的测试原代码,你可以下载回去慢慢地研究。

如果此篇对你有所帮助,敬请你常来《文渊主页》做客!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航