Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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.net Access CrystalReport - .NET¼¼Êõ / VB.NET

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

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ