TAMANHO COLUNA LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

TAMANHO COLUNA LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#477756 - 09/11/2017 23:17:05

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


 Anexos estao visíveis somente para usuários registrados

Citação:
:
Uma dúvida, quando clico no meio da coluna acaba diminuindo seu tamanho conforme pode ser visto na imagem. É possível evitar isso?

Testei aqui e não aconteceu isso. Deve ser algum tipo de configuração que você colocou no list.


Na verdade verifiquei no listview as propriedades... inclusive testei no seu projeto também, mas ambos os projetos diminuem o tamanho da coluna se der o clique duplo, conforme imagem.

Aguardo retorno,



#477759 - 10/11/2017 00:29:03

JABA
CABO FRIO
Cadast. em:Agosto/2005


Citação:
Na verdade verifiquei no listview as propriedades... inclusive testei no seu projeto também, mas ambos os projetos diminuem o tamanho da coluna se der o clique duplo, conforme imagem.


Você tem razão! Infelizmente não sei como resolver isso.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#477782 - 10/11/2017 22:15:50

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Duas alternativas:
1) Elimino através de propriedade do listview o cabeçalho da primeira linha das colunas e assim não permite mover.

2) Criar um if no qual seja verificado se o tamanho da coluna está xxx.

Estou correndo atrás da alternativa 2 que seria a melhor!

Não hesite de comentar! Obrigado



#477789 - 11/11/2017 13:25:45

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Boa tarde,

Segue sugestão que criei. Ao clicar em determinado botão ele altera os tamanhos das colunas para o que era:

Private Sub Command1_Click()
    If lvwLista.ColumnHeaders(1).Width <> 810.1418 Then
        lvwLista.ColumnHeaders(1).Width = 810.1418
    End If
    If lvwLista.ColumnHeaders(2).Width <> 0 Then
        lvwLista.ColumnHeaders(2).Width = 0
    End If
    If lvwLista.ColumnHeaders(3).Width <> 3820.5357 Then
        lvwLista.ColumnHeaders(3).Width = 3820.5357
    End If
    If lvwLista.ColumnHeaders(4).Width <> 0 Then
        lvwLista.ColumnHeaders(4).Width = 0
    End If
    If lvwLista.ColumnHeaders(5).Width <> 0 Then
        lvwLista.ColumnHeaders(5).Width = 0
    End If
End Sub



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MILTONSILVA94 em 13/11/2017 20:13:44