منع المستخدم من كتابة العلامة العشرية اكثر من مرة

     منقول    

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
e.KeyChar = TextBoxNumeric(sender, e.KeyChar)
End Sub

Private Sub TextBox2_TextBox3_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox2.KeyPress, TextBox3.KeyPress
e.KeyChar = TextBoxNumeric(sender, e.KeyChar, True) ' يعني قبول الفاصلة العشرية True البارامتير الأخير
End Sub


'دالة مطورة مخصصة لأي صندوق نص TextBox ليقبل ارقام فقط (والفاصلة العشرية اختيارية)
Public Function TextBoxNumeric(ByVal TextBox As TextBox, ByVal KeyChar As Char, Optional ByVal Dec As Boolean = False) As Char
Dim strvalid As String
strvalid = "0123456789"
If Dec Then strvalid = strvalid & "."
If Asc(KeyChar) > 26 Then
If InStr(strvalid, KeyChar) = 0 Then
KeyChar = Chr(0)
End If
If Dec Then
If KeyChar = "." Then
If InStr(TextBox.Text, ".") <> 0 Then
KeyChar = Chr(0)
End If
End If
End If
End If
Return KeyChar
End Function

End Class

http://jatlawi.com/programming/?p=115