Trucos de Visual Basic 6.0 Forzar a un TextBox para que admita únicamente números

Crear un formulario, añadir un TextBox y escribir el siguiente código:


Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <;>; Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <;>; 8 Then
KeyAscii = 0
End If
End If
End Sub

---

Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado Calcular la cantidad de días de un mes específico Averiguar si un día corresponde a un fin de semana Averiguar el último día de un Mes determinado Ave
Truco de Visual Basic 6.0, Convertir un texto a mayúsculas o minúsculas
Convertir un texto a mayúsculas o minúsculas
Truco de Visual Basic 6.0, Encriptar y desencriptar cadenas
Encriptar y desencriptar cadenas
Truco de Visual Basic 6.0, Conexión a una base de datos por ODBC.
Conectar a una base de datos por ODBC
Truco de Visual Basic 6.0, Como desplegar la lista de un ComboBox automáticamente
Como desplegar la lista de un ComboBox automáticamente
Truco de Visual Basic 6.0, VB6 y los DATAREPORT

Truco de Visual Basic 6.0, VB6 Pasar SQL Crystal Reports
Pasar una SQL a Crystal Reports
Truco de Visual Basic 6.0, VB6 Recorrer un Recordset
Este truco de visual Basic 6.0 explica cómo recorrer un recordset.
Truco de Visual Basic 6.0, VB6 Cargar un combo con datos de una BD
Gracias a un recordset cargaremos un combo.
Truco de Visual Basic 6.0, Validar un número de tarjeta de crédito (ISO 2894)
En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894.
Truco de Visual Basic 6.0, Abrir/Cerrar lector de CD
Abrir/Cerrar lector de CD
Truco de Visual Basic 6.0, Uso de Random

Truco de Visual Basic 6.0, Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Apagar el equipo, reiniciar Windows, reiniciar el Sistema
Truco de Visual Basic 6.0, Limpiar todas las cajas de texto de un formulario
Podemos limpiar, o inicializar todos los campos de un formulario rápidamente.
Truco de Visual Basic 6.0, Pasar de un TextBox a otro al pulsar Enter
Pasar de un TextBox a otro al pulsar Enter
Ver todos los trucos de Visual Basic 6.0