Banging my head against the wall - Horizontal List

D

Doggo

Hi,

I need some clarification of if a control exists that will fit into m
solution.

What I need to do is display a list of data horizontally in a control.
The data, is a question which can be 50 to 100 characters long and the
need to see the whole text of the question.

Preferably there would be 1 row of data and the questions would go int
the columns with a scroll bar to move along. Thus far I have tried -

A listbox - can't seem to toggle the height of the row so all of th
question text can be displayed in one go.

Listview - Same as above

Spreadsheet 9.0 Control - Thought I had found what I needed until
realized that the bloody thing won't wrap text in a cell!!!

So am I looking for something that is impossible or is their somehtin
really simple that I am overlooking?

I want to avoid using a spreadsheet for this as I may need to use mor
than 1 horizontal list on one form

Please help?



Ok - this is what I am looking for - The main objective of this trak
is to give the user an interface so they can loo
 
H

Harald Staff

Hi

Extra controls means trouble; installasion, versions, licenses, ... Let me
suggest something really simple; a userform with Label1, Label2, Label3 (add
more if needed)and Scrollbar1, data in Sheet1 A1:A100, and this userform
code:

Private Sub UserForm_Initialize()
Label1.BackColor = vbWhite
Label1.Left = 1
Label1.Top = 4
Label1.Height = 70
Label1.Width = 70

Label2.BackColor = vbWhite
Label2.Left = 73
Label2.Top = 4
Label2.Height = 70
Label2.Width = 70

Label3.BackColor = vbWhite
Label3.Left = 145
Label3.Top = 4
Label3.Height = 70
Label3.Width = 70

ScrollBar1.Min = 1
ScrollBar1.Max = 100
ScrollBar1.Top = 75
ScrollBar1.Value = 1
Call ScrollBar1_Scroll
End Sub

Private Sub ScrollBar1_Change()
Call ScrollBar1_Scroll
End Sub

Private Sub ScrollBar1_Scroll()
Label1.Caption = Sheets(1).Cells(ScrollBar1.Value, 1)
Label2.Caption = Sheets(1).Cells(ScrollBar1.Value + 1, 1)
Label3.Caption = Sheets(1).Cells(ScrollBar1.Value + 2, 1)
End Sub


HTH. Best wishes Harald
 
D

Doggo

Hi Harald,

Creative solution and that has the visual effect of achieving what
want although I am finding it hard to believe that you can not expan
the row height of a listbox or list view and wrap the text.

Frustratin
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top