Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÓÃ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µÄ時ºò,轉換圖ƬµÄ時ºò報錯¾ßÓв»確¶¨ÐÔ,ÎÒÑ­環轉換ËùÓÐδ轉換µÄ圖Ƭ,ÓÐ時ºò³ö現轉換ʧ敗報錯,點擊繼續$


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

¿´µ½VB°æÄÇÐ©Ü½ÈØ½ã·òʽµÄ¼Ò»ïÎҾͶñÐÄ

Ò»¸ö¸öΪÁ˳öÃû¾ÓȻʹÓÃ×Ô¼ºµÄÕÕÆ¬³öÀ´ÕÐÒ¡,Çî·èÁ˰É
©°©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤My ѸÀ׵ȼ¶©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©´




so what? disturbed you?

´ó¸ÅºÃ¶àÖ»ÓгõÖбÏÒµ

ÊDz ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ