[ابو انس]

وعليكم السلام 
الكود التالي لمنع كتابة اي شيء في التيكست بوكس باستثناء الارقام والفاصلة بنوعيها وطبعا انت تستطيع التعديل عليه ويجب ان يكون في حدث KEYPRESS

كود :

 If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
          e.Handled = True
      End If

  

الكود التالي لمعرفة تكرار حرف معين وفي مثالي هذا معرفة تكرار الفاصلة . واذا كانت مكررة يعطي رسالة تنبيه

كود :

dim a as integer
    For i As Integer = 0 To TextBox1.TextLength - 1
           If TextBox1.Text.Chars(i) = "." Then
               a += 1
           End If
       Next
       If a > 2 Then
           MsgBox("الفاصلة مكررة")
       End If