تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكست بوكس يسمح بإدخال أرقام فقط أو حروف فقط
#1
الكلاس التالي عبارة عن تكست بوكس يسمح بإدخال أرقام فقط أو حروف فقط و الكلالس ثم توريثه من TextBox الموجود في الدوت نت

الكود :

PHP كود :
Imports System.Globalization

Public Class CairoTextBox
    Inherits TextBox

    Private _textType 
As TextTypes TextTypes.Numbers
    Private _message 
As String String.Empty
 
   Private tip As ToolTip = New ToolTip()

 
   Private Sub ShowTip()
 
       Me.tip.AutomaticDelay 1
        Me
.tip.AutoPopDelay 1000
        Me
.tip.SetToolTip(MeMe._message)
 
       Me.tip.Show(Me._messageMeMyBase.Width 2MyBase.Height)
 
   End Sub

    Private Sub HideTip
()
 
       Me.tip.SetToolTip(MeString.Empty)
 
       Me.tip.AutomaticDelay 1000
        Me
.tip.Hide(Me)
 
   End Sub

    Protected Overrides Sub OnLostFocus
(As EventArgs)
 
       If Not MyBase.DesignMode Then
            Me
.HideTip()
 
       End If
 
       MyBase.OnLostFocus(e)
 
   End Sub

    Protected Overrides Sub OnTextChanged
(As EventArgs)
 
       MyBase.OnTextChanged(e)
 
       Me.ShowText()
 
   End Sub

    Private Sub ShowText
()
 
       If Not MyBase.DesignMode Then
            Dim selection 
As Integer MyBase.SelectionStart
            Dim bool 
As Integer 0
            Dim txt 
As String String.Empty
 
           Dim s As String Me.Text

            For i 
As Integer 0 To s.Length 1
                Dim current 
As Char s(i)
 
               Select Case Me._textType
                    Case TextTypes
.Numbers
                        If Char
.IsNumber(currentThen
                            txt 
+= current
                        Else
                            bool 
+= 1
                        End 
If

 
                   Case TextTypes.Characters
                        If Not Char
.IsNumber(currentThen
                            txt 
+= current
                        Else
                            bool 
+= 1
                        End 
If
 
               End Select

            Next

            If bool 
0 Then
                Me
.Text String.Format(CultureInfo.CurrentCulture"{0}", {txt})
 
               MyBase.SelectionStart selection bool
                Me
.ShowTip()
 
               Return
            End 
If
 
           Me.HideTip()

 
       End If
 
   End Sub

    Public Property TextType 
As TextTypes
        Get
            Return Me
._textType
        End Get
        Set
(value As TextTypes)
 
           Me._textType value
        End Set
    End Property

    Public Property TipMessage 
As String
        Get
            Return Me
._message
        End Get
        Set
(value As String)
 
           Me._message value
        End Set
    End Property

End 
Class

Public 
Enum TextTypes
    Numbers
    Characters
End Enum 

أضف الكلاس لمشروعك
قم بعمل Build لللكلاس
أضف التكست بوكس للفورم

اضبط الحواص التالية:
حدد نوع المدخلات إما حرزف أو أرقام من الصفة TextType
خدد نوع الرسالة التي تريد إظهارها في حالة الخطأ من الصفة TipMessage
مثلا لو نوع المدحلات أرقام فقط ممكن تكون رسالة الخطأ ...... مسموح إدخال أرقام فقط


الكلاس أعلاه ممكن كتابته علي هيئة كلاسان
الكلاس الأول يقبل أرقام فقط
PHP كود :
Imports System.Globalization

Public Class NumbersTextBox
    Inherits TextBox

    Private tip 
As ToolTip = New ToolTip()
 
   Private _message As String "مسموح إدخال أرقام فقط"


 
   Private Sub ShowTip()
 
       Me.tip.AutomaticDelay 1
        Me
.tip.AutoPopDelay 1000
        Me
.tip.SetToolTip(MeMe._message)
 
       Me.tip.Show(Me._messageMeMyBase.Width 2MyBase.Height)
 
   End Sub

    Private Sub HideTip
()
 
       Me.tip.SetToolTip(MeString.Empty)
 
       Me.tip.AutomaticDelay 1000
        Me
.tip.Hide(Me)
 
   End Sub

    Protected Overrides Sub OnLostFocus
(As EventArgs)
 
       If Not MyBase.DesignMode Then
            Me
.HideTip()
 
       End If
 
       MyBase.OnLostFocus(e)
 
   End Sub

    Protected Overrides Sub OnTextChanged
(As EventArgs)
 
       MyBase.OnTextChanged(e)

 
       If Not MyBase.DesignMode Then
            Dim selection 
As Integer MyBase.SelectionStart
            Dim bool 
As Integer 0
            Dim txt 
As String String.Empty
 
           Dim s As String Me.Text
            For i 
As Integer 0 To s.Length 1
                Dim current 
As Char s(i)
 
               If Char.IsNumber(currentThen
                    txt 
+= current
                Else
                    bool 
+= 1
                End 
If
 
           Next

            If bool 
0 Then
                Me
.Text String.Format(CultureInfo.CurrentCulture"{0}", {txt})
 
               MyBase.SelectionStart selection bool
                Me
.ShowTip()
 
               Return
            End 
If
 
           Me.HideTip()

 
       End If
 
   End Sub

    Public Property TipMessage 
As String
        Get
            Return Me
._message
        End Get
        Set
(value As String)
 
           Me._message value
        End Set
    End Property

End 
Class 

الكلاس الثاني يقبل حروف فقط

PHP كود :
Imports System.Globalization

Public Class CharactersTextBox
    Inherits TextBox

    Private tip 
As ToolTip = New ToolTip()
 
   Private _message As String "مسموح إدخال حروف فقط"

 
   Private Sub ShowTip()
 
       Me.tip.AutomaticDelay 1
        Me
.tip.AutoPopDelay 1000
        Me
.tip.SetToolTip(MeMe._message)
 
       Me.tip.Show(Me._messageMeMyBase.Width 2MyBase.Height)
 
   End Sub

    Private Sub HideTip
()
 
       Me.tip.SetToolTip(MeString.Empty)
 
       Me.tip.AutomaticDelay 1000
        Me
.tip.Hide(Me)
 
   End Sub

    Protected Overrides Sub OnLostFocus
(As EventArgs)
 
       If Not MyBase.DesignMode Then
            Me
.HideTip()
 
       End If
 
       MyBase.OnLostFocus(e)
 
   End Sub

    Protected Overrides Sub OnTextChanged
(As EventArgs)
 
       MyBase.OnTextChanged(e)

 
       If Not MyBase.DesignMode Then
            Dim selection 
As Integer MyBase.SelectionStart
            Dim bool 
As Integer 0
            Dim txt 
As String String.Empty
 
           Dim s As String Me.Text
            For i 
As Integer 0 To s.Length 1
                Dim current 
As Char s(i)
 
               If Not Char.IsNumber(currentThen
                    txt 
+= current
                Else
                    bool 
+= 1
                End 
If
 
           Next

            If bool 
0 Then
                Me
.Text String.Format(CultureInfo.CurrentCulture"{0}", {txt})
 
               MyBase.SelectionStart selection bool
                Me
.ShowTip()
 
               Return
            End 
If
 
           Me.HideTip()

 
       End If
 
   End Sub

    Public Property TipMessage 
As String
        Get
            Return Me
._message
        End Get
        Set
(value As String)
 
           Me._message value
        End Set
    End Property

End 
Class 


أتمني أن يكون الكود مفيدا لكم
Retired
الرد }}}}
#2
كلاس مهم جداً

شكرا أستاذ silverlight
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تغيير حجم التيكست بوكس عند الكتابة فيه سعود الشامان 1 131 02-10-17, 09:16 AM
آخر رد: ابو روضة
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 14 3,431 20-09-17, 12:32 AM
آخر رد: ابوثامر الحربي
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 6 974 18-06-17, 03:36 AM
آخر رد: أبووسم
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 2 1,154 25-01-17, 06:53 PM
آخر رد: ridha69
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 508 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 754 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,562 30-06-16, 07:17 PM
آخر رد: aliday03
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 950 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 594 28-05-16, 11:57 PM
آخر رد: CLARO
  [سؤال] كود لو سمحتم قروب بوكس مخفية bidaya 4 544 06-05-16, 04:46 PM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم