اضافه کردن یک خصیصه یا ویژگی به TextBox

[asghar2008]

سلام

دوستان گرامی ، چطور میتونم به Text box یک خصیصه یا ویژگی اضافه کنم؟؟

توضیح بیشتر :

چطور میتونم یه ویژگی به Text Box اضافه کنم که فقط 2 مقدار true , False داشته باشه. هر وقت این ویژگی رو True کردم فقط عدد قبول کنه !؟

ممنون

[مهرداد صفا]

با سلام.
شما ابتدا باید یک کلاس جدید ایجاد کرده و از TextBox ارثبری کنید:

class MyClass
inherits TextBox'...
و در این کلاس خصوصیت جدید و کد مربوطه را بنویسید و در زمان استفاده به جای TextBox از این کلاس استفاده کنید.

[asghar2008]

با سلام.
شما ابتدا باید یک کلاس جدید ایجاد کرده و از TextBox ارثبری کنید:

class MyClass
inherits TextBox'...
و در این کلاس خصوصیت جدید و کد مربوطه را بنویسید و در زمان استفاده به جای TextBox از این کلاس استفاده کنید.

سلام

ممنون که راهنمایی کردین.

من کد رو به صورت زیر نوشتم.ولی دقیق نمیدونم چه کدی رو بنویسم که مقدار وقتی True شد فقط عدد بگیره !


Public Class Classtext
Inherits TextBox
Private textbox As Boolean

Public Property astext() As Boolean
Get
Return textbox
End Get
Set(ByVal value As Boolean)
textbox = value
End Set
End Property
End Class


ممنون میشم بقیشو هم راهنمای کنید.

[مهرداد صفا]

سلام

ممنون که راهنمایی کردین.

من کد رو به صورت زیر نوشتم.ولی دقیق نمیدونم چه کدی رو بنویسم که مقدار وقتی True شد فقط عدد بگیره !


Public Class Classtext
Inherits TextBox
Private textbox As Boolean

Public Property astext() As Boolean
Get
Return textbox
End Get
Set(ByVal value As Boolean)
textbox = value
End Set
End Property
End Class

Public Class Classtext
Inherits TextBox
Private textbox As Boolean
Public Property astext() As Boolean
Get
Return textbox
End Get
Set(ByVal value As Boolean)
textbox = value
End Set
End Property
End Class
ممنون میشم بقیشو هم راهنمای کنید.

با سلام.
در مورد numeric بودن Textbox که بارها بحث شده فقط کافیست جستجو کنید.
به طور کلی:

Public Class Classtext
Inherits TextBox
Private textbox As Boolean
Public Property astext() As Boolean
Get
Return textbox
End Get
Set(ByVal value As Boolean)
textbox = value
End Set
End Property
'.........

Overrides sub OnkeyPress(E)
if not me.IsText then
'just accept numbers as input...
else
'do nothing and accept all chars
end if
end sub
End Class

[asghar2008]

با سلام.
در مورد numeric بودن Textbox که بارها بحث شده فقط کافیست جستجو کنید.




سلام

فرمایش شما درسته.

بنده فقط میخواستم نحوه اضافه کردن یک خصیصه به کنترل رو یاد بگیرم.اگه مثالشو کامل میکردن خیلی خوب میشد.

بازم ممنون...

[shadi khanum]

ببین یه property برای textbox جدیدی که از textbox مایکروسافت به ارث بردی درست کن مثلا به اسم NumricData که از جنس Boolean ، حالا تو رویداد Onkeypress اون کلاس جدیدت بگو اگه اون پراپرتی True بود، حالا اگه isnumric نبود ورودی ، handle رو True کن..

[asghar2008]

سلام

ممنون از دوستان که راهنمایی کردن.

کدی که استفاده کردم به صورت زیر هستش اگه خصیصه isnumbric رو مساوی true قرار بدیم فقط اعداد رو قبول میکنه !


Public Class Classtext
Inherits TextBox
Private textboxnum As Boolean = True
Public Property isnumbric() As Boolean
Get
Return textboxnum
End Get
Set(ByVal value As Boolean)
textboxnum = value
End Set
End Property
'.........
Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If textboxnum = True Then
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
e.Handled = True

End If
End If
End If
End Sub
End Class


اینم از فایل dll :