📄 9389.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 救你吧!这也是别人教我的哦~~~~</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 救你吧!这也是别人教我的哦~~~~</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by coco on January 20, 1999 at 11:40:30:<p>
In Reply to: <a href="9381.html">请问小吴如何先检查档案是否存在!</a> posted by jjwang on January 20, 1999 at 08:48:52:<p>
On Error 的时候<br>    假设妳打了 On Error Goto ErrHdr<br>    而在 ErrHdr 的区块中打了以下程式<br>    ErrHdr:<br>        Select Case Err.Number<br>        Case 53 '找不到档案<br>            Msgbox "找不到档案，自行开启一个 Temp 档"<br>            Open "TempFile" For Input As #1<br>        Case 52 '不正确的档案名称或数目<br>            ....<br>        Case Else<br>            Resume Next<br>        End Select<br>    Exit Sub<p>    如此一来，妳就很容易在例外处理的区块中<br>    写出碰到不同的错误所要的不同处理方式<br>    像上面一个程式，53 时是找不到档案<br>    于是处理的方式就是自行开一个档案来代替使用者要的档案<br>    52 我就省略了，而最后一个 Case Else 是说<br>    一但错误不是以上的形式，就继续执行吧
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9389-->
</ul><!--end: 9389-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -