Resumen TextBox sólo numérico

Mensaje enviado por "Hector Barahona" <hbarahon@vtr.net>

Si deseas validar números solamente en un textbox, utiliza la siguiente API en Initialize del form que contiene el textbox. (No acepta ni comas ni puntos, solo numeros). Al asignar este estilo en el textbox impide la digitacion de caracteres.

    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_LOWERCASE = &H10&
    Public Const ES_UPPERCASE = &H8&
    Public Const ES_NUMBER = &H2000&

....... En un Form inserta lo siguiente:

    Dim Estilo As Long
    Dim SoloNumeros As Long
    Estilo = GetWindowLong(txtTextBox.hwnd, GWL_STYLE)
    UpperCaseOnly = SetWindowLong(txtTextBox.hwnd, GWL_STYLE, Estilo Or ES_NUMBER )

    donde txtTextBox es la casilla que quieres validar

Saludos

Hector



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com