Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vbÓëaccessÊý¾Ý¸üеÄÎÊÌâ

Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý ......

vb adodb.stream writeдÈëÍøÒ³´úÂëΪutf8±àÂëµÄÎÊÌâ

´ÓÍøÒ³Í¨¹ýinet¿Ø¼þµÄInet1.GetChunk¶ÁÈ¡Æä´úÂ룬ȻºóÏëת»»Îªºº×Ö£¬×ª»»´úÂëÈçÏÂ
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim strRecText As String
    Dim st ......

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 static

Private Sub fun()
  Static a As Integer
      A=a+1
  Print a;
End Sub
    Private Sub Command1_Click()
      Dim m As Integer
&n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ