Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄÒì³£´¦Àí»úÖ


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

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

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

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

ÎʸöVBÖеÄÒ»¸öËãÊõ±í´ïʽ

pow(x+sqrt(x*x+1),1.0/3)  (x+sqrt(x*x+1))^1.0/3


ÉÏÃæÕâÁ½¸öÖÐÄĸöÊǶԵİ¡»¹ÊǶ¼¿ÉÒÔ    »¹ÓÐÆäÖеÄ1.0ÊDZØÐëÓÃ1.0?  ¿É²»¿ÉÒÔÓÃ1°¡
sqrÊǺ¯Êý£¬sqrtºÍpowÏë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»Ö ......

VB´°ÌåµÄÊôÐÔÉèÖôúÂë

Õâ¶Î³ÌÐòÖÐ
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "ËÙËã24"
    clientHeight = 6375
    clientLeft = 154 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ