Request Code for Integer Textbox

[Roger Fang]

I need a program that will have a textbox which will only accept integer entry.

I need this box so that a number of gold can be entered. So I do not want letters in this box?

If the box is called gold4.Text how can this be done?

[bezuca]

With a "try catch" in the OK, Save or w/e name button, in your form.

Example

C# code ( vb is similar, just change the syntax )

try
{

int a = Convert.toInt32(gold4.Text);

}
catch(Exception a)
{
   Messagebox.Show("Error!" Please insert numbers!");
   //or
   Messagebox.Show(a); // to show the error.
}

[Murdok]

If you doing it in visual basic you can do

if isnumeric(Gold4.text) then  'checks textbox for text 
msgbox("Number") 'if only numbers
Else 
msgbox("Text")   'if theres text
Gold4.text = ""
End if

[Apoc]

VB.NET (Just add this class to your project somewhere, build it, and choose the NumericTextBox from the Tool Box when in designer mode):

Public Class NumericTextBox
    Inherits TextBox
    Private SpaceOK As Boolean = False

    ' Restricts the entry of characters to digits (including hex),
    ' the negative sign, the e decimal point, and editing keystrokes (backspace).
    Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
        MyBase.OnKeyPress(e)

        Dim numberFormatInfo As NumberFormatInfo = System.Globalization.CultureInfo.CurrentCulture.NumberFormat
        Dim decimalSeparator As String = numberFormatInfo.NumberDecimalSeparator
        Dim groupSeparator As String = numberFormatInfo.NumberGroupSeparator
        Dim negativeSign As String = numberFormatInfo.NegativeSign

        Dim keyInput As String = e.KeyChar.ToString()

        If [Char].IsDigit(e.KeyChar) Then
            ' Digits are OK
        ElseIf keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign) Then
            ' Decimal separator is OK
        ElseIf e.KeyChar = vbBack Then
            ' Backspace key is OK
            '    else if ((ModifierKeys & (Keys.Control | Keys.Alt)) != 0)
            '    {
            '     // Let the edit control handle control and alt key combinations
            '    }
        ElseIf Me.SpaceOK AndAlso e.KeyChar = " "c Then

        Else
            ' Consume this invalid key and beep.
            e.Handled = True
        End If

    End Sub


    Public ReadOnly Property IntValue() As Integer
        Get
            Return Int32.Parse(Me.Text)
        End Get
    End Property


    Public ReadOnly Property DecimalValue() As Decimal
        Get
            Return [Decimal].Parse(Me.Text)
        End Get
    End Property


    Public Property AllowSpace() As Boolean

        Get
            Return Me.SpaceOK
        End Get
        Set(ByVal value As Boolean)
            Me.SpaceOK = value
        End Set
    End Property
End Class

Credits: How to: Create a Numeric Text Box

Learn to search folks.

[Bakami]

Just use a simple Val(gold4.text) statement.