Un poco de ayuda con VB

[auron2003]

Hola!
Necesito ayuda con VB.
Me gustaria saber como hacer que los controles (osea, CommandButton, Label, etc...) pueda el usuario redimensionarlos.
Me explico mejor, que el usuario puede modificar el tamaño de un control, con movimientos del raton (como se puede hacer con los formularios).
Gracias de antemano.

[Mickel]

eventos mousedown y mouseup, como con el form

[auron2003]

me refiero a modificar el tamaño del control.

[rafapaskual]

Hola,
Ahi va un programilla para redimensionar un boton, funcionar funciona, pero supongo que debe haber otra manera de hacer, pq si no seria super complicado hacerlo para cada control. De todas maneras si es para algo sencillo quiza lo puedas usar

Option Explicit
Const Area_Derecha = 30
Const Area_Inferior = 30
Const Ancho_Minimo=10;
Const Alto_Minimo=10;

Private redimensiona As Byte

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim margDer As Integer
Dim margInf As Integer
margDer = Command3.Width - X
margInf = Command3.Height - Y
If (margDer <= Area_Derecha) And (margInf <= Area_Inferior) Then
redimensiona = 3
ElseIf margDer <= Area_Derecha Then
redimensiona = 2
ElseIf margInf <= Area_Inferior Then
redimensiona = 1
End If
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim margDer As Integer
Dim margInf As Integer
margDer = Command3.Width - X
margInf = Command3.Height - Y
If Button = 1 Then
Select Case redimensiona
Case 1
If Y > Alto_Minimo Then
Command3.Height = Y
End If
Case 2
If X > Ancho_Minimo Then
Command3.Width = X
End If
Case 3
If X > Ancho_Minimo Then
Command3.Width = X
End If
If Y > Alto_Minimo Then
Command3.Height = Y
End If
End Select
ElseIf Button = 0 Then
If (margDer <= Area_Derecha) And (margInf <= Area_Inferior) Then
Me.MousePointer = vbSizeNWSE
ElseIf margDer <= Area_Derecha Then
Me.MousePointer = vbSizeWE
ElseIf margInf <= Area_Inferior Then
Me.MousePointer = vbSizeNS
Else
Me.MousePointer = 0
End If
End If
End Sub

Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
redimensiona = 0
Me.MousePointer = 0
End Sub

Private Sub Form_Load()
redimensiona = 0
End Sub

Lo de Alto_Minimo y Ancho_minimo es pq si redimensionas demasiado por debajo da un error, 10 se lo he puesto yo por poner, supongo que cada control tendra lo suyo.

A lo mejor se pueden adaptar este codigo para que te hagas tu propio control ajustable, aun así, lo sigo encontrando muy pesado, seguro que hay un método más facil.

Saludos!

[auron2003]

Gracias, mirare haber si funciona.
Lo que me interesaba es hacerlo con unos cuantos controles.
Mirare haber si funciona, de todas formas gracias.