https://foro.gambas-es.org/viewtopic.php?f=1&t=7383&p=44231#p44231
-----------------------------------
Shell
Miercoles, 06 Febrero 2019, 14:42

Coordenada De Un Objeto Con Respecto A Su Contenedor Super Padre. :-D
-----------------------------------
1000111111000001!.  :twisted: 

Supongamos que he creado un ejemplo con un grupo de botones y hace algo como esto.

 [img]https://foro.gambas-es.org/files/images/768/griddebotones.png[/img] 

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 ?.  :-P 

[code linenumbers=false syntax=gambas]
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
[/code]

La y de cualquier botón dentro del Hbox es cero... :-D 

¿ Podríamos usar la propiedad Child ?.


Saludos


