37 - Controles comunes - TextBox

El control más común para la entrada de datos por teclado es el TextBox.

Problema 1:

Confeccionar un programa que permita ingresar dos valores enteros por teclado y al presionar un botón mostrar en una Label la suma de dichos valores.

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim valor1 As Integer
        Dim valor2 As Integer
        Dim suma As Integer
        valor1 = TextBox1.Text
        valor2 = TextBox2.Text
        suma = valor1 + valor2
        Label4.Text = suma
    End Sub
End Class

Para saber el valor almacenado en un TextBox disponemos de la propiedad Text. Como la propiedad Text es de tipo String al asignarla a una variable Integer automáticamente se transforma en Integer el String:

        valor1 = TextBox1.Text

Sumamos los dos enteros:

        suma = valor1 + valor2

Y finalmente cargamos en un objeto de la clase Label el resultado de la suma. Como la variable suma es un entero al asignársela a la propiedad Text de la Label automáticamente se transforma en String :

        Label4.Text = suma

Problema 2:

Solicitar que se ingrese una clave. Si se ingresa la cadena "abc123" mostrar un mensaje de clave correcta en caso contrario mostrar clave incorrecta.
Utilizar un control de tipo TextBox para el ingreso de la clave y una Label para mostrar el resultado al presionar un botón.

Inicializar la propiedad UseSystemPasswordChar con el valor true (esto hace que cuando el operador tipee caracteres dentro del TextBox se visualicen como asteriscos)

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "abc123" Then
            Label2.Text = "Clave correcta"
        Else
            Label2.Text = "Clave incorrecta"
        End If
    End Sub
End Class

Para verificar si la clave es correcta comparamos la cadena cargada en el TextBox1 con la cadena "abc123".

Hay otra propiedad en la clase TextBox llamada PasswordChar, si la propiedad UseSystemPasswordChar esta configurada con false podemos inicializar la propiedad PasswordChar con el caracter que queremos que se muestre al ingresar datos en el TextBox. Probar de inicializarlo con el caracter '+' y veremos que en vez de aparecer asteriscos aparecen caracteres '+'

Problema 3:

Disponer un control de tipo TextBox e inicializar la propiedad Multiline con el valor True (esto permite ingresar múltiples líneas dentro de un TextBox)

Programa:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show(TextBox2.Text)
    End Sub
End Class

Cuando se presiona un botón se muestra en un cuadro de mensajes (MessageBox) el texto ingresado en el TextBox2:

        MessageBox.Show(TextBox2.Text)

Problema propuesto

1. Solicitar el ingreso de una clave de hasta 10 caracteres en un control de tipo TextBox (inicializar la propiedad MaxLength con el valor 10)
   Mostrar en un cuadro de mensajes la clave ingresada al presionar un botón.

Solución

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show(TextBox1.Text)
    End Sub
End Class

Retornar