https://foro.gambas-es.org/viewtopic.php?f=1&t=4668&p=26821#p26821
-----------------------------------
xmuno
Miercoles, 03 Junio 2015, 10:07

Cambiar Propiedades De Un Objeto Creado Dinamicamente
-----------------------------------
Hola,

Llevo poco tiempo con gambas y estoy aprendiendo.

He creado varios botones de manera dinamica
[code linenumbers=false syntax=gambas]
Dim $consul As Result
 Dim btn As Button
 Dim linies As New String[3]
 Dim co, i_prod As Integer
 Dim $prod As String
 Dim posx As Integer = 230
 Dim posy As Integer = 280
 $consul = bd_con.con.Exec("SELECT nom,id FROM prod WHERE tip_prod='" & tprod & "'")
 For co = 1 To $consul.Count
 $prod = $consul!nom
 i_prod = $consul!id
 linies[0] = Mid$($prod, 1, 11)
 linies[1] = Mid$($prod, 12, 11)
 linies[2] = Mid$($prod, 23, 11)
btn = New Button(Me) As "btn_prod"
btn.text = linies[0] & "\n" & linies[1] & "\n" & linies[2]
btn.Width = 90
btn.height = 90
btn.x = posx
btn.y = posy
btn.tag = i_prod
 posx = posx + 100
 If co = 7 Or co = 14 Or co = 21 Then
   posy = posy + 90
   posx = 230
 Endif
 'If co > 36 Then
 '  btn_sp.Visible = True
 '  Break
 'Endif
 $consul.MoveNext
 Next
[/code]

Aunque el codigo muy probablemente es mejorable(me gustaria algo de orientación), funciona. La cuestión es que no sé como modificar propiedades de uno de los botones....o elimininarlo...

Gracias de antemano.


