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

vbʹÓÃopen·½·¨¶ÁдÎļþ

 
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍĿ¼
¡¡
¡¡£¨2£©Input Output
ºÍAppendÓÃÓÚÉèÖÃ˳ÐòÎļþµÄ´ò¿ª·½Ê½¡£ÆäÖУ¬Input±íʾ´Ó´ò¿ªµÄÎļþÖжÁÈ¡Êý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬Îļþ±ØÐë´æÔÚ£¬·ñÔò»á²úÉú´íÎó¡£
Output±íʾÏò´ò¿ªµÄÎļþÖÐдÈëÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬ÎļþÖÐÔ­ÓеÄÊý¾Ý½«±»¸²¸Ç£¬ÐµÄÊý¾Ý½«´ÓÎļþ¿ªÊ¼Ð´Èë¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂÎÄ
¼þ¡£Append±íʾÏò´ò¿ªµÄÎļþÖÐÌí¼ÓÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÊ±£¬ÎļþÖÐÔ­ÓеÄÊý¾Ý½«±»±£Áô£¬ÐµÄÊý¾Ý½«´ÓÎļþΪ¿ªÊ¼Ìí¼Ó¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂ
Îļþ¡£
¡¡¡¡£¨3£©As[#]filenumber ×Ó¾äÓÃÓÚΪ´ò¿ªµÄÎļþÖ¸¶¨ÎļþºÅ.¶ÔÎļþ½øÐжÁд²Ù×÷ʱ,ÒªÓÃÎļþºÅ±íʾ¸ÃÎļþ.ÎļþºÅÊǽéÓÚ1~511Ö®¼äµÄÕûÊý,¼È¿ÉÒÔÊÇÊý×Ö,ÓÖ¿ÉÒÔÊDZäÁ¿.Ò²¿ÉÒÔÊ¡ÂÔ²»ÓÃ.
¡¡¡¡(4)µ±ÔÚÎļþÓë³ÌÐòÖ®¼ä¿½±´Êý¾Ýʱ,Len=buffersize×Ó¾äÖ¸¶¨»º³åÇøµÄ×Ö·ûÊý.
¡¡¡¡ÀýÈç:

Open App.Path + "\test.dat" For Output As 1
Open App.Path + "\test.dat" For Output As 1
¡¡¡¡ÕâÁ½¾ä´úÂëÔÚµ±Ç°Ó¦ÓóÌÐòËùÔÚĿ¼Ï´´½¨ÁËÒ»¸öÃûΪtest.datµÄÎı¾Îļþ,·ÖÅäÎļþºÅΪ1.

Open App.Path + "\test.dat" For Input As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÊÇ´ÓÎı¾ÎļþÖжÁÈ¡Êý¾Ý.

Open App.Path + "\test.dat" For Append As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÔòÊÇÏñÎı¾ÎļþÖÐÌí¼ÓÊý¾Ý
¡¡¡¡2¡¢Ëæ»úÎļþ
¡¡¡¡²Ù×÷Ëæ»úÎļþ֮ǰ,Ê×ÏȱØÐ붨ÒåÓÃÓÚ±£´æÊý¾ÝÏîµÄ¼Ç¼ÀàÐÍ.¸Ã¼Ç¼ÊÇÓû§×Ô¶¨ÒåÊý¾ÝÀàÐÍ,ËûÃÇÊÇËæ»úÎļþÖд洢Êý¾ÝµÄ»ù±¾½á¹¹.ÀýÈç:

Type Student
¡¡No As Integer
¡¡Name As String * 20
¡¡age As Integer
End Type
Dim Stud As Student ‘¶¨ÒåÒ»¸ö¿ÉÒÔ´æ·ÅѧÉú²ÄÁϵıäÁ¿
¡¡¡¡Ëæ»úÎļþÖÐ,ËùÓеÄÊý¾Ý¶¼½«±£´æµ½Èô¸É¸ö½á¹¹ÎªStudentÀàÐ͵ļǼÖÐ, ¶ø´ÓËæ»úÎļþÖжÁ³öµÄÊý¾ÝÔò¿ÉÒÔ´æ·Åµ½±äÁ¿StudÖÐ.
¡¡¡¡Ö®ºóÎÒÃǾͿÉÒÔ´ò¿ª²¢¶ÁдÎļþÁË.ÏÂÃæÊÇ´ò¿ªËæ»úÎļþµÄÓï·¨¸ñʽ:

Open filename For Random as [#]filenumber Len = Reclengt


Ïà¹ØÎĵµ£º

VBÓï·¨¹æ·¶


Ò»¡£Êý¾ÝÀàÐÍ
 Byte 1
×Ö½Ú ÎÞ·ûºÅ
 Interger  2
×Ö½Ú
 Long  4
×Ö½Ú
 Float 4
×Ö½Ú
 Double 8
×Ö½Ú
 String
 Date
 Boolean
 Currency
 Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
 
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
 
±ä³¤×Ö·û´®£ºdi ......

VBʹÓÃActiveX¿Ø¼þʵÀýºÍ²½¾Û

Ä¿µÄÕÆÎÕÒ»¸ö¼òµ¥µÄVB³ÌÐòµÄ½¨Á¢¡¢±à¼­¡¢µ÷ÊÔ¡¢ÔËÐкͱ£´æµÄ·½·¨¡£
²Ù×÷²½Öè ¢Å½øÈëVB»·¾³£¬Ð½¨¹¤³Ì¡£·½·¨ÊÇ£ºÈç¹û³öÏ֓н¨¹¤³Ì”¶Ô»°¿ò£¬ÔòÑ¡Ôñ“±ê×¼.EXE”²¢µã»÷[´ò¿ª]°´Å¦£»»òÕßÖ±½Óµã»÷²Ëµ¥[Îļþ]-[н¨¹¤³Ì]¡£¶¼»á³öÏÖÒ»¸öÃûΪ“Form1”µÄд°Ìå¡£
¢Æ´Ó±ê×¼¿Ø¼þ¹¤¾ßÀ¸ÖÐÏò´°Ìå¼Ó ......

vb¿ìËÙ·ÃÎÊ×¢²á±íµÄ·½·¨

VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
Min ......

Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©

Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
  ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃæ£¬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃæ£¬Êý¾Ý¿â»¹ÊÇÕ ......

¹ØÓÚVBµÄListBox¿Ø¼þÑ¡¶¨ÏîµÄ»ñÈ¡

 ½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½Ô­Òò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ