Ejemplos usando el Api de windows para Visual basic

45 - Permitir la entrada de solo números en controles

Contenido

Ejemplo 1 ( TextBox )
Ejemplo 2 ( ComboBox )
Ejemplo 3 ( InputBox )
Relacionados

Ejemplo 1 - TextBox

El siguiente ejemplo muestra como podemos hacer para que en un control textBox y comboBox ingresar solo números usando el api de windows.

Primero un ejemplo para los textbox y los Combobox. y al final de la página otro ejemplo para poder aplicar solo la entrada de números en un cuadro de diálogo InputBox

Ejemplo para los TextBox

Descripción

Primero lo que se hace es obtener "el estilo" o propiedades del control TextBox usando el Api GetWindowLong

Luego se modifica el estilo "Propiedades " del control mediante una constante llamada ES_NUMBER y se le pasa al control el nuevo estilo o característica con el Api SetWindowLong

Ejemplo

Colocar un Text1 y un Command1, al presionar el Command1 se llama a la función SoloNumeros, pasandole el TextBox, en este caso es el Text1 que en el parámetro está declarado como de tipo TextBox.

Importante: Los controles textBox, solo admitirán números, pero no permite ingresar el caracter del punto, coma. Es decir podremos ingresar solo números enteros, y también utilizar las teclas backspace, Supr etc..

Código fuente

'********************************************************************************** ' Funciones del Api '********************************************************************************** 'En este ejemplo el Api GetWindowLong obtiene las caracteristicas o estilo del textbox Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long 'SetWindowLong le establece el nuevo estilo para permitir la entrada solo de números Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long '********************************************************************************** ' Constantes para las funciones Api '********************************************************************************** Private Const GWL_STYLE = (-16) 'Para obtener el estilo del TextBox Private Const ES_NUMBER = &H2000& 'estilo solo números ' Sub que aplica los cambios a los textbox para que solo admita números '********************************************************************************** Private Sub Solo_Numeros(unTxt As TextBox) Dim nuevo_estilo As Long ' Capturamos las propiedades del textbox nuevo_estilo = GetWindowLong(unTxt.hwnd, GWL_STYLE) ' Comprueba si tiene activado que permita numeros If ((nuevo_estilo And ES_NUMBER) = 0) Then nuevo_estilo = nuevo_estilo Or ES_NUMBER End If ' Establecemos los cambios pasandole a _ SetWindowLong el hwnd del textbox y el nuevo estilo SetWindowLong unTxt.hwnd, GWL_STYLE, nuevo_estilo End Sub Private Sub Command1_Click() 'Llamamos a la función y le enviamos el TexBox que queremos cambiar Solo_Numeros Text1 End Sub

Otro ejemplo

Lo siguiente, es exactamente igual al ejemplo anterior, pero en este caso se recorre mediante un bucle For Each todos los controles Textbox que hay en el formulario y llama al procedimiento Solo_Numeros para aplicar los cambios a las cajas de texto

Agregar un CommandButton y varios textbox

Código fuente en el formulario

'Funciones del Api '********************************************** ' GetWindowLong recupera las caracteristicas o estilo del textbox Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, ByVal nIndex As Long) As Long ' SetWindowLong cambia el estilo para permitir la entrada solo de números Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Constantes para las funciones Api '************************************* ' Constante Para obtener el estilo del TextBox Private Const GWL_STYLE = (-16) ' Constante que cambia el estilo o propiedad a solo números Private Const ES_NUMBER = &H2000& Private Sub Solo_Numeros(El_Control As TextBox) Dim Nuevo_estilo As Long ' Capturamos las propiedades del textbox Nuevo_estilo = GetWindowLong(El_Control.hwnd, GWL_STYLE) ' Comprueba si tiene activado que permita numeros If ((Nuevo_estilo And ES_NUMBER) = 0) Then Nuevo_estilo = Nuevo_estilo Or ES_NUMBER End If ' Establecemos los cambios pasandole a SetWindowLong _ el hwnd del textbox y el nuevo estilo ret = SetWindowLong(El_Control.hwnd, GWL_STYLE, Nuevo_estilo) End Sub ' Botón que aplica los cambios '***************************************************************** Private Sub Command1_Click() ' Variable para recorrer la _ colección de controles en el formulario Dim Controles As Control ' Recorre todos los textbox que hay en el formulario For Each Controles In Me If TypeOf Controles Is TextBox Then ' Le pasa el control textbox como parámetro Call Solo_Numeros(Controles) End If Next End Sub Private Sub Form_Load() Command1.Caption = " Sólo números en todos los textbox " End Sub

Aplicar solo números a un comboBox

Para utilizar este mismo ejemplo para controles ComboBox , a las funciones Api no basta con pasarle el Hwnd del combo como se hace con el TextBox, y hay que pasarle el Hwnd del área de edición del combo.

Para obtener este hwnd podemos hacer una llamada al Api FindWindowEx que nos retorna dicho Handle

Hwnd_Combo = FindWindowEx(El_combobox.hwnd, 0, "EDIT", vbNullString)

Un ejemplo

Lo siguiente modifica todos los combo que hay en el formulario al presionar un Command1

Agregar un CommandButton y varios Controles Combo

'Funciones del Api '********************************************** Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (ByVal hwndParent As _ Long, ByVal hwndChildAfter As Long, ByVal _ lpszClass As String, ByVal lpszWindow As _ String) As Long Private Const GWL_STYLE = (-16) Private Const ES_NUMBER = &H2000& Private Sub Solo_Numeros(El_combobox As Control) Dim Nuevo_estilo As Long Dim Hwnd_Combo As Long ' Recupera el Hwnd del área de edición del Combo Hwnd_Combo = FindWindowEx(El_combobox.hwnd, 0, "EDIT", vbNullString) ' Capturamos las propiedades y estilo del combobox Nuevo_estilo = GetWindowLong(Hwnd_Combo, GWL_STYLE) ' Comprueba si tiene activado que permita numeros If ((Nuevo_estilo And ES_NUMBER) = 0) Then Nuevo_estilo = Nuevo_estilo Or ES_NUMBER End If ' Establecemos los cambios pasandole a SetWindowLong _ el hwnd del Combo y el nuevo estilo ret = SetWindowLong(Hwnd_Combo, GWL_STYLE, Nuevo_estilo) End Sub Private Sub Command1_Click() ' Variable para recorrer la _ colección de controles en el formulario Dim El_combobox As Control ' Recorre todos los Combobox del formulario For Each El_combobox In Me If TypeOf El_combobox Is ComboBox Then ' Le pasa el control Combo como parámetro Call Solo_Numeros(El_combobox) End If Next End Sub Private Sub Form_Load() Command1.Caption = " Sólo números en todos los Combobox " End Sub

Ejemplo 3 - InputBox

Este ejemplo lo hice basado en este otro InputBox con PasswordChar

El código es practicamente igual, lo único que cambia, es que en este caso, se usa GetWindowLong y SetWindowLong para cambiar el estilo del textbox del diálogo del inputbox

Nota: para obtener el hwnd del inputbox para poder cambiar el estilo y que pueda admitir solo números, se usa, al igual que en el ejemplo anterior del combobox, el api FindWindow y FindWindowEx para poder capturar handle

Controles

Colocar en un formulario un Comand1

Código en el form

Option Explicit Private Sub Command1_Click() Dim Numero As String ' Se le pasa el Hwnd del formulario Call Inputbox_Solo_Numeros(Form1) ' Abre el InputBox Numero = InputBox(" Inputbox con solo números enteros ", App.Title) ' Muestra el resultado MsgBox Numero, vbInformation, " Números " End Sub Private Sub Form_Load() Command1.Caption = " Abrir InputBox " End Sub

Código fuente en un módulo bas

Option Explicit ' Declaraciones del Api '**************************************************** ' Api GetWindowLong Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long 'SetWindowLong le establece el nuevo estilo para _ permitir la entrada solo de números al inputbox Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Const GWL_STYLE = (-16) 'Para obtener el estilo Private Const ES_NUMBER = &H2000& 'estilo solo números ' Delaración de SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long ' FindWindow y FindWindowEx buscan el hwnd del text del inputbox Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long ' Para crear un Timer Private Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long ' Detiene el timer Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long Sub Inputbox_Solo_Numeros(El_Form As Form) Call SetTimer(El_Form.hwnd, &H5000&, 100, AddressOf TimerProc) End Sub Private Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, _ ByVal dwTime As Long) Dim Handle_InputBox As Long ' Busca Hwnd del textBox del InputBox Handle_InputBox = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "") Dim nuevo_estilo As Long ' Capturamos las propiedades del textbox del inputbox nuevo_estilo = GetWindowLong(Handle_InputBox, GWL_STYLE) ' Comprueba si tiene activado que permita numeros If ((nuevo_estilo And ES_NUMBER) = 0) Then nuevo_estilo = nuevo_estilo Or ES_NUMBER End If ' Establecemos los cambios pasandole a _ SetWindowLong el hwnd y el nuevo estilo para que solo admita números SetWindowLong Handle_InputBox, GWL_STYLE, nuevo_estilo ' Finaliza el Timer ya que no es necesario que siga funcionando Call KillTimer(hwnd, idEvent) End Sub

Recursos VB.NET - Enlaces relacionados

Buscar en Recursos vb