نحوه اضافه کردن tag به خصوصیات یک ماژول آماده

[bidgol 83]

سلام اساتید

اول من بگم در ادامه یک ماژول ratingBar پیوست کردم که می شه هم به جای ستاره از شکل دیگه ای استفاده کرد و هم رنگش را تغییر داد

خوبیش هم اینه که چون کلاسه به عنوان یک کد آموزشی از آن استفاده کرد امیدوارم به درد همه بخوره

مشکل اینجاست که من می خوام از آن توی مولتی پنل استفاده کنم و با استفاده از tag و sender مقادیرش را بر گردونم

اما چنین خصوصیتی نیست چگونه می تونم بهش اضافه کنم

ممنون

 

FusseldiebsRatingBarV6.zip

[bidgol 83]

اینجا کسی جواب نداد در فروم دیگه ای مطرح کردم و جواب دوست بزرگوار را اینجا عینا قرار می دهم که به درد دوستان دیگه هم بخوره

 

این متغییر رو به ساب Class_Globals اضافه کن

Private MyTag As Object

این دو تا تابع رو هم به آخر کلاس اضافه کن

Sub setTag(Tag As Object)
	MyTag = Tag
End Sub

'Get or sets Tag value.'
Sub getTag As Object
	Return MyTag
End Sub

اول ذخیره کن تا تغییرات اعمال بشه بعد برو استفاده کن