LISTVIEW - TOP

USUARIO.EXCLUIDOS 25/07/2005 14:17:04
#95926
Esse e codigo..

Static sinal As Long
Dim Item As ListItem
sinal = sinal + 1
Set Item = grdItens1.ListItems.Add(, , "Item " & sinal)

Quero q qd o numero de item seja superior para ser visualizado no list, ele fique mostrando o ultimo item, Entederam, quero sempre ver o ultimo item inserido...
USUARIO.EXCLUIDOS 25/07/2005 14:22:50
#95927
Vc poderia ser mais especifico !!!
De onde vem os dados ? do Banco?
USUARIO.EXCLUIDOS 25/07/2005 14:29:40
#95931
O cliente vai selecionando os itens e eu vou inserindo os no list

Estou apenas fazendo o teste agora, por isso ficou desse jeito o codigo...

Ali e um command, quero q toda a vez q clico no command ele adiciona um item, certo...
O problema e q quando ele adiciona mais itens do q se pode ver na tabela , os itens vao ficando em baixo, sem visualizacao, precisaria trazer o ultimo item inserido para cima.

Tentei o Sorted e o SortOrder - mais ele agrupa por texto, mesmo q o campo seja numero,

então vai inserindo quando chega no 10 ai fica 1 em baixo 10 - 11

Deu para entender agora, meu codigo é so de teste, inserir os dados eu sei, preciso q o ultimo fique me destaque aparecendo na grid, para o usuario ver o ultimo item q adicionou
USUARIO.EXCLUIDOS 25/07/2005 14:53:02
#95935
Bom a solução é a seguinte :
Altere o index do registro inserido para index(0).
WEBMASTER 25/07/2005 15:05:51
#95937 Resposta escolhida
Se eu bem entendi...
Aperta várias vezes o command1 em um novo projeto que você vai ver o que acontece.

Option Explicit

Private Sub Command1_Click()
  ListView1.ListItems.Add , , "Horário: " & Format(Now, "hh:mm:ss")
  With ListView1.ListItems(ListView1.ListItems.Count)
    .Selected = True
    .EnsureVisible
  End With
End Sub

Private Sub Form_Load()
 With ListView1
   .ColumnHeaders.Add , , "Executado em", 2500
   .View = lvwReport
   .FullRowSelect = True
 End With
End Sub
USUARIO.EXCLUIDOS 25/07/2005 16:20:59
#95946
WEBMASTER , valeu era isso mesmo

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