Como usar a barra de rolagem com caixa de listagem no Visual Basic 6.0

Como usar barra de rolagem Com Caixa de listagem no Visual Basic 6.0

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 Sub

  • pressione "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.
De esta maneira? Compartilhar em redes sociais:

LiveInternet