Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄ時ºò,轉換圖ƬµÄ時ºò報錯¾ßÓв»確¶¨ÐÔ,ÎÒÑ­環轉換ËùÓÐδ轉換µÄ圖Ƭ,ÓÐ時ºò³ö現轉換ʧ敗報錯,點擊繼續$


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

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

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

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vb static

Private Sub fun()
  Static a As Integer
      A=a+1
  Print a;
End Sub
    Private Sub Command1_Click()
      Dim m As Integer
&n ......

VB ´°¿ÚºÍ¿Ø¼þÀàÃûÊÇ·ñ×Ô¶¯Ïú»Ù?

×òÌìлл chenhui530 °ïÎÒ½â¾öÁË´°¿ÚºÍÀàÃûµÄ¶¯Ì¬Ëæ»úÉú³É¡£
µ«ÏÖÔÚÓÐÒ»¸öÒÉÎÊ£¬¾ÍÊÇËùÓд°¿ÚºÍ¿Ø¼þ¸Ä³ÉµÄËæ»úÀàÃûºó£¬ÊÇ·ñÔÚ³ÌÐò¹Ø±Õʱ×Ô¶¯Ïú»ÙÁËÄØ£¿
Èç¹ûÐ¶ÔØ´°Ìåʱ¼ÓÉÏEND£¬»á×Ô¶¯½øÐÐÇåÀí¡£

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