LISTVIEW

USUARIO.EXCLUIDOS 15/04/2004 21:53:28
#20859 Resposta escolhida

Os controles ListView e TreeView são objetos compostos. Isso significa que são objetos que contém coleções com outros objetos, internamente, cada qual com suas próprias propriedades, métodos, eventos etc.

Um paralelo mais conhecido e difundido desse tipo de controle é a biblioteca DAO, que possui o objeto Database e neste, uma coleção chamada TableDefs contém objetos TableDef.

Ao utilizar um ListView, você deve procurar, então, utilizar variáveis que possam ser dimensionadas como da classe de objetos internos ao ListView, como o ListItem, para então trabalhar suas propriedades.

Um exemplo poderia ser:

Private Sub Form_Load()
Dim t As Byte
Dim oLI As ListItem
Dim oCH As ColumnHeader
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
For t = 0 To 3
Set oCH = .ColumnHeaders.Add
If t (maior que) 1 Then
oCH.Alignment = lvwColumnCenter
Else
oCH.Alignment = lvwColumnLeft
End If
oCH.Key = "Chave" & Format$(t, "000")
oCH.Text = "Header " & Trim(Str(t))
Next t
For t = 0 To 100
Set oLI = .ListItems.Add()
oLI.Ghosted = False
oLI.Key = "Chave" & Trim(Str(t))
oLI.Text = "Titulo " & Trim(Str(t))
oLI.SubItems(1) = "Coluna 1:" & Trim(Str(t))
oLI.SubItems(2) = "Coluna 2:" & Trim(Str(t))
oLI.SubItems(3) = "Coluna 3:" & Trim(Str(t))
Next t
.View = lvwReport
End With
t = Empty
End Sub

USUARIO.EXCLUIDOS 15/04/2004 22:06:38
#20864

JOSE.NIZ
Eu fico imensamente feliz em observar isso!