AJUDA COM CHECKBOX

LINKK 23/09/2009 16:33:18
#323525
bom...
preciso de uma rotina que quando voce seleciona uma checkbox,o nome daquela check é adicionado numa listbox
e quando voce tira essa seleção...o mesmo item adicionado, é removido da list...
é possivel fazer isso?
THIAGO.CC 23/09/2009 16:55:54
#323526
Resposta escolhida
LINKK,

Segue a rotina.

Private Sub Check1_Click(Index As Integer)
Dim iContador As Integer

If Check1(Index).Value = 1 Then
List1.AddItem Check1(Index).Caption
Else
For iContador = 0 To List1.ListCount - 1
If List1.List(iContador) = Check1(Index).Caption Then
List1.RemoveItem (iContador)
End If
Next
End If

End Sub

Thiago
LINKK 23/09/2009 17:08:17
#323527
eu coloquei essa rotina e ta dando erro....
LEANDRO 23/09/2009 17:16:54
#323528
erro aonde ?
THIAGO.CC 23/09/2009 17:20:11
#323529
LINKK,

Estou enviando um exemplo.


Thiago

LINKK 23/09/2009 17:25:08
#323530
ops...
me desculpe
eu tinha esquecido de criar o vetor
valeu
esse codigo me ajudou muito
THIAGO.CC 23/09/2009 17:32:21
#323532
Por nda, só não esqueça de finalizar o tópico.

Tópico encerrado , respostas não são mais permitidas