vb ÔÚÔõô¶Áд*.txtÎļþ,Çë¸ßÊÖ°ï°ï棡£¡
vb ÔÚÔõô¶Áд*.txtÎļþ,Çë¸ßÊÖ°ï°ï棡£¡
ÓдúÂ룬»¹Çë¼Óµã×¢ÊÍ,±¾ÈËÍ·Ò»´Îvb¡£Ò²¾Í˵ÎÒ»¹²»»áµÄ¡£¡£¡£^_^
VB¶ÁдÎļþÒªÓõ½ÒÔÏÂÓï¾ä£º
1¡¢OpenÓï¾ä´ò¿ªÎļþ¡£
2¡¢¶ÁÎļþʹÓÃLine Input¡¢Input #£¬£¨ÒÔÉÏΪÎı¾·½Ê½£©ºÍGet£¨ÒÔÉÏΪ¶þ½øÖÆ·½Ê½£©¡£
3¡¢Ð´ÎļþʹÓÃPrint #¡¢Write£¨ÒÔÉÏΪÎı¾·½Ê½£©ºÍPut£¨ÒÔÉÏΪ¶þ½øÖÆ·½Ê½£©¡£
4¡¢CloseÓï¾ä¹Ø±ÕÎļþ
5¡¢¶þ½øÖÆ·½Ê½ÏÂÒÆ¶¯ÎļþλÖÃʹÓÃSeekÓï¾ä¡£
ËùÓÐÕâЩÓï¾äÔÚVBµÄ°ïÖúÖж¼ÓÐÏêϸ˵Ã÷ºÍÀý×Ó¡£
Îı¾ÎļþµÄʾÀý£º
Open "TESTFILE" For Output As #1 ' ´ò¿ªÊä³öÎļþ¡£
Print #1, "This is a test" ' ½«Îı¾Êý¾ÝдÈëÎļþ¡£
Print #1, ' ½«¿Õ°×ÐÐдÈëÎļþ¡£
Print #1, "Zone 1"£» Tab £» "Zone 2" ' Êý¾ÝдÈëÁ½¸öÇø£¨print zones£©¡£
Print #1, "Hello" £» " " £» "World" ' ÒÔ¿Õ¸ñ¸ô¿ªÁ½¸ö×Ö·û´®¡£
Print #1, Spc(5) £» "5 leading spaces " ' ÔÚ×Ö·û´®Ö®Ç°Ð´ÈëÎå¸ö¿Õ¸ñ¡£
Print #1, Tab(10) £» "Hello" ' ½«Êý¾ÝдÔÚµÚÊ®ÁС£
' ¸³Öµ Boolean¡¢Date¡¢Null ¼° Error µÈ¡£
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......