ÈçºÎÓÃ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µÄ時ºò,轉換圖ƬµÄ時ºò報錯¾ßÓв»確¶¨ÐÔ,ÎÒÑ環轉換ËùÓÐδ轉換µÄ圖Ƭ,ÓÐ時ºò³ö現轉換ʧ敗報錯,點擊繼續$
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
&n ......
×òÌìлл chenhui530 °ïÎÒ½â¾öÁË´°¿ÚºÍÀàÃûµÄ¶¯Ì¬Ëæ»úÉú³É¡£
µ«ÏÖÔÚÓÐÒ»¸öÒÉÎÊ£¬¾ÍÊÇËùÓд°¿ÚºÍ¿Ø¼þ¸Ä³ÉµÄËæ»úÀàÃûºó£¬ÊÇ·ñÔÚ³ÌÐò¹Ø±Õʱ×Ô¶¯Ïú»ÙÁËÄØ£¿
Èç¹ûÐ¶ÔØ´°Ìåʱ¼ÓÉÏEND£¬»á×Ô¶¯½øÐÐÇåÀí¡£
×îºÃÑø³É Re ......