Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii <> Asc("9") Then 'KeyAscii = 8 es el retroceso o BackSpace If KeyAscii <> 8 Then KeyAscii = 0 End If End If End Sub
Si, ya busque pero no esta explicado yo lo que quiero es una explicacion xq es muy facil copiar y pegar... pero si no se de donde sale el txt.. o cualquier cosa es como comer pan cn pan.. xD x cieto es vb 6.0!! y no me van esos codigos nuse q pasara..
Pero de toas formas me surgio una new duda xD si esq soy... se me olvido todo y eso q no mas q pare 1 mes cn esto cmo se ace para q text1 solo me acepte numeros? no te rias..
Hola haciendo las pruebas me surge un problema que despues de buscar y buscar no encuentro como acer que text1.text solo pueda ser escrito 20 caracteres...
Ummm pues creo q no pero no lo se yo toi aprendiendo cn VB y seria interesante el poder consegir codigos fuetnes de otros programas si algien lo sabe q nos lo cuente gracias!!