Hay ocasiones en que la colecciones pierden elementos de la lista cuando son asignados valores vacíos a estos.
Supongo que se trata de un bug, pero me gustaría saber que opinan al respecto.
Dejo un ejemplo de colecciones y si en vez de cambiar el texto del día de la semana por otro, ponen una cadena nula "" entonces ese dia desaparecera de la lista..
' gambas class file
Public ctn As New Collection
Public Sub Form_Open()
Dim day As String
TreeView1.Clear
ctn.Clear
ctn = init()
If ctn.Count > 0 Then
TreeView1.Add("d", ("Días"))
For Each day In ctn
TreeView1.Add(ctn.Key, day,, "d")
Next
Endif
TreeView1["d"].Expanded = True
End
Public Sub init() As Collection
Dim c As New Collection
c.Add("lunes", "d1")
c.Add("martes", "d2")
c.Add("miercoles", "d3")
c.Add("jueves", "d4")
c.Add("viernes", "d5")
Return c
End
Public Sub TreeView1_DblClick()
Dim str As String
str = InputBox(("Cambio de día"), ("Cambio de día"), ctn[TreeView1.Current.Text])
ctn[TreeView1.Current.Key] = str
TreeView1.Current.Text = str
Print ctn[TreeView1.Current.Text]
End
Public ctn As New Collection
Public Sub Form_Open()
Dim day As String
TreeView1.Clear
ctn.Clear
ctn = init()
If ctn.Count > 0 Then
TreeView1.Add("d", ("Días"))
For Each day In ctn
TreeView1.Add(ctn.Key, day,, "d")
Next
Endif
TreeView1["d"].Expanded = True
End
Public Sub init() As Collection
Dim c As New Collection
c.Add("lunes", "d1")
c.Add("martes", "d2")
c.Add("miercoles", "d3")
c.Add("jueves", "d4")
c.Add("viernes", "d5")
Return c
End
Public Sub TreeView1_DblClick()
Dim str As String
str = InputBox(("Cambio de día"), ("Cambio de día"), ctn[TreeView1.Current.Text])
ctn[TreeView1.Current.Key] = str
TreeView1.Current.Text = str
Print ctn[TreeView1.Current.Text]
End
Saludos.