qqexperr.html

来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 88 行

HTML
88
字号
<html>

<head>
<title>千千VB站 函数方法</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body background="picbkgd.gif" tppabs="picbkgd.gif">

<marquee><b><blink>错误资讯</blink></b></marquee>
<hr>
●这个东西与App、ClipBoard、InputBox、Msgbox...等一样都是内建的对象。<br>
●适用于VB、VBA。<br>
●用法:Err.方法<br>
●用法:传回值 = Err.属性<br>
<hr>
○VB、VBA:<br>
●Clear方法:将错误资讯去除。
<dl>
  Private Sub Command1_Click()
  <dd>Err.Clear
</dl>
End Sub<br>
●当我们使用ON Error Resume Next或ON Error GOTO时,VB会自动执行Err.Clear的动作。
<p>●Raise方法:设定错误资讯。
<dl>
  Private Sub Command1_Click()
  <dd>Err.Raise 61
</dl>
End Sub<br>
●虽然没写入任何资料,但会出现 磁盘机已满"的错误
<p>●Description:传回错误的原因。
<dl>
  Private Sub Command1_Click()
  <dd>On Error GoTo DoWith
  <dd>Err.Raise 61
  <dd>Exit Sub
</dl>
<dl>
  DoWith:
  <dd>MsgBox Err.Description
</dl>
End Sub<br>
<p>●Number:传回错误的代码。
<dl>
  Private Sub Command1_Click()
  <dd>On Error GoTo DoWith
  <dd>Err.Raise 61
  <dd>Exit Sub
</dl>
<dl>
  DoWith:
  <dd>MsgBox Err.Number
</dl>
End Sub<br>
<p>●Source:传回错误的来源。
<dl>
  Private Sub Command1_Click()
  <dd>On Error GoTo DoWith
  <dd>Err.Raise 61
  <dd>Exit Sub
</dl>
<dl>
  DoWith:
  <dd>MsgBox Err.Source
</dl>
End Sub<br>
<p>●HelpFile:传回错误时的说明文件的文件名与路径。
<dl>
  Private Sub Command1_Click()
  <dd>On Error GoTo DoWith
  <dd>Err.Raise 61
  <dd>Exit Sub
</dl>
<dl>
  DoWith:
  <dd>MsgBox Err.HelpFile
</dl>
End Sub<br>
<p> 
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>

</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?