آموزش
resourse امروز می خوام در مورد فایل های رس و نحوه بکار برد اون آموزش بدم. اول باید ببینیم فایل رس به چه دردی میخوره. خوب شما اگه بخوایین توی برنامتون اینطوری تعریف کنید که مثلا با زدن یه دکمه فلان عکس از برنامه شما عوض شه. خوب شما چیکار میکنید میرید و عکس رو میزارید کنار فایل اجرایی؟ خوب تو این حالت که اگه یه عکس جابه جاشه یا گم شه که دیگه برنامه کار نمیکمنه! اصلا خیلی از عکسها و یا فایلهایی که در برنامه های معروف و یا بازی های کامپیوتری هستن رو شما نمیتونید تو مسیر فایل پیدا کنید انگار این فایلها داخل فایل اجرایی پنهان شدن! چطوری؟ با استفاده از فایلهای ریسورس!!!!نحوه کار: 
ابتدا از منوی Add-ins بر روی Add-ins maneger کلیک کرده و در جدولی که باز میشه دنبال vb6 resource editor کلیک کرده تا جلوی اون عبارت loded ظاهر شه سپس ok میکنیم. تا اینجای کار باعث اضافه شدن یه ابزار به جعبه ابزار افقی بالا شدیم که نام اون هم vb resource editor هست روش کلیک میکنیم. بعد این کار شما پنجره رس رو خواهید دید.
در پنجره ی باز شده در قسمت تولبار اون بالا میبینید که چندتا ایکون هست که اولی روش نوشته abc که ، از طریق این گزینه می تونید متن رو ذخیره کنید اگه روش کلیک کنید می بینیدکه یه پنجره با نام Edit String Tables باز میشه و در اون یه محل برای ذخیره ی متن هست که می تونید شروع به تایپ متن کنید.
در کنار اون ایکون یه ایکون دیگه هست که عکس ساعت شنی روشه ،از طریق این گزینه می تونید شکلک های موس رو ذخیره کنید.
ایکون بعدی عکس یه صفحه هست که گوشه ی اون تا خورده ، از طریق این گزینه می تونید ایکون ها رو ذخیره کنید
و آخریش هم برای بقیه فایلها هست که من در ادامه نحوه استفاده از اونها رو شرح میدم.
خوب تا حالا اگه این کارا رو کرده باشین باید متوجه شده باشید که هر فایلی که اضافه میکنید بهش یه آی دی تعلق میگیره که بوسیله همونا اونا رو فراخوانی میکنیم.
فراخوانی آیکن:اگه شما یک ایکون رو ذخیره کرده باشید می تونید اونو از این طریق فراخوانی کنید.
LoadResPicture ( id , icon )
فراخوانی تصویر:
اگر هم یه عکس باید فراخوانی شه مینویسیم:LoadResPicture ( id ,bitmap)
فراخوانی متن:
مثلا اگه آی دی متن 101 باشه و بخوایم نام فرم ما بشه مینویسیم.Form1.caption = LoadResString(101)
شکلکهای موس:
برای فراخوانی اوم هم باید بنویسیم.LoadResPicture( id ,cursor)
و اما دیگر فایلها:
این قسمت خیلی باحاله و اگه یه کم راه بیفتید میتونید کلی کارا باهاش کنید. برا فراخوانی اون که کارمون یه کم سخت تر میشه باید کدهای زیر رو بنویسید.Dim file() As Byte
file = LoadResData(101, "CUSTOM")
Open "
نام فایل" For Binary As #1Put #1, 1, file()
Close #1
خط اول یه متغیر از نوع بایت تعریف میکنه.
خط دوم اون فایلمون رو تو متغییر میزاره
خط سوم فایل رو در کنار فایل اجرایی میزاره که شما باید در قسمت نام فایل اسم جدید فایلتون که باید روی هارد قرار بگیره به همراه پسوند دقیقا بنویسید.
خط چهارم محتویات فایل رو از رس به فایلی که ساختید منتقل میسازه
خط پنجم در اینجا عملیات تموم شده و فایل رو میبنده!
حالا اگه مشکلی بود و اگه درخواست دادید یه پروژه نمونه میزارم که همه این حالات توش باشه و عملی ببینید.
