ذخيره فرم به صورت فايل Exe

[Golsha]

سلام دوستان ميخواستم بپرسم كه چه طوري ميشه وقتي كه برنامه در حالت Run Time قرار داره با زدن يه Button فرم دوم به صورت يه فايل exe توي Desktop ذخيره بشه ؟؟؟

ممنون

[.:KeihanCPU:.]

میتونید فرم دوم رو از قبل کامپایل کنید و Exe ای که تولید میشه رو ریسورس برنامه اصلی کنید

[pcdownload.bloghaa.com]

بهتره از يه ترفند استفاده كني:

form_load
dim temp as string
open app.pad+"\"+app.exename+".exe" for binary as #1
get #1, ,temp
k=mid(temp,len(temp)-1,1)
if k="v" then
load form2
form2.visible=true
form1.visible=false
end if
close #1

command1_click
copyfile app.path+app.exename+".exe","c:\a.exe"
open "c:\a.exe" for binary as #1
put #1,len(temp),"v"
close #1البته كد ممكنه اشكالاتي داشته باشه

[Golsha]

خيلي ممنون ولي كدي كه گذاشتيد اشكال داره اگه ميشه اصلاحش كنيد .

[Dr.Bronx]

بهترین حالتی که به ذهن بنده میرسه
این هست که فرم رو یک فایل exe در نظر بگیرید.
یعنی اینکه هیچی دیگه یعنی نداره :لبخند:

یک برنامه هم ضمیمه کردم که ساخت exe در Runtime هست
عکس برنامه :

http://www.planet-source-code.com/upload_PSC/screenshots/PIC200362025212051.gif

موفق و موید باشید ./