Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/02/2005 09:41 hs
Ola galera eu tenho uma list com checkbox e eu gostaria de saber como é que eu faço pra identificar se esta checado o list tipo if list1.checkbox = True then list1 checado end if Obrigado
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
|
|
Postada em 26/02/2005 22:31 hs
exemplo: Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If ListView1.SelectedItem.Checked Then
MsgBox True
Else
MsgBox False
End If End Sub ok?? t+ |
|
|
|
Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2005 07:49 hs
Na verdade eu não uso o listview e sim o ListBox mas eu achei interessante o listview eu nunca tinha usado sera que não poderia colocar ai um exemplo de uso fico muito grato.
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Postada em 28/02/2005 08:55 hs
Um exemplo bem simples: Imagine um Listbox com 5 itens....vamos checar qual esta selecionado. Dim nI As Integer
For nI = 0 To 4
If List1.Selected(nI) = True Then
MsgBox "O indice selecionado é: " & nI
End If
Next sem mais, |
|
|
|
Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2005 09:30 hs
Funcionou legal mas a ideia é o seguinte esse list que eu tenho no programa ele exibi nome de funcionario apartir de tabela "FUNCIONARIOS" o que eu quero é que quando selecionado o checkbox ele faça algo tipo text1.tex = list1.text.
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
Snake
|
ITAJUBÁ
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2005 09:56 hs
Ei...sem problemas...faça assim:
Dim nI As Integer
For nI = 0 To 4
If List1.Selected(nI) = True Then
Text1.Text = List1.List(nI) ' Vc tb pode usar Text1.Text=List1.Text
MsgBox "O indice selecionado é: " & nI
End If
Next
Esse código funciona se vc for selecionar apenas um funcionario...se vc selecionar mais de um o valor vai ser substituido. Vc vai selecionar mais de um funcionario em seu List? Se sim, teremos que alterar o codigo acima.
sem mais,
|
|
|
|
