 Autor
|
Tema: AyuDa, Cierta Cantidad De Letras en Un TextBox (Leído 4,091 veces)
|
NsTeam
 Desconectado
Mensajes: 127
|
Hola a todos ANdo en un projecto EN Lo Cual Solo quiero que Entre una cierta cantidad de letras Ejemplo:
que en el texbox Solo entren 100 letras
Pero Tambien QUisiera que En el Textbox Se PUeda Escribir Normal Hasta llegar
a 100 letras , Pero seguir escribiendo , Mientras que sigas escribiendo mas letras,
en el comienzo Se Van DIsminuyendo... , Pero En Si El TextBos Solo Puede
Cotener 100 letras o caracteresEspero Aver Explixado Bien =) Gracias De Antemano
|
|
|
|
« Última modificación: 11 Julio 2009, 00:24 am por NsTeam »
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
BUeno Encontre Este Codigo
text1.MaxLength=100
que limita una cierta cantidad de caracteres
pero COmo aria para hacer lo que Explique
Lo que Indica la IMG
|
|
|
|
|
En línea
|
|
|
|
andres_5
Desconectado
Mensajes: 200
|
no te entiendo te podrias explicar mejor  respecto al comando k encontraste llevas razon; por ejemplo: Private Sub form_load()
Text1.Text = ""
Text1.MaxLength = 100
End Sub
pero nose a k te refieres kn lo de+ EDITO: creo k se lo k kieres conseguir, te aconsejo k pongs un ScrollBars vertical salu2 |
|
|
|
« Última modificación: 11 Julio 2009, 01:34 am por andres_5 »
|
En línea
|
|
|
|
DarkItachi
Desconectado
Mensajes: 516
Itachi Uchiha
|
Se refiere a que tu tienes un textbox asi:
Hay 100 caracteres:
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxxxxxxxx
El se refiere que cuando pulsas otros caracteres, por ejemplo: 4e7jfg
4e7jfg111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxx
Se borren los del final que no caben y se metan esos en el principio.
No se si he hecho bien los esquemas pero espero que capteis la idea.
|
|
|
|
|
En línea
|
Come to me when you have these eyes...
By more that you try it, a feather never will achieve to fly.
|
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
Se refiere a que tu tienes un textbox asi:
Hay 100 caracteres:
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxxxxxxxx
El se refiere que cuando pulsas otros caracteres, por ejemplo: 4e7jfg
4e7jfg111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxx
Se borren los del final que no caben y se metan esos en el principio.
No se si he hecho bien los esquemas pero espero que capteis la idea.
Exacto a eso ME Refiero Podrias Decirme Como Hacerlo o alguna guia ? =)
|
|
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
BUeno Encontre Este Codigo
text1.MaxLength=100
que limita una cierta cantidad de caracteres
pero COmo aria para hacer lo que Explique
Lo que Indica la IMG
Hola, claro que se puede, mira este ejemplo Private Sub Form_Load() Text1.MaxLength = 10 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) = Text1.MaxLength Then Text1.Text = Mid$(Text1.Text, 2) Text1.SelStart = Len(Text1.Text) End If End Sub
El límite de la programación siempre viene dado por la imaginación que tengas.. saludos!! mod: lo entendi al reves jajaja para eso solo invierte la extracción, chao ..
|
|
|
|
« Última modificación: 11 Julio 2009, 01:46 am por cΔssiΔnі »
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
BUeno Encontre Este Codigo
text1.MaxLength=100
que limita una cierta cantidad de caracteres
pero COmo aria para hacer lo que Explique
Lo que Indica la IMG
Hola, claro que se puede, mira este ejemplo Private Sub Form_Load() Text1.MaxLength = 10 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) = Text1.MaxLength Then Text1.Text = Mid$(Text1.Text, 2) Text1.SelStart = Len(Text1.Text) End If End Sub
El límite de la programación siempre viene dado por la imaginación que tengas.. saludos!! mod: lo entendi al reves jajaja para eso solo invierte la extracción, chao ..
Gracias por EL Code y por la AYuda
salu2 
|
|
|
|
|
En línea
|
|
|
|
|
 |
