No Visual Basic 6, controles ListView pode mostrar vários tipos de informação de diferentes maneiras , como itens de banco de dados mostrados em uma lista ou de opções de usuário exibidos como ícones. ListView itens são mostrados na ordem que você adicioná-los. No entanto, durante a execução do seu programa, você pode reorganizar a ordem em que esses itens aparecem , por exemplo , randomizando sua ordem . Para fazer isso, você precisa para armazenar temporariamente os itens ListView em outro lugar e , em seguida, re- inseri-los em uma ordem diferente . Instruções
1
Abra o projeto do Visual Basic. Pressione " F7 " para abrir a janela de código e digite o seguinte código :
Sub RandListView Privado ( )
ReDim arr (1 To ListView1.ListItems.Count ) As String
Dim Tmp As Variant
Dim j As Long
A primeira linha cria um novo subrouting chamado " RandListView ". A segunda linha aloca espaço para um array com o primeiro índice a um e ao último índice no mesmo número de itens que existem no controle ListView. Use um como o índice de partida, porque esse é o número de índice que ListView itens começam em . Também cria duas variáveis adicionais . A variável " tmp " irá armazenar valores temporários como você embaralhar a matriz e os " j " atos de variáveis como um contador
2
Digite o seguinte código: .
Randomize
Para i = LBound (arr ) Para UBound ( arr)
j = CLng ((( UBound ( arr) - i) * Rnd ) + i)
Se i < > j Então
tMP = arr (i)
arr (i) = arr ( j)
arr ( j) = tmp
Fim Se
Next i
A primeira linha chama a função Randomize Visual Basic para garantir que as várias chamadas para o RandListView não produzem os mesmos resultados. O próximo ciclo de linhas através de itens no controle ListView e se eles já não existem na matriz, eles são adicionados a ele . . Quando todos os itens estão na matriz , o loop termina
3
Digite o seguinte código:
ListView1.ListItems.Clear
Para i = 1 To UBound ( arr)
ListView1.ListItems.Add = arr ( i)
Next i
A primeira linha limpa os itens atualmente no controle ListView. As próximas três linhas preenchê-la novamente com os itens aleatórios na matriz.
4
Type " RandListView " em qualquer outro lugar no seu programa para chamar a função e embaralhar os itens no controle ListView.
