Mostrar texto seleccionado en un TextBox

Hola Juan,

utilizando el método MesureString logras conocer el tamaño del texto en
pantalla y ésto te sirve para repintar, manipular y modificar los controles u
objetos sobre los que escribimos nuestros textos.

El siguiente método recibe como parámetro la caja de texto y modifica su
tamaño al contenido del texto.

Private Sub AjustarSize_TextBox(ByVal CajaTexto As TextBox)
Dim Repintado As Graphics = CajaTexto.CreateGraphics()
Dim Tamanio As SizeF
Tamanio = Repintado.MeasureString(CajaTexto.Text.ToString(),
CajaTexto.Font)
Repintado.Dispose()
CajaTexto.Width = Tamanio.Width
End Sub

Para llamar a este método, basta con llamarlo de la forma:

AjustarSize_TextBox(TextBox1)


Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"juan" wrote:

Tengo un programa de Visual Basic NET.
Por medio de código el programa puede seleccionar texto de un TextBox
automáticamente. Pero resulta que el texto del TextBox es más grande que el
propio TextBox y no se ve.
¿Como podría hacer para forzar al programa (o al TextBox) a que
automáticamente muestre y haga visible la parte de texto que ha sido recien
seleccionado?
Gracias.