ايجاد
ي 􀑧 د
. بعض 􀑧 رده اي 􀑧 ار آ 􀑧 و ... آ 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 عزيراني آه در زمينه ساخت
ارسال آنند .پايان