Tamaño en text1

[trueno122]

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...)

[byebye]

propiedad maxlength= a N.

[trueno122]

muxas gracias!!  sorry por esa pregunta tan tonta pero nuse que me paso y no lo sabia jeje

[trueno122]

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.. 

[Free-Knowledgend]

bueno, utilizando el boton buscar (esta arriba y te recomiendo que lo utilizes antes de postear dudas) encontre el codigo:

Código [Seleccionar] Expandir


If Not Chr(KeyAscii) Like "[0123456789]" Then
KeyAscii = 0
End If


saludos y suerte 

[Slasher-K]

Utiliza la función IsNumeric en el evento Validate

Código [Seleccionar] Expandir


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.

[trueno122]

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..

[Slasher-K]

Leete un tutorial de VB

[trueno122]

El codigo q encontrado en esta misma web 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..