ویژوال بیسیک را عروس کنیم
ویژوال بیسیک را عروس کنیم!
این مقاله حاوی آموخته هایی در باب زیبایی فرم و کنترلها و تغییر استایل آنها و ... را بنویسم.
در پایان این مقاله شما قادر خواهید بود با اندکی صرف وقت، پروزه های برنامه خود را زیبا کرده و از کنترهایی شبیه برنامه های آفیس و یا دیگر برنامه های ویندوز کنید.
1- اولین راه استفاده از ترفندی است که همه برنامه های ویندوز از آن بهره می برند. یک فایل 684 بایتی به نام *.Manifest که به جای * نام دقیق برنامه به همراه پسوند آن قرار میگیرد.
نحوه استفاده:
حالا فرض کنید میخواهیم برنامه ای با ویژوال بیسیک بنویسیم که ظاهر آن کاملا XP باشد.
ویژوال بیسیک را باز کرده و برنامه خود را مینویسیم. در آخر می بایست یک ماجول مثلا با نام ModMain به آن اضافه کرده و کدهای زیر را به آن اضافه کنیم.
سپس در قسمتی که فرم ها و ماجول ها نمایش داده میشوند با کلیک راست روی پروژه و انتخاب Project1 Properties ، Start UP برنامه را روی ماجولی که ساختیم قرار میدهیم. حالا برنامه را EXE میکنیم. و بعنوان مثال نام فایل اجرایی آن را Spanner.exe میگذاریمکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در دایرکتوری ویندوز عبارت *.manifest را سرچ میکنیم و یکی از فایلهایی را که پیدا کرده کپی کرده و در کنار Spanner.exe قرار میدهیم سپس نام آنرا به Spanner.exe.manifest تغییر میدهیم.
حالا میتوانید فایل Spanner.exe را اجرا کرده و نتیجه را ببینید! شگفت آور است. تمامی کنترلها از جمله Command ها، List box ، Combo box و .... به شکل و ظاهر Xp در آمده اند.
یک برنامه نمونه بوسیله این ترفند نوشته ام که شما میتوانید آنرا از اینجــــــــا در یافت کنید.
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
2- راه دوم استفاده از یک OCX است. این OCX را میتوانید از سایت سازنده آن دریافت کنید. راهنمای کامل استفاده از این OCX در سایت یازنده آمده است. این OCX بسیار کامل است و در ص.رتی که آنرا دانلود و نصب کنید میتوانید در قسمت گالری آن پروژه های نمونه زیبایی که بوسیله ایم OCX در محیط ویژوال بیسیک طراحی شده را ببینید.
تنها مشکل این OCX رجیستر نبودن آن است که تنها 29 روز کار میکند. و بنده کرک یا سریالی برای آن پیدا نکردم. راستی اسم این OCX رو یادم رفت بگم! OsenXPSuite 2007 نام آن است.
سایت سازنده:
اگر بازم مشکلی یا سوالی بود در خدمتم!.کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
.gif "N Aggressive (17)")
جواب بصورت نقل قول
.gif "N Aggressive (16)")
نوشته شده توسط kianbkk
