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µÄÒì³£´¦Àí»úÖ
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
´ÓÍøҳͨ¹ýinet¿Ø¼þµÄInet1.GetChunk¶ÁÈ¡Æä´úÂ룬ȻºóÏëת»»Îªºº×Ö£¬×ª»»´úÂëÈçÏÂ
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strRecText As String
Dim st ......
»¹¼ÇµÃÉÏ΢ÈíÍøÕ¾¸üÐÂϵͳ²¹¶¡Ê±£¬Ã¿µ±¹´Ñ¡Ò»¸öÉý¼¶Ïîʱ£¬ÔÚµ±Ç°¹´Ñ¡µÄλÖûá³öÏÖÒ»¸ö´øÎÄ×ֵĺڿòƽ»¬µÄ·ÉÏòÒÑÑ¡ÊýÁ¿µÄλÖÃÉϲ¢¼Ó1£¬µ±È¡Ïû¹´Ñ¡Ê±ÒÔÏà·´µÄ·½Ïò´ÓÒÑÑ¡ÊýÁ¿µÄλÖÃÉϷɻز¢¼õ1£¬Õâ¸öЧ¹û¶¯¸ÐÓиöÐÔ£¬ÏÖ ......