自定义textbox组件 必须是数字，同时小数位限定在小数点后三位 

 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

源码：https://files.cnblogs.com/YaDi/cls.zip

posted on 2012-11-13 00:29  YaDi  阅读(358)  评论(0)  编辑  收藏  举报