vb转c VB.NET中让Textbox只能输入数字

VB.NET中让Textbox只能输入数字  

　　Public Class Form     Inherits System Windows Forms Form

　　#Region Windows 窗体设计器生成的代码

　　Public Sub New()        MyBase New()

　　 该调用是 Windows 窗体设计器所必需的         InitializeComponent()

　　 在 InitializeComponent() 调用之后添加任何初始化

　　End Sub

　　 窗体重写 dispose 以清理组件列表     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (ponents Is Nothing) Then                ponents Dispose()            End If        End If        MyBase Dispose(disposing)    End Sub

　　 Windows 窗体设计器所必需的    Private ponents As System ComponentModel IContainer

　　 注意: 以下过程是 Windows 窗体设计器所必需的    可以使用 Windows 窗体设计器修改此过程     不要使用代码编辑器修改它     Friend WithEvents TextBox As System Windows Forms TextBox    Private Sub InitializeComponent()        Me TextBox = New System Windows Forms TextBox        Me SuspendLayout()                TextBox                 Me TextBox Location = New System Drawing Point( )        Me TextBox Name = TextBox         Me TextBox TabIndex =         Me TextBox Text =                 Form                 Me AutoScaleBaseSize = New System Drawing Size( )        Me ClientSize = New System Drawing Size( )        Me Controls Add(Me TextBox )        Me Name = Form         Me Text = Form         Me ResumeLayout(False) ()>

　　End Sub

　　#End Region    Dim str As String =