ÕâÖÖÇé¿öÏ嵀 CommonDialog1.ShowSave VB´úÂëÔõôд
ÎÒÏë°Ñexe³ÌÐòËùÓÐĿ¼ÏµÄ1.txtÎļþ£¬ÓÃÒ»¸ö°´Å¥µ¼³öÈ¥£¬¾ÍÊÇ˵£¬ÎÒµãһϰ´Å¥£¬³öÏÖ±£´æ¶Ô»°¿ò£¬È»ºóÎÒÑ¡ÔñÒ»¸ö·¾¶£¬¾Í¿ÉÒÔ°Ñexe³ÌÐòËùÓÐĿ¼ÏµÄ1.txtÎļþ±£´æµ½ÎÒÑ¡ÔñµÄÄǸö·¾¶Ï£¬¶øÇÒÎļþÃûÒ²¸Ä³ÉÁËÎÒÔÚ¶Ô»°¿òÄÇÊäÈëµÄÐÂÎļþÃû£¬Çë½Ìǰ±²£¬Õâ¸ö¹ý³ÌµÄCommonDialog1.ShowSave¸ÃÔõôд£¬Ð»Ð»£¡
"exe³ÌÐòËùÓÐĿ¼ÏÂ" ÊÇʲôÒâ˼£¿
exe³ÌÐòËùÔÚĿ¼Ï¡£Â¥Ö÷Óôʲ»µ±µÄ°É
¹ÀÇÒÈÏΪÊÇÊÖÎó,exeĿ¼ÏÂÖ»ÓÐÒ»¸ö1.txt
filecopy "1.txt", CommonDialog1.filename
¿´ÆðÀ´¾ÍÊÇÕâ¸ö£¬ËäÈ»»¹Ã»ÊÔ£¬²»¹ýÎÒ²»¶®ÏÂÃæÕâЩÓï¾ä¸ÉʲôµÄ£¬ÄúÄܸæËßÎÒÓÐʲôÓÃÂð£¿
Dim buff() As Byte, i As Long
i = FileLen(mfile)
ReDim buff(i - 1)
Open mfile For Binary As #1
Get #1, , buff
Close #1
Open mfile2 For Binary As #1
Put #1, , buff
Close #1
exe³ÌÐòËùÓÐĿ¼Ï¾ÍÊÇ˵1.txtÊÇÏà¶Ô·¾¶£¬¼´ÔÚ±¾Ä¿Â¼ÏµÄÒ»¸öÎļþ£¬¿ÉÄÜÊÇÎÒû˵Çå³þ£¬ºÇºÇ
ͬÒâ 3F .
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......