none
Barra de rolagem horizontal do ListBox RRS feed

  • Pergunta

  • Olá 

    Alguém sabe como ativar a barra de rolagem horizontal da ListBox ?

    No caso eu tenho muitas colunas e dados grandes, assim preciso ativar a barra de rolagem para que eu possa ver todas. 

    Exemplo

                   

    For

    i = 2 To TotalDados
        If Cells(i, 2) >= CDate(DataInicial) And Cells(i, 2) <= CDate(DataFinal) Then


            Lista.ColumnCount = 8 ' Número de Coluna'
            Lista.ColumnWidths = AutoFit 'Largura da coluna é definida automaticamente'
            Lista.RowSource = "A2:G" & i 'Carrega a linha na ListBox'

    ...

    quarta-feira, 4 de novembro de 2015 18:11

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    A instrução:

    Lista.ColumnWidths = AutoFit 'Largura da coluna é definida automaticamente'

    Não redimensiona a caixa de listagem. Para fazer isso, você deve usar uma técnica como a mostra aqui: http://www.jkp-ads.com/articles/AutoSizeListBox02.asp

    ---

    A barra de rolagem aparece automaticamente na sua caixa de listagem. Experimente, em modo de design, alterar as propriedades ColumnCount para o número de colunas que sua caixa de listagem terá e a propriedade ColumnWidths para a lagura de colunas, como, por exemplo 100;150;200


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 5 de novembro de 2015 14:14
    Moderador