سوال: مخلوط کردن کامپوننت با فایل exe (خود برنامه) [بایگانی]

ali190

جمعه 11 آذر 1390, 11:23 صبح

سلام
بله این کار از طریق VB Resource Editor قابل انجام است
ابتدا از طریق منوی Add In>Add In Manager گزینه VB Resource Editor رو Load نمائید
حالا بر روی آیکون سبز رنگی که به Toolbar شما اضافه شده اقدام به افزودن فایل به محیط داخلی برنامتون کنید
بر روی گزینه Add Coustom Resource کلیک کنید و Ocx مورد نظر را فراخوانی کنید
بعد از انتخابی فایل با شماره 101 به برنامتون اضافه میشه
روی دکمه Save کلیک کنید تا برنامتون ذخیره بشه
حالا کد زیر رو برای رجیستر نمودن ocx از محیط برنامتون اجرا نمائید
If Not Dir(Environ$("windir") & "\System32\" & "YourOcx.ocx") = vbNullString Then
MsgBox "Register"
Else
MsgBox "Not Register"
On Error Resume Next
Dim my_data() As Byte
my_data = LoadResData(101, "CUSTOM")
Dim ComPath As String
Dim myArray() As Byte
ComPath = Environ$("windir") & "\System32\" & "YourOcx.ocx"
If Not Dir(ComPath) = vbNullString Then GoTo Skip
DoEvents
myArray = LoadResData(101, "CUSTOM")
Open ComPath For Binary As #1
Put 1, , myArray()
Close #1
Skip:
Shell "Regsvr32 YourOcx.ocx /s"
DoEvents
End If
توجه کنید که YourOcx نام Ocx ایست که میخواهید اون رو رجیستر نمائید
نکته آخر اینکه از این کدها باید در فرم Splash استفاده کنید
یعنی قبل از فرم اصلی و عملیاتیتون
باز هم اگر مشکلی بود در خدمتم
یاعلی