LISTVIEW - ALTURA DAS LINHAS

PERCIFILHO 04/03/2011 13:59:58
#367256
Boa Tarde, amigos.
Há alguma possibilidade de se alterar, ou seja aumentar a altura das linha de uma ListView sem alterar o tamanho da fonte? Como se ela tivesse a propriedade Height para as linhas.

Se alguém souber......

Até mais.
HIDDEN 05/04/2011 23:12:37
#370538 Resposta escolhida
Crie uma gif transparente na altura que deseja, inserindo-a em um ImagList associado ao ListView.

Aliás, acho que nem precisa. Tente isso:

Private Sub Form_Load()
   ListView1.View=lvwReport
   ListView1.ColumnHeaders.Add , , [Ô]Nome[Ô]
   ImageList1.ImageHeight = 30 [ô] rode com este valor (altura da linha)
   ImageList1.ListImages.Add , , Me.Icon
   Set ListView1.SmallIcons = ImageList1
   For i = 1 To 20
       ListView1.ListItems.Add , , [Ô]Item No. [Ô] & i
   Next i
End Sub
HIDDEN 05/04/2011 23:16:53
#370539
Da até pra criar uma função:

Private Sub SetLVRowHeight(lv As ListView, imgl As ImageList, ByVal hgt As Long)
   If hgt <= 0 Then Exit Sub
   Set lv.SmallIcons = Nothing
   imgl.ListImages.Clear
   imgl.ImageHeight = hgt
   imgl.ImageWidth = 1 [ô] para evitar espaço livre a esquerda (para icones)
   imgl.ListImages.Add , , Me.Icon
   Set lv.SmallIcons = imgl
End Sub
PERCIFILHO 06/04/2011 07:18:58
#370560
Obrigado, colega, vou testar e depois posto aqui.

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar