https://foro.gambas-es.org/viewtopic.php?f=1&t=5843&p=34712#p34712
-----------------------------------
vuott
Lunes, 10 Octobre 2016, 01:44

Re: Eliminar Un Control
-----------------------------------
[quote user="Ricardo Prieto" post="34709"]Este codigo me da un error de objeto inavalido...[/quote]

Porque tú [u]eliminas[/u] el objeto con
[code linenumbers=false syntax=gambas]kb.Delete[/code]
y luego intentas asignar un valor a una su propiedad:
[code linenumbers=false syntax=gambas]kb.X = TableView1[a, 0].X
kb.Y = TableView1[a, 0].y[/code]
...pero el objeto ya no existe.


Bueno, yo propondría...
[code linenumbers=false syntax=gambas]Public Sub Button1_Click()

  Dim a As Integer
  Dim ob As Object
  
   ob = TableView1.Children[0]

   For a = 0 To TableView1.Rows.Max - 1
     If TableView1[a, 1].Text = "1" Then
       TableView1.Rows.Remove(a)
       ob.Children[a].Delete
     Endif
   Next

   a = 0
   
   For Each kb In ob.Children
     kb.X = TableView1[a, 0].X
     kb.Y = TableView1[a, 0].y
     Inc a
   Next

End[/code]


