Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

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 û´ÎÊýÏÞ¶¨µÄ°É

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

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

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ