Jump to content
Juninho Dias

Erro com caixa de lista

Recommended Posts

Juninho Dias

Boa noite,

Estou tendo problemas ao tentar salvar uma listbox em um arquivo de texto .txt, segue o codigo;

IO.Directory.CreateDirectory("C:\Test")
    Dim Caminho As New IO.StreamWriter("C:\Test\Arquin.txt")
    Dim i As Integer
    For i = 0 To ListBox1.Items.Count - 1
        Caminho.WriteLine(ListBox1.Items.Item(i))
    Next
    Caminho.Close()

Aparece o seguinte erro:

 "Item não é membro de System.Array"

já tentei utilizar outros códigos e não obtive resultados.

OBS** Estou usando um tema no vb.net para mudar a aparência do windows form

Share this post


Link to post
Share on other sites
ribeiro55

Não deverias ter problema com esse código.

Alguma coisa deves estar a fazer antes em algum lugar.

A maneira mais fácil de perceberes o que se passa é fazeres uso das excelentes capacidades de debugging do Visual Studio.

Mete um breakpoint nessa linha (F9), depois quando parar lá, faz quickwatch para perceberes exactamente o que está a acontecer.

De qualquer forma, podes melhorar um pouco a legibilidade colocando o código da seguinte maneira:

IO.Directory.CreateDirectory("C:\Test")
Dim Caminho As New IO.StreamWriter("C:\Test\Arquin.txt")
For Each li As Object In ListBox1.Items
   Caminho.WriteLine(li.ToString())
Next
Caminho.Close()


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
Juninho Dias

Não funcionou...

Eu acho que não esteja funcionando porque eu estou usando tema no vb.net para mudar a aparência dele

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.