[RESOLVED] Listboxes & Txt Files

[Bobalandi]

Alright, I have a listbox,and I was wondering how to get it to load a txt document when a certain item is clicked, and display the text in a textbox, is that possible?

[chemicalNova]

..of course its possible.

A little more information would be helpful. What are the listbox items? 1 click or 2? How much experience do you have with VB?

The below will load a file into a textBox based on the filename in the listbox.

Private Sub ListBox_DblClick()
Open ListBox.List(ListBox.Index) For Input As #1
    textBox.Text = Input(LOF(1), 1)
Close #1
End Sub

chem

[Bobalandi]

Well, I have some good experience with vb6, but, I very, very rarely use listboxes, so... 2 click is what I need I think, but then how do I add the index for the list items?

[Keithuk]

Alright, I have a listbox,and I was wondering how to get it to load a txt document when a certain item is clicked,

What item?

To load a text file into a ListBox you need to use the Line Input Statement when reading the file and add that to the ListBox with AddItem.

[Bobalandi]

Sorry, I want the textbox to load a txt document when a certain listitem is clicked... sorry...

[chemicalNova]

The code I gave you does that. It assumes that the list item is the direct path to the file.

chem

[Bobalandi]

but how do I edit it for each different item clicked?

[chemicalNova]

It already does that. The code I gave you loads in the file thats selected in the listbox.. no matter which one it is.

chem

[Bobalandi]

Wait, so I specify the file in the list box with the additem?

[chemicalNova]

Yes. As I said.. the code assumes the text in the listbox item, is a direct path to the file. For Example:

ListBox.AddItem "C:\file.txt"

chem

[Bobalandi]

Ok, thank you very much, but can you just tell me one more thing, is there a way to show it as something like "Main" and the file url?

[chemicalNova]

Expand on that a bit more.. what do you want exactly? The listbox item to read "Main - C:\file.txt" ?

chem

[Bobalandi]

No, I want it to read main, but the file be C:\file.txt

[chemicalNova]

You can either have a separate invisible listbox for the proper filenames, or use a string array. For example:

ListBox1.AddItem "C:\file.txt"
ListBox2.AddItem "Main"

Private Sub ListBox2_DblClick()
Open ListBox1.List(ListBox2.Index) For Input As #1
    textBox.Text = Input(LOF(1), 1)
Close #1
End Sub

So, you click the visible listbox, but it loads the file thats in the invisible one.

chem

[Bobalandi]

Ok, thank you... I appreciate it...

[Bobalandi]

Whoops, I just got an error, it says the object is not in an array...

Open lstfiles.List(lsttopics.Index) For Input As #1

[chemicalNova]

Do you have any items in your listbox when it reaches that code?

chem

[Bobalandi]

Yup, I have 1 at the time...