Buenas tardes,
¿Alguien sabe cómo cambiar por código el orden en que un HBox muestra los controles?.
Al añadir los controles al HBox en diseño los coloco en un orden y así los muestra en ejecución. Si tengo 5 controles en diseño y añado un sexto por código, siempre lo muestra a la derecha, ¿se podría poner en tercer lugar, o el segundo?.
El único ejemplo que he visto es el código de Toolbar, que usa un panel oculto donde mueve los controles, y vuelve a colocar con otro orden en el Toolbar visible. ¿No hay una manera más sencilla?.
He probado con varios contenedores y todos hacen lo mismo. Gracias y un saludo.
Harpo.
¿Alguien sabe cómo cambiar por código el orden en que un HBox muestra los controles?.
Al añadir los controles al HBox en diseño los coloco en un orden y así los muestra en ejecución. Si tengo 5 controles en diseño y añado un sexto por código, siempre lo muestra a la derecha, ¿se podría poner en tercer lugar, o el segundo?.
El único ejemplo que he visto es el código de Toolbar, que usa un panel oculto donde mueve los controles, y vuelve a colocar con otro orden en el Toolbar visible. ¿No hay una manera más sencilla?.
He probado con varios contenedores y todos hacen lo mismo. Gracias y un saludo.
Harpo.
Prueba este código: -
Código:
' Gambas class file
Hbox1 As HBox
ToolButton1 As ToolButton
Public Sub Form_Open()
BuildForm
End
Public Sub BuildForm()
Dim sText As String[] = ["add", "ok", "access", "right", "left", "up", "down", "battery", "color", "contrast", "copy"]
Dim iLoop As Integer
With Me
.Arrangement = Arrange.Vertical
.H = 50
.W = 400
.Padding = 5
End With
With Hbox1 = New HBox(Me) As "Hbox1"
.H = 28
End With
For iLoop = 0 To sText.Max
With ToolButton1 = New ToolButton(HBox1) As "TBs"
.H = 28
.W = 28
.Tag = iLoop
.Picture = Picture["icon:/22/" & sText[iLoop]]
End With
Next
End
Public Sub TBs_Click()
Last.Raise
End
(12-03-2022, 19:58)Harpo escribió: ¿se podría poner en tercer lugar, o el segundo?.
Podrías mover todos los controles del panel a un panel auxiliar oculto y con un bucle for each y con un contador determinar el momento en el que agregar el nuevo antes de mover el siguiente control al panel auxiliar y luego sigues moviendo los existentes, finalmente vuelves a mover todos lo controles del panel auxiliar, que ya incluye el nuevo control en el sitio adecuado, al panel original.
La propiedad es .Reparent
Código:
Public Sub MoveControls()
Dim obj As Control
Dim q As Integer
Dim bNew As ToolButton
For Each obj In pTools.Children
obj.Reparent(pAux)
If q = 3 Then
bNew = New ToolButton(pAux)
bNew.Tag = "new"
bNew.H = pTools.H
bNew.W = pTools.H
Endif
Inc q
Next
For Each obj In pAux.Children
obj.Reparent(pTools)
Next
End1 Saludo.
Muchas gracias a los dos, finalmente lo más práctico que he visto es usar un panel intermedio oculto y un array para guardar el orden deseado. Les dejo un ejemplo por si a alguien le sirve. Se usa la lista de un ListBox.
Un saludo, Harpo.
Un saludo, Harpo.
Archivos adjuntos
