هل يوجد numeric textbox في vb.net 2005

استخدمي الفنكشن هذي وحطيها في Module

   Public Function str_Filter(ByVal Text As TextBox, ByVal ascKey1 As Integer, ByVal ascKey2 As Integer, ByVal ascKey3 As Integer, ByVal N_Repeat As Integer)
        On Error Resume Next
        '-----function dump all strings except
        Dim Delimeter As String
        Dim X As Long
        Dim intStr As String
        Dim NumberToRepeatCharacter As Integer

        'MsgBox(Chr(Asc(Text.Text)))
        'MsgBox(Asc(Text.Text))
        For X = 1 To Len(Text.Text)         'asckey1                                asckey2                              asckey3
            If Asc(Mid((Text.Text), X, 1)) >= ascKey1 And Asc(Mid((Text.Text), X, 1)) <= ascKey2 Or Asc(Mid(Text.Text, X, 1)) = ascKey3 Then
            Else
                Delimeter = Chr(Asc(Mid(Text.Text, X, 1)))
                'MsgBox(Delimeter)
            End If
        Next
        intStr = ""
        For X = 1 To Len(Text.Text)
            If N_Repeat > 0 Then
                If Asc(Mid(Text.Text, X, 1)) = ascKey3 Then
                    If NumberToRepeatCharacter >= N_Repeat Then
                        SendKeys.Send("{END}")
                        Exit For
                    End If
                    NumberToRepeatCharacter = NumberToRepeatCharacter + 1
                End If
            End If
            'If NumberToRepeatCharacter <> N_Repeat Then
            If Mid(Text.Text, X, 1) <> Delimeter Then
                intStr = intStr & Mid(Text.Text, X, 1)
                'NumberToRepeatCharacter = NumberToRepeatCharacter + 1
            Else
                'can be uncomment if you want
                'SendKeys.Send("{END}")
            End If
            ' Else
            ' SendKeys.Send("{END}")
            ' End If

            'NumberToRepeatCharacter = X
        Next
        'MsgBox(NumberToRepeatCharacter)
        str_Filter = intStr
    End Function

واما في حالات الاستدعاء كل ما عليك تسويه تضغطي على textbox مرتين عشان تدخلي على كود textchanged

 Textbox1.Text = str_Filter(Textbox1, 48, 57, 0, 0)

انا استخدم الطريقه هذي وبكذه textbox ما راح يقبل غير ارقام فقط

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        'If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back Then
            'cancel keys
            e.Handled = True
        End If
    End Sub


 Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPageNumber.TextChanged
        If IsNumeric(TextBox2.Text) = False Then 'only Number Paste
            TextBox2.Text = "" 
        End If
    End Sub

شكرا جزيلا زملائي الافاضل على تعاونكم معي الاكواد فعالة وقد قمت باستخدام الكود 'If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar ControlChars.Back AndAlso e.KeyChar "." Then If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar ControlChars.Back Then 'cancel keys e.Handled = True End Ifوهو فعال ولا يكتب سوى ارقام من 0:9 ويكتب ايضا العلامة العشرية ويمكني من استخدام ذر المسح اريد ايضا جعله يمكني من استخدام مفتاحي اللصق ctrl v

ارجو الافادة

زهرة الزنبق كتب:

هل يوجد numeric textbox في vb.net 2005

ما بعرف اذا كان موجود بال 2005 ولكن بال 2010 موجود

in the ToolBox there is MaskedTextBox

بالامكان التحكم بالحرف (numeric or text)