VB.Net/GUI/TextBox Special
Number-Only Text Box
<source lang="vbnet"> Imports System.Windows.Forms Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() InitializeComponent() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.SuspendLayout() " Me.TextBox1.Location = New System.Drawing.Point(64, 64) Me.TextBox1.Size = New System.Drawing.Size(208, 20) Me.TextBox1.Text = "" " Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Size = New System.Drawing.Size(328, 23) Me.Label1.Text = "Numbers, a colon, dash and space:" " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(344, 149) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.TextBox1}) Me.Text = "Creating your Own Number-Only Text Box" Me.ResumeLayout(False) End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim strAllowableChars As String strAllowableChars = "0123456789-: " If InStr(strAllowableChars, e.KeyChar.ToString) = 0 Then e.Handled = True End If End Sub
End Class
</source>