VBÖйØÓÚ×ÊÔ´±à¼Æ÷µÄÁ½¸öÎÊÌâ
ÕâÊÇÒ»¶Î½«VBÖÐ×ÊÔ´±à¼Æ÷µÄÎļþÊä³öµÄ´úÂë
VB code:
Private Function ExportFilefromRes(ByVal ID As Long, ByVal Filename As String) As Boolean
ExportFilefromRes = False
Dim bytDbt() As Byte
Dim intT As Integer
If Dir(Filename) <> "" Then
ExportFilefromRes = False
Exit Function
End If
bytDbt = LoadResData(ID, "CUSTOM")
intT = FreeFile
Open Filename For Binary As intT
Put intT, , bytDbt
Close intT
ExportFilefromRes = True
End Function
Private Sub Form_Load()
ExportFilefromRes 101, "c:\123.exe"
ExportFilefromRes 102, "c:\234.exe"
End Sub
¶ÔÓÚÕâ¶Î´úÂ룬ÎÒÓÐÁ½¸öÎÊÌâ
1¡¢ÔõôÏÔʾ½ø¶È
2¡¢ÕâÊÇÓÃExportFilefromRes 101, "c:\123.exe"²Ù×÷µÄ£¬ÐèÒªÊäÈëÎļþÃû£¬ÇëÎÊÔõôֱ½Ó´Ó×ÊÔ´±à¼Æ÷ÀïµÃµ½ÎļþÃûÄØ£¨ÎÒÒªÅúÁ¿Êä³ö£¬Ò»¸ö¸öÊäÎļþÃûºÜÂé·³£©
ÆÚ´ý
µÚ¶þ¸öÎÊÌâÓ¦¸Ã²»ÄÑ,ÎļþÃûͬÑù¿ÉÒÔ·ÅÈë×ÊÔ´Îļþ,ÓÃʱÓÃLoadResString»ñÈ¡ºó,´úÌæ ExportFilefromResÖеÄÎļþÃû¾ÍÐÐÁË
¶Ô²»Æð£¬ÎÒ¸Õ½Ó´¥×ÊÔ´±à¼Æ÷£¬ÄãÄÜ˵Çå³þµãÂ𣬸ø¸ö·¶Àý
Äã´ÓÍâ½Ó³ÌÐò¹ÜÀíÆ÷¼ÓÔØ×ÊÔ´±à¼Æ÷,Äã°Ñ¸÷Àà×ÊÔ´·Å½øÈ¥,±£´æ,ÄãÔٰѸ÷Àà×ÊÔ´ÊͷųöÀ´,¾ÍÖªµÀÔõô»ØÊÂÁË,ÍâÀ´×ÊÔ´Îļþ,´Ó¹¤³Ì---Ìí¼ÓÎļþ¼ÓÈëµ½¹¤³ÌÖÐÔÙ±à¼ÏÂ,×Ô¼º¸ãϾÍÃ÷°×.
Õâ¶Î´úÂëÊÇ´Ó .exe Îļþ×ÔÉíµÄ×ÊÔ´ÀïÊÍ·ÅÊý¾Ý£¬Ð´µ½´ÅÅÌÉϰɣ¡
Ó¦¸Ã˵£¬Ëü¸ú¡°×ÊÔ´±à
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......