LISTBOX C/ CHECKBOX

USUARIO.EXCLUIDOS 28/03/2005 09:11:39
#75255
Prezados:

Não sei se isto é possivel, mas gostaria de receber alguma "luz" de alguém mais experiente.
é possivel eu carregar um Listbox ( ou outro componente similiar) junto com um checkbox. Neste Listbox vou ter vários ramos de atividades ( farmaceutica, quimica, cosméticos) e quero selecionar os que satisfazem a um determinado cliente:
Cliente 1:
quimica true
cosmetico true

Cliente 2
farmaceutica true

Obrigado a todos
THIAGO.CESAR 28/03/2005 10:09:11
#75281
Aqui estou colocando um exemplo básico de como trabalhar com CheckBox num ListBox

'Defina a propriedade Style do ListBox para 1 - Checkboxes
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.Selected(0) = True 'Selecionei o index 0 (A)

For i = 0 To List1.ListCount - 1
'Percorre a lista e imprime os itens que estiverem selecionados
If List1.Selected(i) Then Debug.Print List1.List(i)
Next
USUARIO.EXCLUIDOS 28/03/2005 10:16:35
#75283
Em primeiro lugar, se não precisar de usar SUBITENS, você pode colocar um LISTBOX com Checkbox...
é só ir nas propriedades do LISTBOX e mudar a opção STYLE para CHECKBOX...

Depois para adicionar.. é do mesmo jeito

List1.Additem "Quimica"
List1.Additem "cosmetico"
List1.Additem "Farmaceuticos"
List1.Additem "Perfumes"
List1.Additem "Frutas"

Para verificar você pode fazer assim

List1.Selected(i)

Onde i é o INDICE da lista... no nosso caso '0' é Quimica, '1' é cosmetico... e etc
Para marcar Quimica.. .vc pode fazer assim

List1.Selected(0) = True

Para desmarcar

List1.Selected(0) = False

Para verificar todos os que foram marcados, e os que foram desmarcados

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
valorm = valorm + 1
List1.ListIndex = i
itensm = itensm & " " & List1 & " "
Else
List1.ListIndex = i
valord = valord + 1
itensd = itensd & " " & List1 & " "
End If
Next
MsgBox valorm & " Itens foram marcados(" & itensm & ") e " & valord & " Itens foram desmarcados(" & itensd & ")."

Espero que tenha entendido...
Ps: Se for usar SUBITENS... é melhor usar o LISTVIEW...
Tópico encerrado , respostas não são mais permitidas
Voltar