visual basic 6 list box?

Question

hi , i have list box in my program which i use additem function to list items from text boxes , in one line of the listbox i have many info e.g price and quantity , but i can not leave space between them , can anyone help please

alli want to do is list something below

£4.75 , 2 QTY

thank you

thank you

Answer 1

I am assuming that you are concatenating a series of textbox.text values into one string variable with seperator spaces (myStr for example myStr = str1 & " " & str2) . Then using myStr as the added item....

Try using a fixed font like Courier New rather than a proportional spaced font. Its possible the proportional spacing is giving the appearance of not having a space.

Next try either padding string elements with spaces or inserting a vbTab between string elements. This assumes that you have two seperate strings (PRICE & QTY) if not split the string at the comma.

Answer 2

If you want to have multiple values to be a single entry in your list box using a space here are the 2 methods I can think of:

1) Send the ASCII value for space (32) in between your values.
example:

lstListbox.AddItem txtText1.Text & Chr(32) & txtText2.Text


2) Concatenate a space between values
example:

lstListbox.AddItem txtText1.Text & " " & txtText2.Text

Answer 3

Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Form1.Print List1.List(i) End If Next i End Sub

Answer 4

What you'll need to do is pull the string value and pick out the bits you need by manipulating the string. Think, MID, RIGHT, LEFT, REPLACE, INSTR, TRIM.

For instance, to get the price, trim(mid(string, 1, instr(string, ",") ))

To get the qty it might be trim(mid(string, instr(string,",")+1,50))

The only way this really works is if the data is consistent with the comma, such as given in your example.

Answer 5

Dim NewList


newList = list1.AddItem(var1,&" "&var2)

That's &, a double quote, a space, another double quote, and another & sign. The &" "& should put a space into the item for you.