PublicClass NumericTextBoxClass NumericTextBox Inherits System.Windows.Forms.TextBox ProtectedOverridesSub OnKeyPress()Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs) e.Handled =NotChar.IsDigit(e.KeyChar) End Sub End Class
在窗外中调用此类代码如下:
#Region " Windows 窗体设计器生成的代码 " ' FriendWithEvents TextBox1 As NumericTextBox <System.Diagnostics.DebuggerStepThrough()>PrivateSub InitializeComponent()Sub InitializeComponent() Me.TextBox1 =New NumericTextBox Me.SuspendLayout() ' 'TextBox1 ' Me.TextBox1.Location =New System.Drawing.Point(24, 24) Me.TextBox1.Name ="TextBox1" Me.TextBox1.Size =New System.Drawing.Size(152, 21) Me.TextBox1.TabIndex =0 Me.TextBox1.Text ="123" ' '. End Sub #End Region