O controle ListBox usado em Visual Basic não inclui barras de rolagem propriedades como 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 tela quando o programa inclui a codificação associado adequada. Instruções
1

Abra o software Visual Basic 6.0 e clique em " Arquivo" e depois "New Project . Use o modelo " standard EXE " para este exemplo. Salve o projeto clicando em "Arquivo " seguido de " Save Project As " e salve o formulário como " ScrollbarUse " eo Projeto como " barra de rolagem Use ".
2

Adicione dois controles ListBox para o formulário clicando duas vezes duas vezes sobre esse controle na caixa de ferramentas . Organize as duas caixas para que eles estão lado a lado . Clique no primeiro ListBox rotulado Lista1 para mostrar as propriedades no lado direito da tela. Dê um duplo clique na propriedade " List" e substituir a configuração padrão " ( Lista) " com o " Número ". Altere as propriedades Height de ambos Lista1 e List2 para " 1230 " e as propriedades Largura de ambos para 1215. Dê um duplo clique no controlo CommandButton na caixa de ferramentas para adicioná-lo ao formulário. Altere a propriedade Caption do botão para "Exit ".
3

Sincronizar Listbox controla tanto assim, quando o usuário rola para baixo em um, a linha correspondente no outro a seguir. Faça isso digitando o código listado abaixo. Nota: Os números são escolhidos para preencher os dois 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 como IntegerFor i = 1 To 15List1.AddItem Escolha (i, "1", "2" ; ", 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 10 " , " 11 " , " 12 " , , "13" , "14" , "15" ) NextFor n = 1 To 15List2.AddItem Escolha (n, 1 ^ 3, 2 ^ 3, 3 ^ 3, 4 ^ 3, 5 ^ 3, 6 ^ 3, 7 ^ 3, 8 ^ 3, 9 ^ 3, 10 ^ 3, 11 ^ 3, 12 ^ 3, 13 ^ 3, 14 ^ 3, 15 ^ 3) NextEnd SubPrivate Sub List1_Click () = List1.TopIndex List2 . TopIndexList1.ListIndex = List2.ListIndexEnd SubPrivate Sub List2_click ( ) = List2.TopIndex List1.TopIndexList2.ListIndex = List1.ListIndexEnd SubPrivate Sub List1_Scroll ( ) = List2.TopIndex List1.TopIndexEnd SubPrivate Sub List2_scroll ( ) = List1.TopIndex List2.TopIndexEnd SubPrivate Sub Command1_Click () endend Sub
4

Pressione " F5" para executar este programa e observe quando você mover a barra de rolagem na primeira lista para baixo , o cubo pergaminhos resultado correspondente também. Você pode demonstrar um truque útil com barras de rolagem em um ListBox , fechando o programa com o comando "Exit" e voltando para a visão de formulário no Visual Basic. Clique na caixa de listagem " Cube" e arraste-o para que ele cobre parte do lado direito da caixa de listagem "Número" . Pressione " F5 " para executar o programa novamente. Agora, parece um controle governa as ações de ambas as caixas.
5

Altere a propriedade Columns do Número ListBox de "0" a "1". Substituir o último número na linha 4 do Passo 3 para ler " esta é uma frase muito longa para permitir que a barra de rolagem horizontal. " Press "F5" novamente para ver o efeito com uma barra de rolagem horizontal.