LIST VIEW

F001E 21/12/2006 11:49:24
#191439
Boa Dia....Tenho o Seguinte Código....
If Drive.DriveLetter = "C" Then
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
List1.AddItem sPath
DoEvents
Set Folder = FSO.GetFolder(sPath)
End If
If Folder.SubFolders.Count > 0 Then
For Each SubFolder In Folder.SubFolders
FSO_KillTempFiles sPath & SubFolder.Name, bShowDialog
Next
End If

o que acontece.....esse código....faz uma varredura em Todos os Arquivos em C:\ e adiciona em uma ListView....mas é o seguinte....eu queria que a barra de rolagem da ListView...fosse rolando pra baixo quando for adicionando os arquivos....pois tenho que mover ela com o mouse....eu queria isso automatico...alguem pode me ajudar....
CLEVERTON 21/12/2006 12:03:03
#191445 Resposta escolhida
Já tentou algo como cada vez que adicionar um novo item

Listview1.listitems(Listview1.listitems.Count).Selected = True
F001E 21/12/2006 12:19:21
#191451
ow Cleverton...fiz desse jeito..mas tbm nao funfa......
TRUHILLO 21/12/2006 12:51:35
#191456
Fernando, acrescentar o EnsureVisible: 

ListView1.ListItems(ListView1.ListItems.Count).Selected = True
ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible
CLEVERTON 21/12/2006 13:25:10
#191470
Ou o

Listview1.listitems(Listview1.listitems.Count).Selected = True
Listview1.SetFocus
F001E 21/12/2006 14:55:36
#191512
ow moçada ...acho q meu VB ta com pau....a ListView aki não tem a propriedade....ListItems
CLEVERTON 21/12/2006 15:10:53
#191528
eu sinceramente acho que vc está usando o ListBox.

Listview tem que declarar a referencia Microsoft Commom Controls 6.0
ESLEYSANCHES 22/12/2006 00:14:03
#191630
Cara de uma olhadinha no exemplo em anexo eu fiz em Banco de dados mais com pequenas alterações dá para fazer como você quer, olhe e veja se te ajuda !!

Abraços !!
ESLEYSANCHES 22/12/2006 00:15:53
#191631
Teem também este que é vários exemplos usando o Listview, com certeza alguma coisa via te ajudar rsrsrs !!

Flw cara, boa sorte !!
Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar