ايجاد
ي د
. بعض رده اي ار آ و ... آ Label ، Text Box ل ايي مث مطمئنا تا به حال با آنترل ه
ا را د آن ه د و باي رار ندارن زار ق ه اب ه در جعب ايي آ ت ه ه از آمپونن ت آ ن اس م ممك ع ه مواق
ود و در ت دانل ايي از اينترن ت ه م آمپونن ايد ه يد ، ش رده باش تفاده آ م اس يم ه افه آن خودمان اض
ه ا را چگون ت ه ن آمپونن ه اي د آ رده اي ر آ ود فك پروژه خود به آار برده باشيد . اما تاآنون با خ
مي سازند ؟
با انجام يك پروژه ، گام به گام نحوه ايجاد يك آمپوننت را با هم طي مي آنيم .
اوس را
مثال ) آنترلي (آمپوننت) بسازيد آه با قرار دادن آن بر روي فرم ، مختصات نشانگر م
نمايش دهد.
برنامه ها را مي توانيد از اين
لينك دريافت آنيد .
را انتخاب آنيد
. ActiveX Control پس از اجراي ويژوال بيسيك
User Control
ي ود ، ش ي ش اد م يك ايج ژوال بيس ا وي ه ب آ ActiveX رل ر آنت در درون ه
اي رل ه اير آنت ه س د ب ي تواني ه م ت آ زي اس اس چي اس User Control ي ود دارد . ش وج
اضافه آنيد تا يك آنترل جديد منحصر به فردي ايجاد آنيد . ActiveX
ه آن را س زمين و پ
. Label قرار دهيد با نام 1 Label يك User Control 1 - بر روي
صورتي آنيد .
100 ، نيز قرار دهيد . ، Interval -2 يك تايمر با
اختار آن ه س ت آ اس
GetCursorPos ابع ن ت داريم . نام اي API براي انجام مسائله نياز به تابع
به صورت زير است :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi)
As Long
Private Type pointapi
x As Long
y As Long
End Type
آنترل اآتيوايكس قرار دهيد
. ، General -3 قطعه آد بالا را در قسمت
اضافه آنيد : Timer1_Timer() -4 آد زير را به روال رويداد
Private Sub Timer1_Timer()
Dim n As Long
Dim pt As pointapi
n = GetCursorPos(pt)
Label1.Caption = CStr(pt.x) + " , " + CStr(pt.y)
End Sub
راي
-5 همانطور آه مي دانيد هر آنترل با يك تصوير نشان داده مي شود . براي اينكه ب
User
رل آنت ، ToolBoxBitmap ه ي آنترل خود تصويري قرار دهيد ، بايد مشخص
مقداردهي آنيد . Control
ذخيره شود
) vbp و Ctl آنيد ( بايد دو فايل با پسوندهاي Save -6 پروژه خود را
را از نوار منو انتخاب آنيد . Close -7 حال
پس از اعمال اين آار خواهيد ديد آه آنترلي به جعبه ابزار اضافه خواهد شد .
استفاده از آنترل
:
ه ه و گزين رفت
File وي ه من ل ب ن مراح ام اي س از انج ت پ افي اس رل آ ن آنت تفاده از اي راي اس ب
زار ه اب ده را از جعب اخته ش رل س د و آنت اب آني را انخ ( New Project ه ن ) Add Project
ت راس
Project ره ده در پنج افه ش روژه اض ر روي پ ر ب يد . در آخ رم بكش ر روي ف اب و ب انتخ
را انتخاب آنيد . پروژه را اجرا و نتيجه را ببينيم . Set as Start up آليك آرده و گزينه
سوال
– آيا مي توان از اين آنترل در پروژه هاي ديگر استفاده آرد ؟
تفاده از ل اس د و مراح از آني را ب Ctl وند ا پس ده ب ره ش رل ذخي د آ نت جواب – براي اين آار ، باي
آنترل را دوباره طي آنيد . اين آار چند مشكل دارد :
ب ران مناس ه ديگ ه آن ب رد و عرض شما در دسترس همه قرار مي گي
ActiveX -1 آد
نيست .
امكان پذير نيست
. Visual C++ -2 استفاده از اين آنترل در محيط هاي مختلف مثل
ت زار نيس ه اب ه در جعب ر آ رل ديگ ر آنت د ه ما همانن ط ش ده توس اد ش اگر مي خواهيد آنترل ايج
ي و در ه راحت ه ب د و هم وم نباش د آن معل رد و آ رار گي تفاده ق مورد اس (Common Dialog (مثل
آامپايل
آنيد . OCX هر محيطي از آن استفاده آنند ، بايد آن را به فايل
سفارشي
ActiveX -5 آامپايل آردن آنترل هاي
ار ن آ آامپايل آنيد
. براي اي OCX بايد آن را به فايل ، ActiveX قبل از ارايه ي آنترل
از ( vpb و ctl وند ا پس روژه ( ب برويد و پس از ذخيره سازي پ ActiveX به مرحله ي 6 ايجاد
گزينه : File منوي
Make
نام پروژه .Ocx
را انتخاب آنيد
. فايل آامپايل مي شود .
ما حاوي آد هاي آنترل شماست و بايد در اختيار ش
vpb و ctl * يادآوري : فايل ها با پسوند
را به ديگران بدهيد . OCX باشد . براي ارائه آنترل فايل
: OCX
استفاده از
ديگر نياز نيست آد آنترل شما در پروژه آنار فرم باشد
. ، OCX با استفاده از
را انتخاب آنيد . Standard EXE -1 ويژوال بيسيك را اجرا و
ك ت آلي ا راس ا ب د ( ي اب آني را انتخ Components ه گزين Project وي -2 از من
را انتخاب آنيد ) . Components ، آردن بر روي جعبه ابزار
آليك آنيد . Borrows روي ، Components -3 در آادر محاوره اي
ActiveX
پوشه را آه شامل ، Add ActiveX Control -4 در آادر محاوره اي
را انتخاب آنيد . ActiveX شماست را پيدا و
آنيد . OK انتخاب و Components -5 آنترل را از ليست
حال از آنترل خود مانند هر آنترل ديگري استفاده آنيد .
ه در واهم آ ي خ ما م ذا از ش ت ، ل ص نيس ي نق بي شك ، اين مقاله ، مانند هر اثر ساخت انسان ب
تكميل اين مقاله ما را ياري فرماييد و نظرات و پيشنهادات خود را به ما هديه بفرماييد
.
در ضمن آد هاي مقاله را مي توانيد از اين
لينك دانلود فرماييد .
دستي دارند مي توانند
ActiveX Control و ActiveX DLL عزيراني آه در زمينه ساخت
ارسال آنند .پايان