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

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 Îļþ×ÔÉíµÄ×ÊÔ´ÀïÊÍ·ÅÊý¾Ý£¬Ð´µ½´ÅÅÌÉϰɣ¡

Ó¦¸Ã˵£¬Ëü¸ú¡°×ÊÔ´±à


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

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

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

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ