如何用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的時候,轉換圖片的時候報錯具有不確定性,我循環轉換所有未轉換的圖片,有時候出現轉換失敗報錯,點擊繼續$
相关问答：
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
vb中怎样实现像vb.net异常处理(try....Catch ex As Exception...end try)功能？
友情帮顶
无非是On error Goto 和Err.Number判断吧?
想用vb6.0实现以下vb.net的功能：
dim str as string '这个一个应� ......
VB能否把Control对象转为一个TEXTBOX对象？
VB.NET 有个CType函数，VB没有类似的？
只有转换变量的,似乎没发现有转换控件类型的
Dim txt As Control
Set txt = Text1
&n ......
一个个为了出名居然使用自己的照片出来招摇,穷疯了吧
┌───────────────My 迅雷等级─────────────────┐
so what? disturbed you?
大概好多只有初中毕业
是� ......
