ÓÐʲô°ì·¨ÔÚ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ÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......