O controle ListBox usado em Visual Basic não inclui barras de rolagem como propriedades aplicáveis assim como outros controles. Quando as linhas de texto dentro de uma caixa de listagem exceder a altura da caixa de listagem, uma barra de rolagem vertical é adicionado automaticamente. As barras de rolagem horizontais aparecem quando as linhas são mais longas do que a largura da caixa de listagem em um tipo especial de caixa de listagem que inclui colunas. A barra de rolagem vertical adiciona algumas funcionalidades visor quando o programa inclui a codificação associado adequada.
Abra o software Visual Basic 6.0 e clique em "Arquivo" e depois "Novo projeto. Use o "standard EXE" Molde para este exemplo. Salvar o projeto, clicando em "Arquivo" Seguido por "Salvar projeto como" e salvar a forma como "ScrollbarUse" eo Projeto de "Barra de rolagem Uso."
Adicione dois controles de caixa de listagem para o formulário clicando duas vezes duas vezes este controle na caixa de ferramentas. Organize as duas caixas para que eles estão lado a lado. Clique na primeira caixa de listagem rotulada List1 para mostrar as propriedades no lado direito da tela. Dê um duplo clique sobre o "Lista" propriedade e substituir a configuração padrão de "(Lista)" com "Número." Alterar as propriedades altura de ambos List1 e Lista2 para "1230" e as propriedades de largura de ambos para 1215. Clique duas vezes no controle CommandButton na caixa de ferramentas para adicioná-lo ao formulário. Altere a propriedade legenda do botão para "Saída."
Sincronizar tanto Listbox controla assim quando o usuário rola para baixo em um, a linha correspondente no outro segue. Fazer isso digitando o código listado abaixo. Nota: Os números são escolhidos para preencher ambos os controles ListBox rapidamente com mais linhas do que o tamanho escolhido no Passo 2 pode conter. Caso contrário, as barras de rolagem não aparecerá. o "^" símbolo calcula o cubo de cada número.
Private Sub Form_Load ()
Dim i, n, x As Integer
Para i = 1 a 15
List1.AddItem Escolha (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15")
Próximo
Para n = 1 a 15
Escolha List2.AddItem (n, 1 ^ 3, 2 ^ 3, 3 ^ 3, 4 ^ 3, 5 ^ 3, 6 ^ 3, 7 ^ 3, 8 ^ 3, 9 ^ 3, ^ 3 10, 11 ^ 3 , 12 ^ 3, 13 ^ 3, 14 ^ 3, 15 ^ 3)
Próximo
End Sub
Private Sub List1_Click ()
List1.TopIndex = List2.TopIndex
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_click ()
List2.TopIndex = List1.TopIndex
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List1_Scroll ()
List2.TopIndex = List1.TopIndex
End Sub
Private Sub List2_scroll ()
List1.TopIndex = List2.TopIndex
End Sub
Private Sub Command1_Click ()
Fim
End Subpressione "F5" para executar este programa e observe quando você mover a barra de rolagem na primeira lista para baixo, os pergaminhos resultado cubo de harmonização também. Você pode demonstrar um truque útil com barras de rolagem em uma caixa de listagem ao fechar o programa com o "Saída" controle e reversão de volta para a exibição formulário no Visual Basic. Clique no "Cubo" ListBox e arraste-o para que ele cobre parte do lado direito do "Número" ListBox. pressione "F5" para executar o programa novamente. Agora, parece um controle governa as ações de ambas as caixas.
Altere a propriedade colunas da caixa de listagem Número de "0" para "1." Substituir o último número na linha 4 do Passo 3 de ler "esta é uma frase muito longa para permitir que a barra de rolagem horizontal." pressione "F5" novamente para ver o efeito com uma barra de rolagem horizontal.
dicas & avisos
- Ao adicionar código de controlo do rato, você pode fazer as barras de rolagem mover em sincronia quando o usuário clica em outro item em uma lista.
- Ao contrário das propriedades regulares Visual barra de rolagem Básico (vertical e horizontal) em outros controles, como uma caixa de texto, estes não existem no controle ListBox. A única maneira que você vai ver barras de rolagem é se o conteúdo da caixa de listagem exceder a altura e / ou largura definida.