USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  LISTVIEW
Jaba
SÃO PEDRO DA ALDEIA
RJ - BRASIL
ENUNCIADA !
Postada em 18/05/2007 21:39 hs            
 Olá pessoal, estou com um pequeno problema, estou querendo o seguinte:
Quando eu clicar num botão, o item selecionado no ListView deve passar para o próximo.
Ex: Este é meu ListView.
  Coluna_Cod , Coluna_Nome, Coluna_Endereço
       1         RODRIGO      ALGUM LUGAR1
       2           JABA       ALGUM LUGAR2
  Vamos supor que a o primeiro item do ListView está selecionado, ou seja, os valores -->  1 - RODRIGO - ALGUM LUGAR1.
    Eu gostaria que passasse para o próximo item, ou seja, para os valores
--> 2 - JABA - ALGUM LUGAR2
 
Alguém sabe como fazer isso? Valeu pela atenção pessoal.
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 19/05/2007 12:17 hs         
dim  curr_index as long
 
curr_index=list1.listindex
if curr_index < list1.listcount then
list1.listindex=curr_index+1
end if
 
s
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/05/2007 12:56 hs            
se vc quer paginar o listview eu uso assim
 
If LV1.ListItems.Count = 0 Then: Exit Sub
    Dim intX As Integer
    intX = LV1.SelectedItem.Index
    If intX = LV1.ListItems.Count Then
       intX = 0
End If
    intX = intX + 1
    LV1.ListItems(intX).Selected = True
    LV1.SetFocus

Jesus Cristo é O Senhor!!!
   
Evertooon
PARANAGUÁ
PR - BRASIL
ENUNCIADA !
Postada em 21/05/2007 17:26 hs         
Vc quer que, quando clicar em um botão, o foco no listview (a seleção) passe para o item de baixo, ou o próximo item?
se for isso, talvez dê pra fazer assim:
 
cmdProximo 'Botão para clicar
lstItens 'Listview com os itens
 
'Na seção General:
Dim i As Integer
 
'No click do botão
Private Sub cmdProximo_Click()
i = lstItens.SelectedItem   'Vai marcar "i" com o mesmo indice do item
                                    'selecionado na listview
i = i + 1                          'Incrementa +1 para selecionar o próximo item da lista
       
lstItens.ListItems.Item(i).Selected = True      'Na listview, marca a seleção
                                                             'verdadeira no item "i", ou seja,
                                                             'o próximo item da lista
lstItens.SetFocus                      'Muda o foco para a listview
End Sub
 
 
 
Testei aqui e tá funcionando!
Abraços!
   
Jaba
SÃO PEDRO DA ALDEIA
RJ - BRASIL
Postada em 22/05/2007 22:19 hs            
VALEU PESSOAL, FUNCIONOU PERFEITAMENTE.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página