كمك كنيد مشكا برنامم را درست كنم

سلام دوستان من يك ايكون جنجر نوشتم به خوبي هم كار ميده اما من ميخوام براش چند تا ايكون پيشفرض بزارم ولي نيميتونم دوستان من تازه واردم توي دنياي vb‌ اگه ميشه كمكم كنيد برطرفش كنم.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مي خوام وقتي روي اپشن كليك ميكنخ بطور پيشفرض برنامه خوده اين ايكوني كه ميبينيد رو بزاره
يعني جايگزين كنه كمك كنيد ممنون ميشم.

سلام.
من خیلی وقته VB 6 کار نکردم.الان هم نصب نیست و کد ها رو تایپ کردم.امیدوارم کمکتون کنه.

شما میتونید تو رویداد کلیک Change Icon عبارت زیر را بنویسید.

کد:

---


Dim Address as string
If Option1.Value=True then
 
Address=app.path +"\myicon.ico"
 
Icontxt.Text=Address
 
End If

---

اینجا فرض کردیم که آیکن پیش فرض شما تو مسیر پروژه قرار داره.
در واقع اینجوری میتونید مسیر آیکن پیش فرض را با مسیری که از Common Dialog انتخاب میشه جایگزین کنید.

مشكل منم اينجاست كه وقتي روي برنامه ديگه اجرا بشه ايكوني وجود نداره موندم چي كار كنم اينجا هم كه كسي جواب نيميده نيميدونم چرا :41:

اگر میخوای خود آیکان فایل exe رو تغییر بدی من کدش رو دارم اگه خواستی.

ولی اگه منظورت چیز دیگه ای هست بیشتر توضیخ بده تا راهنمایی کنیم!
ممنون :11:

برنامه كه نوشتم خوب كار ميكنه ايكون هم چنج ميكنه ولي من ميخوام چند تا ايكون پشفرض بزارم عكس نگاه كنيد بينيد يكي از ايكون هاي پيشفرض من همين ايكون اژدها هستش مي خواك وقتي روي هپشن كليك كرد بعد چنج ايكون را زد بعد همين ايكون قرار بگيره .

سلام.
سوالتو واضح مطرح کن. اگه میخوای چندین آیکون بذاری که به صورت آپشن یکیشون انتخاب بشه و آیکون انتخابی برای فایل exe قرار بگیره بهترین راه اینه که آیکون های مورد نظرتو در ریسورس قرار بدی. بعد روی هر آپشنی که کلیک شد آیکون مورد نظر از ریسورس اکسترکت بشه رو هارد و اون آیکون برای فایل exe قرار بگیره.
یا اگه کار کردن با ریسورس رو بلد نیستی میتونی یه فولدر به نام Icons کنار برنامه قرار بدی و آیکون های مورد نظرتو داخلش قرار بدی و با انتخاب هر آپشن آیکون مورد نظر ریپلیس بشه.