elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ayuda con codigo que pille		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con codigo que pille  (Leído 1,818 veces)
CARRY-ON

Desconectado Desconectado

Mensajes: 199



Ver Perfil
ayuda con codigo que pille
« en: 6 Octubre 2007, 19:47 pm »
Código:
Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
        Exit Sub 
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!" 
    End If
End Sub

pille este codigo para validar que solo ingrese numero el problema que al mandar el mensaje la letra sigue en el txt y no se borra

probe poniendo al final del msgbox text1="" pero no se borra
En línea
papanoel_devacaciones


Desconectado Desconectado

Mensajes: 428


Ver Perfil
Re: ayuda con codigo que pille
« Respuesta #1 en: 6 Octubre 2007, 20:12 pm »
no se, yo para mi cliente uso este
Código
  1. Sub TextIP_Keypress(KeyAscii As Integer)
  2. Static LastText As String
  3. Static SecondTime As Boolean
  4. If Not SecondTime Then
  5. With TextIP
  6. If .Text Like "*[!0-9]*" Then
  7.         MsgBox "Solo numeros para registrar el valor a pagar sin puntos, " & _
  8.                "ni comas, ni cualquier caracter especial!!"
  9. SecondTime = True
  10. .Text = LastText
  11. .SelStart = LastPosition
  12. Else
  13. End If
  14. End With
  15. End If
  16. End Sub
  17. SecondTime = False
y me sirve bastante.. ( lo he modificado un poquito)  :xD

Saludos
En línea
CARRY-ON

Desconectado Desconectado

Mensajes: 199



Ver Perfil
Re: ayuda con codigo que pille
« Respuesta #2 en: 6 Octubre 2007, 20:19 pm »
pero limpia el txt??
En línea
papanoel_devacaciones


Desconectado Desconectado

Mensajes: 428


Ver Perfil
Re: ayuda con codigo que pille
« Respuesta #3 en: 6 Octubre 2007, 20:20 pm »
Aunque parezca que no...si lo hace  :xD :xD






Saludos
En línea
APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: ayuda con codigo que pille
« Respuesta #4 en: 6 Octubre 2007, 23:18 pm »
Código
  1. Sub Text1_Keypress(KeyAscii As Integer)
  2.     If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
  3.         ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
  4.      KeyAscii = 0 'Esto anula el caracter incorrecto.
  5.         Exit Sub 
  6.     Else
  7.         MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
  8.                "ni comas, ni cualquier caracter especial!!" 
  9.     End If
  10. End Sub
En línea
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines