[VB.NET]Text控制只可以填写数字

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. Private Sub TxtPrice_KeyPress(省略) Handles TxtPrice.KeyPress
2.         '处理TEXT只可以输入数字和.键
3.         Dim c As Char
4.         c = e.KeyChar
5.         If Not (Char.IsDigit(c) Or Char.IsControl(c) Or Asc(e.KeyChar) = 46) Then
6.             '46表示按下的是.键 
7.             e.Handled = True
8.             'e.handled表示取消keypress事件 
9.         End If
11.     End Sub