ÈçºÎÓÃ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Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ò»¸ö¸öΪÁ˳öÃû¾ÓȻʹÓÃ×Ô¼ºµÄÕÕÆ¬³öÀ´ÕÐÒ¡,Çî·èÁ˰É
©°©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤My ѸÀ׵ȼ¶©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©´
so what? disturbed you?
´ó¸ÅºÃ¶àÖ»ÓгõÖбÏÒµ
ÊDz ......