[Resolvido] Capturar os valores do CheckBoxList

[Ds.suporting 0]

Olá pessoal

 

Estou com um problema no CheckBoxList

 

tenho um form de orçamento e neste form o usuário escolhe as marcas que deseja receber os formulários, neste campo usei o CheckBoxList e armazenei em uma string:

 

dim marcas as string = CheckBoxList1.text

 

O Problema é que na hora de mandar o orçamento envia apenas a primeira oção que o usuário escolheu.

 

Me disseram que eu tenho que criar um for e armazenar em array mas não tenho idéia de como que faz.

 

Alguém pode me ajudar preciso dessa informação em uma string para mandar por email.

[quintelab 91]

Assim:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim meuArray As New ArrayList()
		For i As Integer = 0 To CheckBoxList1.Items.Count - 1
			If CheckBoxList1.Items(i).Selected Then
				meuArray.Add(CheckBoxList1.Items(i).Value)
			End If
		Next
	End Sub

Abraços...

[Ds.suporting 0]

Assim:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim meuArray As New ArrayList()
		For i As Integer = 0 To CheckBoxList1.Items.Count - 1
			If CheckBoxList1.Items(i).Selected Then
				meuArray.Add(CheckBoxList1.Items(i).Value)
			End If
		Next
	End Sub

Abraços...

 

Ok obigado pela resposta.

Desculpe minha falta de conhecimento, mas como faço para colocar esse arraylist em uma string?? é que preciso destas informações para passar por email em uma string.

 

Já tentei "dim planos as string = meuArray.ToString() "

mas o que ele armazena é: "System.Collections.ArrayList"

 

Tem como me dar mais essa força.

 

Abraços

[quintelab 91]

Terá que fazer um for novamente, com a mesma sintaxe do que eu montei e a cada item do seu ArrayList você irá concatenar em sua String.

 

Abraços...

[Ds.suporting 0]

Terá que fazer um for novamente, com a mesma sintaxe do que eu montei e a cada item do seu ArrayList você irá concatenar em sua String.

 

Abraços...

 

Desculpa mas agora eu não entendi nada

Você me disse que agora eu tenho que fazer um arraylist para concatenar na minha string mas como??

Assim:

 

CODE

Dim planos As String

Dim meuArray1 As New ArrayList()

For i As Integer = 0 To CheckBoxList1.Items.Count - 1

If CheckBoxList1.Items(i).Selected Then

planos = meuArray1.Add(CheckBoxList1.Items(i).Value)

End If

Next

Já tentei assim mas ele só armazena a quantidade de selecionados

meu cod está assim:

 

CODE

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim meucheckboxlist As ArrayList = New ArrayList()

meucheckboxlist.Add("Amil")

meucheckboxlist.Add("Unimed")

meucheckboxlist.Add("Dix")

meucheckboxlist.Add("Samcil")

meucheckboxlist.Add("Medial")

meucheckboxlist.Add("Prevent sennior")

CheckBoxList1.DataSource = meucheckboxlist

DataBind()

End Sub

 

 

CODE

Dim planos As String

Dim meuArray As New ArrayList()

For i As Integer = 0 To CheckBoxList1.Items.Count - 1

If CheckBoxList1.Items(i).Selected Then

meuArray.Add(CheckBoxList1.Items(i).Value)

End If

Next

tenho que colocar os valores do CheckBoxList1 na string planos , mas não estou conseguido.

[quintelab 91]

Se você quiser os resultados de forma separada irá necessitar de um Array, da forma como eu fiz, se você quiser os selecionados em uma string basta:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim meuString As String = ""
		For i As Integer = 0 To CheckBoxList1.Items.Count - 1
			If CheckBoxList1.Items(i).Selected Then
				meuString += CheckBoxList1.Items(i).Value & ", "
			End If
		Next
	End Sub

Abraços...

[Ds.suporting 0]

Se você quiser os resultados de forma separada irá necessitar de um Array, da forma como eu fiz, se você quiser os selecionados em uma string basta:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim meuString As String = ""
		For i As Integer = 0 To CheckBoxList1.Items.Count - 1
			If CheckBoxList1.Items(i).Selected Then
				meuString += CheckBoxList1.Items(i).Value & ", "
			End If
		Next
	End Sub

Abraços...

 

Ok é exatamente o que eu estava precisando. Bem simples tudo em uma string.

 

MUITO OBRIGADO!

 

Abraços.