اصولا ً افرادی که با برنامه نویسی زیاد سر و کار دارن باید بدونن که چطوری اشیائی درست کنن که به دردشون بخوره و ازش تو برنامه هاشون استفاده کنن .از مزایای ساختن ActiveX Objects نسبت به استفاده کد ها در رویه های داخلی برنامه میشه به موارد زیر اشاره کرد :

1)       بالا رفتن سرعت برنامه نویسی برنامه نویس.

2)       امکان استفاده از  OCX  های ایجاد شده در چند پروژه.

3)       کاهش Bug  های برنامه.

4)       نظم و انسجام بیشتر برنامه و کدها و خواناتر شدن برنامه.

5)       پایین آمدن تعداد خطوط برنامه و کم حجم تر شدن و  Compile  بهتر.

 

تفهیم موضوعی:

ما به عنوان نمونه می خوایم یک Object  درست کنیم که دارای 2 عمل کرد باشد .هنگامی که دستور میدیم زمان رو نشون بده و وقتی می خوایم تاریخ رو نشون بده .

برای اینکار مراحل زیر رو رنبال کنید .

1)       مطابق شکل  VB رو باز کنید و گزینه ActiveX Control رو انتخاب نمایید.

 

 

2)       حالا یک Label  روی فرم با این خصیصه ها ایجاد کنید .

Alignment                   2-Center

Backcolor                    &H00FFC0C0&

Border Style                1-Fixed Single

Caption                       [Empty]

 

3)حالا یک تایمر با interval 100  ایجاد کنید .و Enabled اون رو برابرFalse  قرار بدین .

 

4)مطابق شکل عرض و طول فرم User Control  (همونی که روش همه اشیا رو گذاشتین)رو با عرض و طول Label1 یکی کنین و Label 1 رو به گوشه بالا سمت چپ ببرین تا فقط Label دیده بشه .

5)درون پنجره کد این دو Function  رو بنویسین.

Public Function SetTime()

Timer1.Enabled = True

End Function

Public Function SetDate()

Timer1.Enabled = False

Label1.Caption = Date

End Function

6)       درون کد تایمر این کد رو تایپ کنین.

Label1.Caption = Time

 

    

7)       کل پروژه رو Save  کنید .

8)       مطابق شکل می خواهیم فایل OCX رو که در واقع همین ActiveX Object ی هست که ساختیم رو ایجاد کنیم تا بتونیم کاراییش رو امتحان کنیم .

برای این کار از منو File  گزینه make  رو انتخاب نمایید.و در هر جایی که دوست داشتین Save کنید.

 

حالا می خوایم از این ActiveX Object  استفاده کنیم .

1)                          VB رو باز کرده و یک پروژه ایجاد نمایید

2)                          در منو ابزار RClick  کنین و Components رو بزنید.

3)                          از قسمت Browse  فایل OCX ی رو که ساختین رو انتخاب و OK کنین.

4)                          همونطور که ملاحظه می کنین یک Object جدید به نوار ابزار اضافه شده که همون ActiveX Object ی هست که ساختیم یکی از اون رو روی فرم بذارین و 2 CommandButton  مثل شکل ایجاد کنین و کدهای زیر رو توشون بذارین .

Private Sub Command1_Click()

UserControl11.SetTime

End Sub

 

Private Sub Command2_Click()

UserControl11.SetDate

End Sub

 

5) برنامه رو اجرا کنین و اون رو امتحان کنین و ببینین چقدر کیف میده.

 

 

 هنگامی که Command1 کلیک می شود ActiveX Object ی که ساختیم زمان رو نشون میده .

وقتی که Command2 کلیک میشه تاریخ رو نشون میده .