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 Îļþ×ÔÉíµÄ×ÊÔ´ÀïÊÍ·ÅÊý¾Ý£¬Ð´µ½´ÅÅÌÉϰɣ¡
Ó¦¸Ã˵£¬Ëü¸ú¡°×ÊÔ´±à
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......