Imprimir Página - Tamaño en text1

Título: Tamaño en text1
Publicado por: trueno122 en 12 Mayo 2005, 21:16 pm

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

Título: Re: Tamaño en text1
Publicado por: byebye en 12 Mayo 2005, 21:43 pm

propiedad maxlength= a N.

Título: Re: Tamaño en text1
Publicado por: trueno122 en 12 Mayo 2005, 22:11 pm

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

Título: Re: Tamaño en text1
Publicado por: trueno122 en 12 Mayo 2005, 22:22 pm

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

Título: Re: Tamaño en text1
Publicado por: Free-Knowledgend en 12 Mayo 2005, 22:30 pm

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

Código:

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

saludos y suerte ;) ;) ;)

Título: Re: Tamaño en text1
Publicado por: Slasher-K en 13 Mayo 2005, 01:30 am

Utiliza la función IsNumeric en el evento Validate

Código:

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.

Título: Re: Tamaño en text1
Publicado por: trueno122 en 13 Mayo 2005, 18:05 pm

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

Título: Re: Tamaño en text1
Publicado por: Slasher-K en 13 Mayo 2005, 23:11 pm

Leete un tutorial de VB

Título: Solo me acepte numeros
Publicado por: trueno122 en 16 Mayo 2005, 17:35 pm

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: trueno122 en 12 Mayo 2005, 21:16 pm