[معتز الجازوي]

هذا  الكود يقوم بوضع قيد على التيكست بوكس بحيث يسمح بأدخال الحروف فقط  ولكن هناك مشكله في وضع مساحه بين النص اي ان مفتاح السبيس او المسافه لا يعمل  


        If Char.IsLetter(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then e.Handled = True

وهذا الكود  ايظا  يقوم بوضع قيد علي التيكست بوكس بحيث يسمح بأدخال الارقام فقط  ويسمح بالفاصله العشريه  ولكن  اريد  ان اعدل فيه بحيث يسمح برقمين  فقط  بعد الفاصله العشريه 

   If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then If e.KeyChar = CChar(".") Then e.Handled = False Else e.Handled = True

[amgad525]

PHP كود :

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Not (Char.IsControl(e.KeyChar) Or Char.IsLetter(e.KeyChar) Or Char.IsWhiteSpace(e.KeyChar)) Then e.Handled = True
End Sub 


PHP كود :

Private Sub TextBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
    Dim dec As Integer = 2
    If Not (Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") Then e.Handled = True
    If (e.KeyChar = "." And sender.Text.Contains(".")) Then e.Handled = True
    If sender.Text.Contains(".") And Char.IsDigit(e.KeyChar) Then
        If sender.Text.ToString.Split(".")(1).Count = dec And sender.SelectionStart > sender.Text.IndexOf(".") Then e.Handled = True
    End If
End Sub 


[معتز الجازوي]

شكرا لك اخي الكريم ونسأل الله ان تكون في ميزان حسناتك