Display Listbox item's description in a Textbox [Resolved]

[hbin]

Hi all, I'm new to VB and this is my question:

I have a list box where the user select an item from the list box, and the description of the item will be display in a text box.
Different item will display different description in the same text box. How can I do this?

I've been trying by using this code:

Private Sub List1_Click()
    Select Case List1.ListIndex
       Case 0:
           Text1.Text = "A Description"
       Case 1:
           Text1.Text = "B Description"
       Case 2:
           Text1.Text = "C Description"    
    End Select
End Sub

But the description is very long (more than hundreds words), I tried to store it in an access database, but failed because text size too large. Is it possible to save the description in a .txt file and load the description from that .txt file into the text box?

Thanks in advance!

[Danial]

What did you define the field in Access? Text? If you define it as Memo then you should not have any problem with the text size.

[hbin]

Yeah, I previously defined the field as Text, now the text size problem solved after I defined it as Memo, thanks

I'm still having the problem to display the description of an item from a Listbox in the same Textbox. Since I stored the description in an access database, how do I let the user to randomly access to certain record (description) by selecting from the Listbox?

Thanks in advance! I hope I didn't confuse anyone over here :P

[chemicalNova]

You could always use a text file if you wanted. All you would have to do is seperate each "description" by a special character...

Dim desc() As String
 
Private Sub Form_Load()
Dim FF As Long
Dim myStr As String
FF = FreeFile()
Open "C:\test.txt" For Input As #FF
myStr = Input(LOF(FF), FF)
desc = Split(myStr, "{")
Close #FF
End Sub
 
Private Sub List1_Click()
Text1.Text = Replace(desc(List1.ListIndex), vbNewLine, "")
End Sub

//The TextFile
This is the description of the very first item in the list (ListIndex 0).
{
This is the second description of the second item (ListIndex 1).
{
blah blah blah..
{

Phreak

[hbin]

Thanks Phreak, it works~! But the text shown up all in one paragraph even though it's originally divided in paragraphs in the text file. How can I make the text separated into paragraphs?

By the way, I changed the code

Open "C:\test.txt" For Input As #FF

to

Open "test.txt" For Input As #FF

in order the program to locate the file in the same folder as the project, and it works. Will this code still works when I converted my project into .exe file?

[chemicalNova]

AH, whoops, lol. This part:

Text1.Text = Replace(desc(List1.ListIndex), vbNewLine, "")

..removes the new lines. Which in turn, makes it all 1 line.
You can remove the "Replace" and just make it this:

Text1.Text = desc(List1.ListIndex)

I had the "Replace" because I didn't set the MutliLine property to true, and it showed squares for the Newline characters..

Phreak

[hbin]

Yup, it now can separate into paragraphs.

BTW, I don't know why before this code can works but now it couldn't works

Open "test.txt" For Input As #FF

How should I write the code to make the program to locate the file in the same folder as the project, even when converted to .exe file?

PS: Can a .txt file store a large amount of text?

[dw85745]

Suggest you do some reading on handling "sequential files"

FF is a supposed to be a file number. As I recall it is defined as an integer, and/or long. FF is a hex value so MOST likely if you want to use hex, you need to convert it to an integer or long
before using it as a file number. NEVER TRIED HEX AS A FILE NUMBER SO BEST GUESS RESPONSE.

---------------
How should I write the code to make the program to locate the file in the same folder as the project, even when converted to .exe file?
----------------
Put the folder/directory in front of your file name ----> "test.txt"


-----------
PS: Can a .txt file store a large amount of text?
-----------

Up to the size of the space available on your hard disk or
as I recall 4GB, whichever is smaller.

[hbin]

Put the folder/directory in front of your file name ----> "test.txt"

Yup, I did that before, eg:

C:\My Documents\test.txt

, but I wanted to make the program automatically locate this text file as long as it's in the same folder as the project; so the user can place the project & file in any folder or directory.

BTW, I was trying to let the user to print the description in the text box and it seems like can't print the text correctly and completly.

Here is what I wrote:

Private Sub cmdPrint_Click()
    'Print the Description
    Printer.Font.Name = "Times New Roman"
    Printer.Font.Size = 11
    Printer.Print  Text1.Text
    Printer.EndDoc
End Sub

[vbasicgirl]

if you want to find the path your project is in then use

Open App.Path & "\test.txt" For Input As #1

is this what you are talking about ?

casey.

[hbin]

is this what you are talking about ?

Open App.Path & "\test.txt" For Input As #1

casey.

Yup, exactly Thanks.

[hbin]

Private Sub cmdPrint_Click()
    'Print the Description
    Printer.Font.Name = "Times New Roman"
    Printer.Font.Size = 11
    Printer.Print  Text1.Text
    Printer.EndDoc
End Sub

I wrote these code to print the description in the text box and the output is like it can't print the text as what it shown in the text box or text file. Certain lines in a paragraph were skipped until a suppose to be long document (description) printed as short/uncompleted. Well, I'm not sure if it really "skipped" the lines in a paragraph or it can't wrap the lines to fit the page.