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...
Private Sub Text1_Change()
End Sub
algen me pode ayudar??
( ya se que es una prgunta tonta pero...)
propiedad maxlength= a N.
muxas gracias!! ;D sorry por esa pregunta tan tonta pero nuse que me paso y no lo sabia jeje
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.. ;D ;D
bueno, utilizando el boton buscar (esta arriba y te recomiendo que lo utilizes antes de postear dudas) encontre el codigo:
If Not Chr(KeyAscii) Like "[0123456789]" Then
KeyAscii = 0
End If
saludos y suerte ;) ;) ;)
Utiliza la función IsNumeric en el evento Validate
Private Sub txtData_Validate(Cancel As Boolean)
If Not IsNumeric(txtData) Then
Call MsgBox("No se ingresó un número válido", vbExclamation)
txtData.SelStart = 0
txtData.SelLength = Len(txtData)
Cancel = True
End If
End Sub
Saludos.
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..
Leete un tutorial de VB
El codigo q encontrado en esta misma web ;D es :
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
pero no me va..