Foro de elhacker.net

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 caracteres


Espero Aver  Explixado Bien =)

Gracias De Antemano

no te entiendo te podrias explicar mejor  :rolleyes:
respecto al comando k encontraste llevas razon; por ejemplo:
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

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.

sigo sin entendelo lo k kereis conseguir  :huh:

Exacto a eso ME Refiero

Podrias Decirme Como Hacerlo

o alguna guia ? =)

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

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