* El texto color morado significa que ese texto lo coloca VB6.
* El texto color azul significa que ese texto nosotros lo digitamos.
* El texto color verde significa comentarios para una mejor explicacion del codigo
****************************************************************
Paso 1: Diseñamos el formulario a utilizar.
Paso 2: Le damos dobre click al textbox y seleccionamos el evento KeyPress y digitamos el siguiente codigo.Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 13 '-->Si presionamos la tecla "Enter"
KeyAscii = 0 '-->no realiza ninguna accion
Case Is = 8, 46, 48 To 57
'-->8=backspace, 46=punto, 48 to 57 =cubre los numeros del 0 hasta el 9
Case Else '-->si presionamos cualquier tecla
KeyAscii = 0 'no realiza ninguna accion. '
End Select
End Sub
De esta forma se completa el ejercicio. Se puede agregar acciones que explicare a continuacion:
Modificacion 1 --> Cuando se presione cualquier tecla que no sea numerica aparezca un cuadro de dialogo. Y este es codigo
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 13 KeyAscii = 0 '-->Si presionamos la tecla "Enter" no realiza 'ninguna accion
Case Is = 8, 46, 48 To 57
'-->8=backspace, 46=punto, 48 to 57 =cubre los numeros del 0 hasta el 9
Case Else
MsgBox "Esta caja de texto solo permite digitar numeros y punto decimal.", _
vbInformation, "::.. AVISO ..::"
KeyAscii = 8 '-->retrocede el cursor un espacio.
End Select
End Sub
Cuando intenten digitar cualquier tecla que no sea un número ó punto decimal. Aparecera ésta imagen.
Sugerencia: Siempre utilicen la tecla Tabulador (Tab) para definir a que bloque pertenece cada linea de codigo que escriban para que despues no les cueste ubicar una linea especifica.
Pueden dejar sus comentarios todos son bienvenidos. Saludos y hasta la proxima...
