如何用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的時候,轉換圖片的時候報錯具有不確定性,我循環轉換所有未轉換的圖片,有時候出現轉換失敗報錯,點擊繼續$
相关问答:
我有自动生成序列号的程序,但是怎么跟打包后的安装程序结合在一起,在安装时提示用户输入序列号,正确后再继续安装???
方法1:你可以在运行程序后输入序列号注册,很多软件都是这样的。
方法2:使用Setu ......
要采集的页面:http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
我想把搜索出来的QQ都采集出来,该怎么做。看了下代码好像不是普通的那种,网址里把1改成2没用 ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......