X
تبلیغات
رایتل
شنبه 19 مرداد‌ماه سال 1387 ساعت 12:45 ب.ظ

موزش Resource کردن فایل در ویژوال بیسیک

در ابتدا شما باید برنامه Resource Editor را فرا خوانی کنید برای این کار به منوی Add-Ins رفته وبعد   Add-In Manager  را انتخاب کنید در لیست باز شده بر روی   VB 6 Resource Editor دو با ر کلیک کنید  تا مقابل آن کلمه Loaded ظاهر شود بعد ok  را زده بعد آیکنی در بالا ظاهر می شود

 (   ) آن را انتخاب کنید تا وارد Resource Editor شوید. در قسمت با لای برنامه آیکن هایی می بینید که هر کدام جهت ریسورس کردن هر فایلی است . آیکن اولی مر بوط به ریسورس های متنی آیکن دومی مربوط به شکلک موس آیکن سومی مربوط به آیکن  وآیکن بعدی مربوط به عکس هایی با فرمت BMP   و در آخر ریسورس کردن هر فایلی که می تواند exe  یا dll  و... باشد.

خوبب بعد از اینکه فایل های مورد نظرتون رو اضافه کردید نوبت می رسه به استفاده از اونا

 

 حتما متوجه شدید که وقتی یه فایل رو اضافه می کردید بهش یه شماره تعلق می گرفت که معمولا این شماره هاست 101,102,103,104,.... به این شماره ها ID  فابل میگند که برای تغییر اون می تونید روش دابل کلیک کنید و در پنجره ی باز شده در قسمت id هرچی خواستید بنویسید طریقه ی استفاده از این فایل ها بستگی به نوع اون داره که تک تک اموزش آنها را می دهیم

 

 1-اگه شما یه متن رو اضافه کرده باشید(ایکون اولی که روش نوشته abc ) باید این دستو ر رو براش بنویسید:

LoadResString( id )

که به جای id باید ایدی ی اون متن رو بنویسید. مثلا

Form1.caption = LoadResString(101)

2-اگه شما یه شکلک موس رو ذخیره کرده باشید (ایکون دوم که عکس ساعت شنی داشت) باید این دستور رو براش بنویسید

LoadResPicture( id , ResType )

در این دستور باید به جای id  ای دی فایل رو بنویسیدو به جای ResType نوع فایل که در اینجا چون شکلک موس رو می خواید لود کنید باید عدد 2 رو به جاش بنویسید مثلا:

Form1.Mouseicon = LoadResPicture (101 , 2)

3-اگه شما یک ایکون رو ذخیره کرده باشید می تونید اونو  از این طریق فراخوانی کنید:

LoadResPicture ( id , ResType )

اینم مثل قبل باید به جای id  ای دی فایل رو بذارید و به جای ResType  نوع فایل که اینجا چون فایل ما ایکون هست از عدد 1 به جای اون استفاده کنید. مثلا:

Form1.Icon = LoadResPicture ( 101 , 1 )

4-اگه شما یه فایل تصویری (با پسوند bmp چهارمین ایکون که توضیح دادم)ذخیره کرده باشید از طریق این کد اونو فراخوانی کنید:

LoadResPicture ( id, ResType )

اینم مثل قبل باید به جای  id  ای دی فایل و به جای ResType نوع فایل که چون فایل تصویری هست از از عدد 0 به جای اون استفاده می کنیم .مثال:

Picture1.Picture = LoadResPicture ( 101 , 0)

5- و در آخر فایل با هر پسوندی که خواستید:

این یکی با بقیه فرق داره اول از همه شما باید اونو لود کنید و بعدش اونو داخل یه فایل خارج از برنامتون بذارید تا بتونید از اون استفاده کنید.

 

 دستور اولیه ی لود کردن اینه:

LoadResData( id , ResType)

 حالا یه نمونه کد می ذارم و خط به خط توضیح میدم:

Dim Buffer As String

Buffer = StrConv(LoadResData(101, "CUSTOM", vbUnicode)

Open "c:\custom.*" For Output As #1

Print #1, Buffer

Close #1

در خط اول ما یه متغیر از نوع string تعریف کردیم.

 درخط دوم فایلی که در resource  گذاشتیم رو تبدیل و در  buffer لود کردیم.

 در خط سوم یه فایل درست کردیم با پسوند dll (توجه کنید نوع فایل باید با نوع فایلی که قبلا به resource اضافه کردید یکی باشه ).

در خط چهارم محتویات buffer  که قبلا فایل مورد نظرمون رو توش لود کردیم به داخل فایلی که در خط سوم درست کردیم میریزه.

 همچنین نمونه کد های بالا را می توانید از برنامه زیر دانلود کنید :

لینک دانلود( حچم 8 کیلو بایت)

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo