VB出现异常的基本常识性解决

在一些手机软件中,大家会发觉,当手机软件运作到必须向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, 出现异常



扫描二维码分享到微信