سلام
سال نو مبارک
اگه می خواید به یک کنترول دیگه properti بدین میتونید از وراثت استفاده کنید به مثال پایین توجه کنید من به وسیله ارث بری از یک تکس باکس یه تکس باس جدید با یک پروپرتی جدید ایجاد میکنم که با Build کردن برنامه داخل ToolBax به عنوان یک عضو جدید نمایش داده میشه .. این قابلیت رو به تکس باکس اضافه میکنم که بتونه فقط کلید هایی رو در یافت کنه که من میخوام
Public
Class NewTextBox : Inherits TextBox
Dim FilterKey_1 AsString = "*"
PublicProperty FilterKey() AsString
Get
Return FilterKey_1
EndGet
Set(ByVal value AsString)
FilterKey_1 = value
EndSet
EndProperty
PrivateSub NewTextBox_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesMe.KeyPress
'8 - for BackSapce
If FilterKey <> "*"Then
If InStr(FilterKey, e.KeyChar) = 0 And Asc(e.KeyChar) <> 8 Then
e.KeyChar =
Nothing
EndIf
EndIf
EndSub
EndClass
البته این کنترول هنوز در برابر Copy & past مقابی انجام نمیده کاری نداره چون یه مثال سادست دیگه خودتون زحکتش رو بکشین اگه به پروپرتیس این کنترول برید یه پروپرتی جدید به نام FilterKey می بینید که میتونید مقدار بدید مثلاً (1234567890) با این ورودی تکس باکس فقط عدد دریافت میکنه
بازم سال نو رو صمیمانه به همه دوستان و اساتید تبریک میگم
پاسخ با نقل قول