Validación numérica y control de teclas en Visual Basic .NET: ejemplos prácticos

Validar numérico

Validar numérico:

Private Sub TxtEdad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEdad.KeyPress
If e.KeyChar.IsNumber(e.KeyChar) Then
e.Handled = False 'El control lo tiene el usuario, el manejador sigue apagado
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False 'El control lo tiene el usuario, el manejador sigue apagado
If e.KeyChar = Chr(13) Then
TxtFono.Enabled = False 'Se deshabilita el mismo
ListBox1.Visible = True 'Deja visible el ListBox
BtnAgregarDatosListBox.Enabled = True 'Habilita el botón Listar
BtnGrabar.Enabled = True 'Habilita el botón Grabar
BtnGrabar.Enabled = True 'Habilita el botón Menú
End If
Else
MessageBox.Show("Error en ingreso", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
e.Handled = True 'El control lo toma la máquina
TxtEdad.Text = "" 'Limpia el error
TxtEdad.Focus() 'Deja el cursor en la edad nuevamente
End If
End Sub

Validar numérico y Enter

Validar numérico y Enter:

Private Sub TxtDireccion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDireccion.KeyPress
If e.KeyChar = Chr(13) Then 'Valida la tecla Enter (Chr 13 = tecla Enter en ASCII)
If Not IsNumeric(TxtDireccion.Text) Then
TxtDireccion.Enabled = False 'Se deshabilita el mismo
TxtFono.Enabled = True 'Habilita el teléfono antes que llegue el cursor
TxtFono.Focus() 'Deja el cursor en el teléfono
Else
MessageBox.Show("ERROR, Ingreso incorrecto", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtDireccion.Text = " " 'Limpia el contenido de la dirección
TxtDireccion.Focus() 'Deja el cursor nuevamente en TxtDireccion
End If
End If
End Sub

Mostrar MessageBox

Mostrar MessageBox:

MessageBox.Show("Datos grabados", "SAVE", MessageBoxButtons.OK, MessageBoxIcon.Information)

Validar numérico (repetido)

Validar numérico:

Private Sub TxtEdad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEdad.KeyPress
If e.KeyChar.IsNumber(e.KeyChar) Then
e.Handled = False 'El control lo tiene el usuario, el manejador sigue apagado
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False 'El control lo tiene el usuario, el manejador sigue apagado
If e.KeyChar = Chr(13) Then
TxtFono.Enabled = False 'Se deshabilita el mismo
ListBox1.Visible = True 'Deja visible el ListBox
BtnAgregarDatosListBox.Enabled = True 'Habilita el botón Listar
BtnGrabar.Enabled = True 'Habilita el botón Grabar
BtnGrabar.Enabled = True 'Habilita el botón Menú
End If
Else
MessageBox.Show("Error en ingreso", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
e.Handled = True 'El control lo toma la máquina
TxtEdad.Text = "" 'Limpia el error
TxtEdad.Focus() 'Deja el cursor en la edad nuevamente
End If
End Sub

Validar numérico y Enter (repetido)

Validar numérico:

Private Sub TxtDireccion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDireccion.KeyPress
If e.KeyChar = Chr(13) Then 'Valida la tecla Enter (Chr 13 = tecla Enter en ASCII)
If Not IsNumeric(TxtDireccion.Text) Then
TxtDireccion.Enabled = False 'Se deshabilita el mismo
TxtFono.Enabled = True 'Habilita el teléfono antes que llegue el cursor
TxtFono.Focus() 'Deja el cursor en el teléfono
Else
MessageBox.Show("ERROR, Ingreso incorrecto", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtDireccion.Text = " " 'Limpia el contenido de la dirección
TxtDireccion.Focus() 'Deja el cursor nuevamente en TxtDireccion
End If
End If
End Sub

Mostrar MessageBox:

MessageBox.Show("Datos grabados", "SAVE", MessageBoxButtons.OK, MessageBoxIcon.Information)

Aplicar hora

Aplicar hora:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000 'Asigna 1 segundo de intervalo en la hora
Timer1.Enabled = True 'Habilita el reloj
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label4.Text = DateTime.Now
Label5.Text = System.DateTime.Now.ToString("hh:mm:ss")
Label6.Text = System.DateTime.Now.ToString("dd MM yyyy")
End Sub

Ver ventana de creador

Ver ventana de creador:

Private Sub AutorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutorToolStripMenuItem.Click
'Dim RR As String
' RR = "Juan Pérez"
' MessageBox.Show("Autor es : " & RR, "AUTOR", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim MM As String
MM = "Autor : Juan Pérez " & vbCrLf
MM = MM & "Asignatura : Programación III " & vbCrLf
MM = MM & "Jornada : Lunes mañana " & vbCrLf
MM = MM & "Profesor : Juan Pérez 1 Programación III "
MessageBox.Show(MM, "Autor", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Aumentar o disminuir formulario

Aumentar o disminuir formulario:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
While Me.Height > 150
Me.Height = Me.Height - 10
End While
End Sub