RE:RESTRINGIR TEXTBOX A INGRESAR SOLO NUMEROS
Hola BEX4
Te digo como lo hago yo:
Primero has de declarar un par de funciones de la API en un módulo o en el mismo forumulario (yo lo tengo en un módulo aparte porque lo uso en varios formularios):
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const ES_NUMBER = &H2000&
Luego tengo un rutina en el mismo módulo:
Public Sub SoloNumerico(txt As TextBox)
Dim Estilo As Long
Estilo = GetWindowLong(txt.hwnd, GWL_STYLE)
SetWindowLong txt.hwnd, GWL_STYLE, Estilo Or ES_NUMBER
End Sub
Ahora lo que tienes que hacer es en el evento form_load del formulario escribir:
SoloNumerico Text1
Espero que te sirva y si no avisa. Un saludo, Adolfo