[Resolvido] listview

[nereu1301 0]

Bom Dia

Estou tentando utilizar um list no programa e to apanhando.

 

Uso vb6 e banco de dados Access.

 

Comparei o listView disponivel no meu vb6 com os listView de programas de colegas do fórum e percebi que o meu não tem disponível todos as possibilidades de uso, por exemplo fullRowSelect, então pergunto:

 

- existem versoes diferentes da listView dentro do vb6?

- que componentes e referencias preciso marcar pra ter tudo disponível?

- mesmo não tendo fullRowSelect disponível, tem como selecionar toda a linha do List?

 

Fico no aguardo da ajuda dos amigos.

 

 

Nereu

[Claudio Neto 3]

Não Nereu, é somente um mesmo.

 

Tem certeza que selecionou o ListView e não o List?

[nereu1301 0]

Não Nereu, é somente um mesmo.

 

Tem certeza que selecionou o ListView e não o List?

 

 

Boa Noite Claudio

 

Faço assim pra preencher o listview e o problema é que não tem a propriedade fullrowSelect

 

Private Sub Preencher_Listview()

Dim rsProdutos As ADODB.Recordset

Dim strSQL As String

Dim i As Integer

Dim estoque As Long

Dim custo As Currency

Dim venda As Currency

 

Set rsProdutos = New ADODB.Recordset

Set rsProdutos.ActiveConnection = cnn

estoque = 0

custo = 0

venda = 0

 

strSQL = "SELECT Referencia, Descricao, PrecoCusto, PrecoVenda, Estoque"

strSQL = strSQL & " FROM Produtos order by Referencia"

rsProdutos.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText

'define o item da lista

 

Dim ItemLst As ListItem

'limpa a lista

ListEstoque.ListItems.Clear

'cabecalho do listview

listview_cabecalho

 

While Not rsProdutos.EOF

'insere o item do arquivo de dados

Set ItemLst = ListEstoque.ListItems.Add(, , Format(rsProdutos!Referencia, "00000"))

'cada item precisa de um subitem para exibir na lista

ItemLst.SubItems(1) = "" & rsProdutos!Descricao

ItemLst.SubItems(2) = "" & rsProdutos!estoque

ItemLst.SubItems(3) = "" & Format(rsProdutos!PrecoCusto, "0.00")

ItemLst.SubItems(4) = "" & Format(rsProdutos!precoVenda, "0.00")

'vai para o proximo registro

rsProdutos.MoveNext

Wend

ListEstoque.ColumnHeaders(3).Alignment = lvwColumnRight

ListEstoque.ColumnHeaders(4).Alignment = lvwColumnRight

ListEstoque.ColumnHeaders(5).Alignment = lvwColumnRight

For i = 1 To ListEstoque.ListItems.Count

estoque = estoque + CDbl(ListEstoque.ListItems(i).SubItems(2))

custo = CCur(custo) + CCur((CDbl(ListEstoque.ListItems(i).SubItems(3))) * CCur(CDbl(ListEstoque.ListItems(i).SubItems(2))))

venda = CCur(venda) + CCur((CDbl(ListEstoque.ListItems(i).SubItems(4))) * CCur(CDbl(ListEstoque.ListItems(i).SubItems(2))))

Next i

 

rsProdutos.Close

ListEstoque.Refresh

Set rsProdutos = Nothing

 

End Sub

Private Sub listview_cabecalho()

ListEstoque.ColumnHeaders. _

Add , , "Referência", ListEstoque.Width / 11

ListEstoque.ColumnHeaders. _

Add , , "Descrição", ListEstoque.Width / 2

ListEstoque.ColumnHeaders. _

Add , , "Quant.", ListEstoque.Width / 10

ListEstoque.ColumnHeaders. _

Add , , "Custo", ListEstoque.Width / 11

ListEstoque.ColumnHeaders. _

Add , , "Venda", ListEstoque.Width / 11

'Define a forma de exibição do controle listview para relatorio

ListEstoque.View = lvwReport

End Sub

[nereu1301 0]

Boa Noite

 

Tem coisas que eu prefiro nem procurar entender. Na coluna onde estão os componentes disponiveis pra usar no projeto tem dois listView. um no General sem fullrowselect e outro listView no Avançado com fullrowselect disponível. É de perder o rumo.

 

Mas o seguinte: agora coloquei o ListView com fullrowselect e me retorna erro "Tipo diferente" na seguinte linha

 

Set ItemLst = ListEstoque.ListItems.Add(, , Format(rsProdutos!Referencia, "00000"))

 

ai eu pergunto: Como que sem mudar os dados, no listView sem fullrowselect retorna o list certo

e no listView com fullrowselect retorna erro??????

 

Se alguem puder opinar, agradeço.

 

Nereu

[nereu1301 0]

Boa tarde

 

Resolvido.

 

Exclui a linha "Dim ItemLst As ListItem"

 

Agora quando clico numa linha do listview ela fica toda marcada e não so a célula clicada como antes.

 

Obrigado

 

Nereu

 

 

Por favor, fechem o tópico.