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

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µÄÒì³£´¦Àí»úÖ


Ïà¹ØÎÊ´ð£º

ΪʲôÎҸоõVB·´±ÈVCÄÑѧ¡­¡­

VBÓï¾äÏñÓ¢ÓC++Óï¾äÏñÊýѧ£¬ÎÒÊýѧ±ÈÓ¢ÓïºÃ¡­¡­

ÓÐЩVBÓï¾ä¸É´à¾ÍÊÇÓ¢Óï¾ä×Ó£¬ËäÈ»ºÜÈÝÒ×¶®£¬µ«ÎÒ²»ÊÇÀÏÍ⣬¶ÔÓ¢ÓïûÓÐÈκÎÇ×ÇиУ¬Ò²¾Í²»¸Ð¾õVB¸üÈÝÒ×£¬Ïà·´C++Óï¾äÂß¼­ÐÔ¸üÇ¿£¬ÏñÊýѧÌâËÆµÄ£¬¿´µÄ·´¶øÁ÷ ......

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

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

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

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


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

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

ÉèÖ ......

VB°æºÜ¶ªÈ˰¡£¬ÉúÍÌ»î°þ£¬ðÐðÄѧÉà¡£

´ó¼Ò¿´¿´
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089

µ°¶¨

http://t ......

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

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

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

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

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ