Redimensionar Controles de Usuario

[mcamo]

Tengo un UserControl compuesto por uns shape(circulo) y dentro de ese circulo he puesto tres botones.
Si escribo en este UserControl el codigo:

Private Sub UserControl_Resize()
Btn1.Height = UserControl.ScaleHeight
Btn1.Width = UserControl.ScaleWidth
Btn2.Height = UserControl.ScaleHeight
Btn2.Width = UserControl.ScaleWidth
Btn3.Height = UserControl.ScaleHeight
Btn3.Width = UserControl.ScaleWidth
Shape1.Height = UserControl.ScaleHeight
Shape1.Width = UserControl.ScaleWidth
End Sub

Cuando introduzco este UserControl en un Form y lo adapto a otro tamaño con el ratón, se me redimensiona perfectamente el Shape1; pero no así los botones, los cuales toman el tamaño del UserControl.
¿Alguien sabe como puedo hacer para que los botones tambien se redimensiones correctamente?
Es decir, ¿Cómo se pueden redimensionar todos los objetos que pueda haber dentro de un UserControl?

[mcamo]

Se que aqui hay gente muy experta en VB.
Por favor! AYUDA.

[LeandroA]

no se como seria la extructura de lo que quieres pero quizas deves restarle el left del boton y el top
por ej:

Btn1.Width = UserControl.ScaleWidth - Btn1.left
o quizas asi
Btn1.Width = UserControl.ScaleWidth - (Btn1.left * 2)

saludos

[mcamo]

He probado con left y no consigo que los botones se redimensionen correctamente.
Cuando agrando el ControlUser dentro del formulario los botones aparecen descolocados y desproporcionados en tamaño. Lo mismo si lo empequeñezco.

Como ya he dicho el Shape se redimensiona correctamente con las sentencias:

Shape1.Height = UserControl.ScaleHeight
Shape1.Width = UserControl.ScaleWidth

Quisiera poner una imagen del UserControl aqui para que pudieras hacerte una idea pero todavia no me está permitido por el foro

[jericosoft]

Esto te redimensiona Todos Los Controles que tengas en tu form

incluido tu shape circulo , con los tres botones enmedio y a escala :

Espero te sirva


Private lngFormWidth As Long
Private lngFormHeight As Long

Private Sub Form_Load()

Dim Ctl As Control

lngFormWidth = ScaleWidth
lngFormHeight = ScaleHeight


On Error Resume Next

For Each Ctl In Me
Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl

On Error GoTo 0

End Sub

Private Sub Form_Resize()

Dim D(4) As Double
Dim i As Long

Dim TempPoz As Long
Dim StartPoz As Long

Dim Ctl As Control
Dim TempVisible As Boolean

Dim ScaleX As Double
Dim ScaleY As Double


ScaleX = ScaleWidth / lngFormWidth
ScaleY = ScaleHeight / lngFormHeight

On Error Resume Next


For Each Ctl In Me
TempVisible = Ctl.Visible
Ctl.Visible = False
StartPoz = 1


For i = 0 To 4
TempPoz = InStr(StartPoz, Ctl.Tag, " ", vbTextCompare)

If TempPoz > 0 Then
D(i) = Mid(Ctl.Tag, StartPoz, TempPoz - StartPoz)
StartPoz = TempPoz + 1
Else
D(i) = 0
End If


Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY
Ctl.Width = D(2) * ScaleX
Ctl.Height = D(3) * ScaleY


If ScaleX < ScaleY Then
Ctl.FontSize = D(4) * ScaleX
Else
Ctl.FontSize = D(4) * ScaleY
End If

Next i

Ctl.Visible = TempVisible

Next Ctl

On Error GoTo 0

End Sub

[jericosoft]

Me imagino que quieres hacer un tablero de instrumentos es correcto ???


[IMG]C:\Altecsa Tablero\tablero\tablero.jpg[/IMG]