Refresh em listbox vinculada a um arrayList

Vincular objetos visuais a origens de dados é uma tarefa muito comum. Quando essas origens de dados, tal como datatable, são atualizadas, desejamos que os objetos visuais espelhem a atualização precisamente.

Porém, para que isso aconteça, é necessário que exista uma comunicação entre a origem de dados e os objetos visuais. A origem de dados deve avisar aos objetos visuais que foi atualizada.

Esse aviso é feito através da interface IBindingList. Esta interface possui um evento que é implementado pela origem de dados e consumido pelos objetos visuais. Quando a origem de dados é alterada ela dispara este evento para que os objetos visuais se re-desenhem.

Você já deve ter observado que é possível o vinculo de objetos visuais com arrayLists. Mas tem um problema: um ArrayList não implementa a interface IBindingList. Desta forma quando o arrayList é atualizado, os objetos visuais não são atualizados.

Existem 2 soluções para isso: Podemos criar uma classe que herde de Arraylist e passe a implementar a IBindingList, ou podemos utilizar o BindingContext para fazer um "refresh" na interface visual.

A 1ª solução é definitiva mas bem complexa, então vejamos como funciona a 2ª solução:

Dim c As CurrencyManager
c = Me.BindingContext(p)
c.SuspendBinding()
c.ResumeBinding()

Neste exemplo "p" é um arrayList.

BindingContext é um objeto que controla o vinculo com objetos visuais, normalmente é controlado pelo container. Por isso neste exemplo utilizamos Me (o form) para obter o objeto BindingContext que controla o vínculo do ArrayList p com objetos visuais.

Feito isso chamamos em sequência o SuspendBinding e ResumeBinding. Com isso teremos um refresh nos objetos visuais, passando a exibir o novo conteúdo do arrayList