1 Private Sub SapNumBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged 2 Try 3 Decimal.Parse(Me.Text.ToString) 4 If Me.Text.LastIndexOf(".") > 0 Then 5 If Me.Text.Length - Me.Text.LastIndexOf(".") > 4 Then 6 Me.Text = Me.Text.Substring(0, Me.Text.Length - 1) 7 Me.SelectionStart = Me.Text.Length 8 Me.ScrollToCaret() 9 Me.Focus() 10 End If 11 End If 12 Catch ex As Exception 13 14 If Me.Text.Length > 0 Then 15 Me.Text = Me.Text.Substring(0, Me.Text.Length - 1) 16 Me.SelectionStart = Me.Text.Length 17 Me.ScrollToCaret() 18 Me.Focus() 19 End If 20 End Try 21 End Sub
源码:http://files.cnblogs.com/YaDi/cls.zip