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

VBÅжÏÊÇ·ñ´ò¿ªÎļþ

Open "ning.txt" For Input As #1
Close #1
ÈçºÎÅжϴò¿ªÎļþÊÇ·ñ³É¹¦£¬±ÈÈç˵£¬±ðµÄ³ÌÐòÕýÔÚ·ÃÎÊ£¬»òÕßÕâ¸öÎļþ²»´æÔÚ£¬ÔõôÅжϴò¿ªÎļþ½á¹û£¿
Èç¹û³ÌÐòÀïûÓÐÅжϵϰ£¬³ÌÐò»á³ö´í£¬ÎÒÏë×Ô¼ºÅжϣ¬Ó¦¸ÃÔõôд´úÂ룿

on error goto err
Open "ning.txt" For Input As #1
Close #1

exit sub
err:
msgbox "sdfsdf"

×îºÃÓÃapi°ÉÅóÓÑ,createfileÓÃËüÀ´´ò¿ªÎļþ¿ÉÒÔÖ±½ÓÈ¡»ØlongÖµ-1Ϊʧ°Ü

ÒýÓÃ
×îºÃÓÃapi°ÉÅóÓÑ,createfileÓÃËüÀ´´ò¿ªÎļþ¿ÉÒÔÖ±½ÓÈ¡»ØlongÖµ-1Ϊʧ°Ü


Ö§³Ö£¬Ê¹ÓöÀÕ¼·½Ê½À´´ò¿ª£¬ÆäËûµÄ²Ù×÷ÔÙÈ¥´ò¿ª£¬¾Í»á±¨´í

on error goto fileerr

fileerr:
....
exit sub


È¥¿´Ò»ÏÂVBµÄ³ö´í´¦Àí


Èç¹û¹²Ïí´ò¿ª£¬ÊDz»»á³ö´íµÄ¡£Èç¹ûÊǶÀÕ¼»òÎļþ²»´æÔÚ£¬»á²úÉúÏàÓ¦µÄ´íÎ󣬿ÉÒÔÖ±½ÓÓà on error goto ErrNext À´ÔÚºóÃæ½øÐд¦Àí¡£

ÁíÒ»¸ö°ì·¨¡£¡£

VB code:

On Error Resume Next
Err.Clear
Open "ning.txt" For Input As #1
If Err Then
Close #1
End If




Ïà¹ØÎÊ´ð£º

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ