AYUDAAAA Cambiar Tamaño

16/09/2006 - 03:05 por Eduardo | Informe spam

Hola a todos
Necesito cambiar el tamaño de un label en tiempo de ejecucion,
con el mouse y sin usar api de windows, alguien me puede dar una mano?

Por ejemplo al hacer doble click sobre el label poder redimensionar su
tamaño con
el mismo mouse.
Estoy trabajando con VB.Net 2005
Desde ya muchas gracias.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Alfbl

17/09/2006 - 00:25 | Informe spam

Hola EDUARDO, a ver intenta con esto:

Dim LLEGO As Boolean = False
Dim X As Integer = 0
Private Sub Label6_MouseClick(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseClick
LLEGO = Not LLEGO
X = e.Location.X + Label6.Width
End Sub

Private Sub Label6_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseMove
If LLEGO = True Then
If e.Location.X >= X Then
Label6.Width += Label6.Width + e.X - X
Else
Label6.Width += X - Label6.Width + e.X
End If
End If
End Sub

quiza no este tan exacto como lo que quieres pero te puede servir, solo
que tienes que hacer es jugar con las coordenadas y el ampliar o
disminuir el tamaño al label.

Ing. Sócrates Benaute Laiza
TRUJILLO - PERU

Responder a este mensaje

#2 Eduardo

17/09/2006 - 01:18 | Informe spam

Muchisimas gracias Sócrates adecuandolo a mi codigo me funciona bien.
Saludos.
Eduardo
Río Gallegos Argentina

"Alfbl" escribió en el mensaje
news:
Hola EDUARDO, a ver intenta con esto:

Dim LLEGO As Boolean = False
Dim X As Integer = 0
Private Sub Label6_MouseClick(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseClick
LLEGO = Not LLEGO
X = e.Location.X + Label6.Width
End Sub

Private Sub Label6_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseMove
If LLEGO = True Then
If e.Location.X >= X Then
Label6.Width += Label6.Width + e.X - X
Else
Label6.Width += X - Label6.Width + e.X
End If
End If
End Sub

quiza no este tan exacto como lo que quieres pero te puede servir, solo
que tienes que hacer es jugar con las coordenadas y el ampliar o
disminuir el tamaño al label.

Ing. Sócrates Benaute Laiza
TRUJILLO - PERU

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida