GRAVAR ITENS EM UMA LISTVIEW.

PROGRAMADORVB6 08/07/2011 13:06:27
#378774
Olá pessoal.
Estou com um problema em gravar os itens marcados em uma listview.
O que eu pretendia era fazer o seguinte :
Caso na Listview carregada não ouvesse nhenhuma marcação guardava no txt todos os itens.
Caso na listview carregada já estive-se itens marcados na checkbox, só gravaria no txt os itens marcados.
Deixo-vos aqui o código para que me possam ajudar.
A função em questão está na Classes e dá pelo nome : Funcao_ListView
Grato desde já pela vossa paciência e atenção.
Atenciosamente.
Programadorvb6
PEGUDO 08/07/2011 13:53:23
#378783
Resposta escolhida
Eu fiz um teste no botão Abrir Ficheiro

Este teste verifica se há algum item marcado, atribuindo False ou True à variável GravarTodos;
Depois, baseado na Variável GravarTodos, O programa pega todos os itens ou somente os marcados;
O Exit For é para que o código saia antes de abrir a OpenFileDialog

Se este exemplo lhe servir, adapte ao seu código
PROGRAMADORVB6 08/07/2011 17:13:10
#378815
Olá Pegudo.
Desde já quero agradecer a sua atenção.
Estive a ver o código que escreves-te e seguindo a linha de raciocínio , adaptei-o á classe só que a rotina grava ciclicamente até chegar ao total de itens carregados.
Tambem não está fazendo a quebra de página como se encontra no ficheiro Links.txt
Deixo aqui as modificações que fiz.
Obrigado desde já pela a ajuda prestada.
Atentamente.
Programadorvb6
RODRIGOFERRO 08/07/2011 19:40:33
#378827
Para ele loopar dentre os checados troque toda aquele loop por isso..

Primeiro declara uma variavel e atribui o valor a ela

Dim checkedItems As ListView.CheckedListViewItemCollection = ListView_Nome.CheckedItems

[ô]Apos isso de o loop

For Each i As ListViewItem In checkedItems
Gravar_Texto.Write(ListView_Nome.Items.Item(0).Text & Chr(9)) [ô]Pega todos os itens se não houver nenhum marcado
Gravar_Texto.Write(Environment.NewLine)
Next

é essa a linha de raciocinio !
PROGRAMADORVB6 09/07/2011 15:31:52
#378861
Olá pessoal.
Indo pelas indicações dadas pelos colegas fiz assim :
Grato desde já pela vossa ajuda.
Tópico encerrado , respostas não são mais permitidas