vbÒì³£´¦Àí

vbÖÐÔõÑùʵÏÖÏñvb.netÒì³£´¦Àí(try....Catch ex As Exception...end try)¹¦ÄÜ£¿

---

ÓÑÇé°ï¶¥

---

ÎÞ·ÇÊÇOn error Goto ºÍErr.NumberÅжϰÉ?

---

ÏëÓÃvb6.0ʵÏÖÒÔÏÂvb.netµÄ¹¦ÄÜ£º
dim str as string 'Õâ¸öÒ»¸öÓ¦ÓóÌÐò»òÕßÊÇÒ»¸öÍøÖ·
Try
    System.Diagnostics.Process.Start(str)
Catch ex As Exception
    MsgBox("·¾¶²»ÕýÈ·£¡")
End Try
Çë¸÷λ¿´¿´£¡

---

¿´Äã×¼±¸²¶×½µÄ´íÎóµÄµÈ¼¶ÁË.

ÆÕͨµÈ¼¶µÄ´íÎó¾ÍÈçÉÏÃæËù˵¼´¿ÉÒÔ.

Èç¹ûÊÇÄÚ´æ´íÎóÖ®ÀàVB±£Ä·Ò²Ã»°ì·¨µÄ´íÎó,ÐèҪʹÓÃSEHÀ´²¶×½.

---

ÊÇÆÕͨµÈ¼¶µÄ´íÎó£¡Äܲ»ÄÜд³ö´úÂ룿

---

aaa:
On Error Resume Next
'ÕâÀïдÈÝÒ׳ö´íµÄ´úÂë
bbb=MsgBox("³öÏÖ´íÎó,ÏëÔÙÀ´Ò»´Îô?",VbExclamation + VbRetryCancel,"´íÎó")
if bbb=VbRetry Then Goto aaa:

---

on error goto errH

  'Öмä´úÂë¿é

    exit sub '»òfunction
errH:
    select case err.number
        case 11
          msgbox "³ýÊýΪÁã."
        case xxxxx    'ÆäËüÀàÐ͵ĴíÎó
            'ÏàÓ¦´¦Àí´úÂë
        case else    'ËùÓÐδ´¦ÀíµÄ´íÎó
          'ÏàÓ¦´¦Àí´úÂë
    end select

---

.netµÄÒì³£´¦Àí»úÖ