Supongamos que he creado un ejemplo con un grupo de botones y hace algo como esto.
Tenemos un formulario y tres hbox apilados verticalmente.
Si quisieras saber las coordenadas x e y con respecto al formulario que tiene el botón que ocupa la fila 1 y columna 2, ¿ por donde comenzarías ?.
Public Sub Form_Open()
Dim maxx, maxy, y, x As Integer
Dim unboton As Button
Dim hBox1 As HBox
maxx = 2
maxy = 2
For x = 0 To maxy
hBox1 = New HBox(Me)
hBox1.Expand = True
For y = 0 To maxx
unboton = New Button(hBox1) As "Botones"
With unboton
.Text = "Fila: " & CStr(x) & "\nColumna " & CStr(y)
.Expand = True
End With
Next
Next
End
Public Sub Botones_Click()
Print Last.Text
End
Dim maxx, maxy, y, x As Integer
Dim unboton As Button
Dim hBox1 As HBox
maxx = 2
maxy = 2
For x = 0 To maxy
hBox1 = New HBox(Me)
hBox1.Expand = True
For y = 0 To maxx
unboton = New Button(hBox1) As "Botones"
With unboton
.Text = "Fila: " & CStr(x) & "\nColumna " & CStr(y)
.Expand = True
End With
Next
Next
End
Public Sub Botones_Click()
Print Last.Text
End
La y de cualquier botón dentro del Hbox es cero...
¿ Podríamos usar la propiedad Child ?.
Saludos
GridBotones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | GridBotones.tar.gz | |
Tamaño: | 12.25 KB | |
Descargado: | 51 veces |
GridBotones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | GridBotones.tar.gz | |
Tamaño: | 12.25 KB | |
Descargado: | 51 veces |
GridBotones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | GridBotones.tar.gz | |
Tamaño: | 12.25 KB | |
Descargado: | 51 veces |