COMO LER CHECKLISTBOX???

MARCOS 22/03/2011 16:40:26
#368809
Pessoal,
é simples mas, não estou conseguindo fazer o código para ler os dados do Checklistbox do VB.NET:

Como passar para um vetor ( Vet(x) ), os clientes que estão listados
num Checklistbox chamado CKClientes?
JONATHANSTECKER 22/03/2011 18:28:41
#368828 Resposta escolhida
Uma das várias maneiras:

        Dim Clientes(Me.CheckedListBox1.CheckedItems.Count - 1) As String
        For Contador As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            Clientes(Contador) = CheckedListBox1.CheckedItems(Contador)
        Next
        For Each Item As String In Clientes
            MessageBox.Show(Item)
        Next
TECLA 22/03/2011 20:23:35
#368838
Ou...
Dim vetor As IEnumerator = CheckedListBox1.Items.GetEnumerator()
Do While vetor.MoveNext
     MessageBox.Show(vetor.Current.ToString())
Loop
MARCOS 23/03/2011 14:50:04
#368914
Pessoal,
Eu não quero exibir somente os itens ticados.Mas,simplesmente passar para o vetor Vet(x)
todos os itens que estão exibidos no Checklistbox.

Tentei:

x=1
Do Until x > Lst.Items.Count

Vet(1) = LstCK1.Items.Item(x).ToString

x=x+1

Loop

Mas...Não retorna os itens do Ckecklistbox.

Algum colega sabe???
JONATHANSTECKER 23/03/2011 14:58:20
#368917 
        Dim Vet(Me.CheckedListBox1.Items.Count - 1) As String
        For X As Integer = 0 To CheckedListBox1.Items.Count - 1
            Vet(X) = CheckedListBox1.Items(X)
        Next
MARCOS 23/03/2011 15:54:13
#368927
Pessoal,
Quando utilizo por exemplo o código sugerido pelo colega JONATHA,
o que retorna para o que leio no meu vetor Vet(x) é o seguinte:

System.Data.DataRowView

Alguém sabe porque não consigo ler os itens do Checklistbox???
JONATHANSTECKER 23/03/2011 16:18:41
#368928
Marcos, fazendo da forma que mostrei acima, retorna o valor do item 3.
Acredito que esteja retornando System.Data.DataRowView porque você está usando a classe ToString

Vet(1) = LstCK1.Items.Item(x).ToString


Retire o .ToString e veja se estou certo.

        Dim Vet(Me.CheckedListBox1.Items.Count - 1) As String
        For X As Integer = 0 To CheckedListBox1.Items.Count - 1
            Vet(X) = CheckedListBox1.Items(X)
        Next
        MessageBox.Show(Vet(3))
Tópico encerrado , respostas não são mais permitidas
Voltar