Programación General > Visual Basic 6.0 e inferiores

 Sobre Restringir Entradas En Los Textbox

<< < (2/2)

Kev:
Viste, Brroz ya te lo entrego en bandeja de plata (todo ya esta hecho ;) ) el codigo que necesitabas

y si quieres que tambien te acepte el punto(.) el codigo seria asi

--- Código: Text --- Private Sub Text1_KeyPress(KeyAscii As Integer)    If KeyAscii &#60;&#62; 8 _   and (KeyAscii &#60; 48 Or KeyAscii &#62; 57) _   And KeyAscii &#60;&#62; 44 And KeyAscii &#60;&#62; 46 Then KeyAscii = 0 End Sub  
 :comp:

seek20:
Hola a todos!!!

A ver qué les parece este código, a mi me ha dado excelentes resultados y lo diseñé para evitar que sean introducidos valores alfanuméricos en campos en los que solo requiero números.

Private Sub txtTexto_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case Asc("0") To Asc("9"), vbKeyBack
            KeyAscii = KeyAscii
        Case Asc(".")
            If InStr(1, txtCostoMO.Text, ".") > 0 Then
                KeyAscii = 0
            Else
                KeyAscii = KeyAscii
            End If
        Case Else
            KeyAscii = 0
    End Select
End Sub

El código anterior es usado para permitir capturar números decimales, en mi caso como yo soy de México los decimales son introducidos después de un punto, pero si ustedes usan la coma como separador de decimales solo deben cambiar el punto por la coma en el case correspondiente, si se dan cuenta el código incluye la tecla de regreso  o borrado, esto es por si llegaran a equivocarse puedan eliminar el o los números mal ingresados.

Saludos a todos y espero que les sea de utilidad, ah y por favor no dejen de informarme como les fue!!!

 :devil:

Suerte!!!!!!

The Black Boy:
excelentes los aportes de todos... tambien estaba necesitando algo parecido a esto..

Gracias y Saludos  :good:

supra:
Gracias chicos, con todas sus ayudas ya resolvi el problema. :D  :D  :D  :D

Navegación

[0] Índice de Mensajes

[*] Página Anterior