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

ÓÐʲô°ì·¨ÔÚVB´úÂëÀï·ÅÈëÉÏÍò¸öÊý¿â,×îÊ¡µçÄÔ×ÊÔ´?

ÎÒÏëÔÚVB³ÌÐòµÄÔ´´úÂëÀï·ÅÈëÉÏÍò¸öÉÌÆ·Ãû³ÆµÄÊý¾Ý,È»ºó°´Ò»ÏÂcommand1¾ÍËæ»úÌáȡһ¸öµ½text1ÖÐ,²»ÖªÓÐʲô°ì·¨?Ï£ÍûÄܸü¾¡Á¿²»Õ¼ÓÃCPUºÍÄÚ´æ.
·Åµ½´úÂëÀʡÄÚ´æÊDz»¿ÉÄܵģ¬Õ¼ÓÃCPUÒ²²»»á¶à¡£

·ÅÔÚ´úÂëÀï¸öÈËÈÏΪ²»¿ÉÈ¡£¬´úÂëÀï·ÅÊý¾Ý²»·½±ãÀ©Õ¹£¬¶øÇÒʵÖÊÒ²ÊÇ´æ·ÅÔÚ´úÂëÎļþÀӦ¸ÃÓÃÊý¾Ý¿â/Îļþ/excelµÈ´æÈ¡£¬

·Åµ½ÎļþÖÐ

VB code:
DATA.TXTµÄÄÚÈÝ
·ÉÈË,Çǵ¤ ,
Ã׬,ÀîÏì ,
2008,°ÂÔË»á ,
ÏàÉùÌ©¶·,ÂíÈýÁ¢ ,
¶Ì·¢,ÁºÓ½ç÷ ,
Private Sub Command1_Click()
dim rndline as string
rndline=getab(1+int(rnd()*5))
debug.print rndline
end Sub
Private Function getab(ln As Integer) As String
Dim f As Integer
Dim lns As String
f = FreeFile()
Open "DATA.TXT" For Input As #f
Seek #f, 36 * (ln - 1) + 1
Line Input #f, lns
Close #f
getab = lns
End Function



Èç¹û³¬¹ý32767¸ö¾ÍÓ¦¸Ã°ÑÉÏÃæ´úÂëÀïÃæµÄInteger¸ÄΪLong

Ö±½Ó·ÅcomboÀï

ÎÒÏë²»¹ÜÊǷŵ½Êý×黹ÊÇÉÏÃæµÄCOMBO£¬»¹ÊÇÒ»¸ö³¤×Ö·û´®£¬ÄÚ´æÓ¦¸Ã¶¼ÏûºÄµÄ²î²»¶à¡£ÎÒͬÒâÊý¾Ý¿â/Îļþ/excelÖУ¬°ÑÆäµ±×ÊÔ´ÎļþÓá£

¼´È»´ó¼Ò¶¼Õâô˵,»¹ÊDzÉÓôó¼ÒµÄÒâ¼û°É,лл¸÷λÁË.


Ïà¹ØÎÊ´ð£º

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ