Preenchendo um ComboBox com ArrayList em VB.NET

Olá, pessoal! 

O preenchimento de uma caixa de listagem é uma rotina que faz parte do contexto de quase todo desenvolvedor (desktop ou web).

Pensando neste afirmativa, vamos ilustrar como alimentar um ComboBox usando um ArrayList previamente alimentado com uma classe de modelo.

Abra o Visual Studio e crie um projeto do tipo Windows Form Application em linguagem VB.NET. Após a criação do projeto, adicione um controleComboBox no Form. O controle está alocado na aba Common Controls.

Adicione uma classe no projeto, clicando com o botão direito sobre o nome do projeto na aba Solution Explorer. Salve a classe com o nome EstadoCivil.vb.

Segue a implementação da nossa classe de modelo.

Volte para o Form da aplicação, e dê um duplo clique no mesmo para acessar o editor de código fonte.
Escreva as linhas de código abaixo.

Private Sub Form1_Load(ByVal sender As System.Object,

                       ByVal e As System.EventArgs) Handles MyBase.Load

        Dim _lista As New ArrayList

        _lista.Add(New EstadoCivil(1, "CASADO"))

        _lista.Add(New EstadoCivil(2, "DIVORCIADO"))

        _lista.Add(New EstadoCivil(3, "SEPARADO"))

        _lista.Add(New EstadoCivil(4, "SOLTEIRO"))

        _lista.Add(New EstadoCivil(5, "VIÚVO"))

        With ComboBox1

            .DataSource = _lista

            .DisplayMember = "Descricao"

            .ValueMember = "ID"

        End With

    End Sub

End Class

Testando a aplicação, temos um resultado conforme a imagem abaixo.

Finalizando, para recuperar o ID da opção selecionada, é só obter o valor da propriedade SelectedValue.
Exemplo:


MessageBox.Show(ComboBox1.SelectedValue.ToString())

Por enquanto é só.
Até mais!