TAMANHO COLUNA LISTVIEW
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,
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.
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
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
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
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 encerrado , respostas não são mais permitidas