Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Matheus-vb6

(Resolvido)Listview

Question

Boa noite gente, andei dando uma pesquisada e achei bacana esse "listview" só que não sei como por ele no projeto :S

Por hora só queria saber como põe :D, operar ele é meu proximo desafio :D

Abraços

Edited by Matheus-vb6

Share this post


Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 0
Boa noite gente, andei dando uma pesquisada e achei bacana esse "listview" só que não sei como por ele no projeto :S

Por hora só queria saber como põe :D, operar ele é meu proximo desafio :D

Abraços

Você terá que baixar o componente ocx, e depois importart para o seu projeto.

Project >> Components

Clica e browser a aponta para o seu OCx. o componente será adicionado na toolbox.

Share this post


Link to post
Share on other sites
  • 0

@ Matheus:

Vá em Project > Components ( ou pressione "Ctrl + T") e habilite o componente "Microsoft Windows Common Controls 6.0 (SP6)";

86012575.jpg

26321464.jpg

Depois disto irá ficar disponível mais opções em sua Caixa de Ferramentas, basta escolher o "ListView" entre eles.

51492301.jpg

Beleza ?! VALEU ! :D

Share this post


Link to post
Share on other sites
  • 0

Consegui por o/, agora proximo passo... se eu quiser abrir dados nele, como faço?

Exemplo, tabela nome, cargo, telefone, função...

-----

Vi sobre o flexgrid, qual deles vocês me recomendam? Qual é mais facil?

Edited by Matheus-vb6

Share this post


Link to post
Share on other sites
  • 0

Uso os dois, mas visualmente prefiro o listview, para outros casos prefiro o MsHflexgrid, segue exemplo para preencher o Listview com dados de uma consulta/recordset:

Private Sub preencher_listview()

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select cod, data, valor from fichario " & _
"where (isnull(recebido) or recebido = 0) and cod_cli = " & vCod_cliente & " order by data, valor"
Set rs = .Execute
End With

If rs.RecordCount > 0 Then

With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Codigo", 1000
.ColumnHeaders.Add , , "Vencimento", 1400, 2
.ColumnHeaders.Add , , "Valor", 1500, 1
End With

With ListView1
rs.MoveFirst
Do While Not rs.EOF
Set itmx = ListView1.ListItems.Add(, , rs!cod)
itmx.SubItems(1) = Format(rs!Data, "dd/mm/yyyy")
itmx.SubItems(2) = Format(rs!valor, "currency")
rs.MoveNext
Loop
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Font = "tahoma"
.MultiSelect = False
End With
End If
rs.Close

End Sub

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148084
    • Total Posts
      643276
×
×
  • Create New...