Visual Basic - AYUDENME POR FAVOR PROBLEMA CON EL TEXTBOX

Life is soft - evento anual de software empresarial
 
Vista:

AYUDENME POR FAVOR PROBLEMA CON EL TEXTBOX

Publicado por Ernesto Alex (6 intervenciones) el 17/08/2002 04:31:58
Hola, tengo un problema con el textbox. Recibo un texto que tiene varias lineas, y se escribe sobre un textbox, de tal forma que llega un momento que se desborda el tamaño inicial, y sigue escribiendo, pero la barra de desplazamiento queda en la parte superior, mostrando el texto del principio, pero me gustaría que se mostrase la parte inferior, es decir, el último texto que se reciba ¿¿¿Como puedo hacerlo???. Muchas gracias por adelantado.,,,,, ah y una ultima cosa una persona me dijo que probrara con este codigo pero no me funciona con este por favor diganme comoooooo por fis Text1.SelStart = Len(Text1.Text)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDENME POR FAVOR PROBLEMA CON EL TEXTBOX

Publicado por EL VERDUGO (14 intervenciones) el 17/08/2002 19:52:08
el codigo que te dieron si sirve.... pero no se como lo has probado

bueno....pruebalo de la siguiente forma, solo habri un nuevo proyecto y pone un texbox y agregas el codigo
y mira como funciona

Private Sub Form_Load()
Me.Text1.Text = " Hola, tengo un problema con el textbox. Recibo un texto que tiene varias "
Me.Text1.Text = Me.Text1.Text & " lineas, y se escribe sobre un textbox, de tal forma que llega "
Me.Text1.Text = Me.Text1.Text & " un momento que se desborda el tamaño inicial, y sigue escribiendo, "
Me.Text1.Text = Me.Text1.Text & " pero la barra de desplazamiento queda en la parte superior, "
Me.Text1.Text = Me.Text1.Text & " mostrando el texto del principio, pero me gustaría que se "
Me.Text1.Text = Me.Text1.Text & " mostrase la parte inferior, es decir, el último texto que se "
Me.Text1.Text = Me.Text1.Text & " reciba ¿¿¿Como puedo hacerlo???. Muchas gracias por adelantado.,,,,, "
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = Len(Text1.Text)
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar