Texbox

Prueba con lo siguiente en el evento TextChange de una caja de texto
TextBox1:

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As
EventArgs) Handles TextBox1.TextChanged
Dim nTamañoMinimo As Integer = 80
Dim nMargenAdicional As Integer = 10

Dim grp As Graphics = Me.TextBox1.CreateGraphics()
Dim nTamañoContenido As Integer = _
CType(grp.MeasureString(Me.TextBox1.Text, Me.TextBox1.Font).Width,
Integer)

If nTamañoContenido < nTamañoMinimo Then
Me.TextBox1.Width = nTamañoMinimo + nMargenAdicional
Else
Me.TextBox1.Width = nTamañoContenido + nMargenAdicional
End If

grp.Dispose()
End Sub

Saludos
Pedro Luna, MVP
Gye, Ecu



"Bull" escribió en
el mensaje news:ehaWM7%
Mostrar la cita

Pregunta:
Se puede ajustar la longitus de un texbox de acuerdo a lo que va a

contener
Mostrar la cita

??
El problema es el siguiente tengo un texbox en donde muestro el valor de

una
Mostrar la cita

variable tipo string que es el directorio de trabajo y cuando lo muestro

me
Mostrar la cita

sale cortado.
Saludos