آموزش Ocx نويسي قسمت 2

در این قسمت مي خواهیم به آموزش شي ambient و ایجاد متد براي شي خود و يا ایجاد يک ويژگي براي شي بپردازیم!

 شي Ambient  :

يک شي مهم هنگام ايجاد كنترل هاي ActiveX شي ambient Properties است. اين شي تنظیم فرم يا شي در بر گیرنده ي ديگري كه كنترل ActiveX‌ به كار مي برد را به عهده دارد. شي Ambient Properties با رجوع به مشخصه ي Ambient شي User Control قابل دسترس است. به عنوان مثال در صورتی كه بخواهید مقدار مشخصه ي Back Color مربوط به User Control را با همان مقدار مشخصه ي Back Color در برگیرنده ي ActiveX تنظیم كنيد از كد زير استفاده كنيد:

Usercontrol.backcolor = Ambient.backcolor

اين خط را مي توانيد در رویداد UserControl_Initialize()   درج كنيد!

ايجاد متد و ويژگي:

براي اين كار نیاز به رعایت چند نکته دارید كه با رعایت آنها كار بسیار آسان است.

بعد از اين كه وارد محیط كد نويسي در User Control شدید به منو Tools رفته و با انتخاب Add Procedure… منتظر نمايش صفحه ي زير باشد.

 نكته : گزينه ي Add Procedure تنها در صورتي فعال است كه در حالت View Code  باشيد.

در كادري كه مشاهده مي شود شما بايد نام ويژگي يا متد خود را وارد كنيد.

تنها تفاوت در هنگام ايجاد متد و ويژگي در اين ناحيه مشخص مي شود كه با انتخاب Sub  شما يک متد را مي سازيد ولي با انتخاب Property شما يک ويژگي مي سازيد.

اگر گزينه ي Property  را انتخاب كنيد شما مشاهده خواهيد كرد كه دو روال براي شما باز شده كه با نام هاي  Let  و Get از هم متمايز شده اند.

حال در بخش General‌ 2 متغير ايجاد كنيد. اين متغير ها داده هاي واقعي شي را نگه مي دارند.

در روال Let مقدار زمان اجرا مشخصه خود را به متفير تعريف شده ي خود ارسال كنيد. مقدار زمان اجرا با روال مورد نظر و به صورت آرگومان vNewValue ارسال مي شود:

Dim m_Simple as integer

Public Property Let Simple(ByVal vNewValue As Variant)

M_simple = vNewValue

End Property

نكته : به طور متعارف متغير ها با پيشوند m مشخص مي شوند.

توضيح : هنگامي كه مقداري براي مشخصه يک شي قرار مي دهيد، روال Let آن مشخصه و هنگام به دست آوردن مقدار يک مشخصه،  روال Get آن مشخصه فراخواني مي شوند.

براي قسمت آخر شما بايد در روال Get بايد نام مشخصه را با متغير تنظيم كنيد :

Public Property GetSimple() as integer

Simple = m_Simple

End Property

كار تمام شده و شما مي توانيد از آن شي بعد از كامپايل كردن از آن استفاده كنيد.  در بخش قبلي آموزش نحوه ي Compile كردن فايل Ocx توضيح داده شده است.