اضافه کردن مشخصه (Properties) به ActiveX Control

[Pr0grammer]

سلام....
چطوري ميشه موقع طراحي يک ActiveX Control يک يا چند مشخصه (Properties) بهش اضافه کرد؟ مثلاً Value يا هرچيز دلخواه ديگه ؟!

[Mbt925]

هر خصوصیت باید دارای دو متد دستیاب Get و Let باشه. بعضی از انواع خصوصیات می تونن دارای متد دستیاب Set بجای Let و یا هردو باشن.

ایجاد خصوصیت BackColor:






Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property

Public Property Let BackColor(ByVal new_BackColor As OLE_COLOR)
UserControl.BackColor = new_BackColor

PropertyChanged "BackColor"
End Property

[Pr0grammer]

راهنمائيتون در مورد اضافه کردن Property در ActiveX Control عالي بود و به خاطرش خيلي ازتون ممنونم.

اما با وجود تلاش زياد نتونستم کاري کنم که يه Property اضافه کنم که هيچ مقداري نگيره و فقط وقتي روش کليک کرديم يه پنجره (About) ظاهر بشه...

ميشه کمي در اين مورد راهنمائيم کنيد يا اگه يه نمونه برنامه برام بزاريد خيلي ممنون ميشم.

[Mbt925]

نتونستین چون اضافه کردن About مثل سایر خصوصیات نیست.

برای این منظور به متد عمومی تعریف کنید، مثلا:





Public sub About()
Msgbox "put information here"
End Sub




برید به پنجره Procedure Attributes (از منوی Tools) و از لیست بازشو گزینه ی About رو انتخاب کنید و از لیست Procudure ID شناسه ی AboutBox رو انتخاب کنید.

--------------

کتاب بسیار جامعی در مورد ساخت اکتیوایکس بزوری منتشر میشه، برای دانستن زمان انتشار با من در ارتباط باشید.