如何用vb實現以下邏輯?
出錯的時候去執行一段代碼之後,再回到出錯的地方接著往下執行
如何用vb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
....
On Error goto 0
Exit Sub
BBBB:
.....
.....
Resume Next
End Sub
感觉楼主的想法不太合理，不过还是可以实现的
比如：
VB code:
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim M As Integer
On Error GoTo errSub
I = 10
J = 0
LabX:
M = I \ J
Debug.Print M
Exit Sub
errSub:
J = 1
GoTo LabX
End Sub
VB code:
'在出错语句前加上
On Error Resume Next
...
'之后加上
'On Error GoTo 0
一樓的朋友的解決方法正是我想要的!謝謝
雖然這樣的邏輯很奇怪.我在用word寫一個自動排版照片的功能,問題是我在用word的VBA的時候,轉換圖片的時候報錯具有不確定性,我循環轉換所有未轉換的圖片,有時候出現轉換失敗報錯,點擊繼續$
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
请看看以下导出文本文件的模块函数，我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......
从网上找了一个版本，源代码如下：
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As Strin ......
