VB6:ListView with one item per line ? 2

[Lemox]

Hi there,

I'm trying to display a listview with only one item per line (only one column).

i.e.
----

-item1
-item2
-...
-itemX
-itemY
-itemZ

View property is set to 'List' but what happens is that when there are many items, list continues in the next column (don't know if it is a real column): no vertical scrollbar, only horizontal.

i.e.
---
-item1 -itemY
-item2 -itemZ
-....
-itemX

Any idea ?

Thanks in advance.
Lemox

 

[ZmrAbdulla]

Change the lvwList to lvwReport style

Zameer Abdulla
[sub]Jack of Visual Basic Programming, Master in Dining & Sleeping[/sub]
Visit Me

 

[Lemox]

Thx for replying.

I already tried to change to lvwReport : now my list doesn't display any item.
(I checked the .ListItems.Count property : 200 items)

Is there any other property to set when using it as 'Report' ?

 

[ZmrAbdulla]

Can you post your code?

Zameer Abdulla
[sub]Jack of Visual Basic Programming, Master in Dining & Sleeping[/sub]
Visit Me

 

[Hypetia]

In addition to that, you also need to insert atleast one columnheader to the listview in order to show the list items in report view.

See the following code.
___
[tt]
Option Explicit
Private Sub Form_Load()
Dim N As Long
With ListView1
.View = lvwReport
'.HideColumnHeaders = True
.ColumnHeaders.Add , , "Fonts", 4000
For N = 0 To Screen.FontCount - 1
.ListItems.Add , , Screen.Fonts(N)
Next
End With
End Sub
Private Sub Form_Resize()
ListView1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub[/tt]

 

[Lemox]

Public Sub Init(ByVal Result As OO4ORecordset)
   Result.MoveFirst
   While not Result.EOF 
    Me.lstResult.ListItems.Add , , Result.Display
    Result.MoveNext
   Wend
End Sub

(Result.Display returns a string)

 

[ZmrAbdulla]

Yes Hypetia,
It was the reason I asked for the code

Zameer Abdulla
[sub]Jack of Visual Basic Programming, Master in Dining & Sleeping[/sub]
Visit Me

 

[Lemox]

Perfect !

Stars for both of you..

Thx a lot !!
Lemox

 

[ZmrAbdulla]

Public Sub Init(ByVal Result As OO4ORecordset)
Me.lstResult.ColumnHeaders.Add , , "Result", 5000 'you can set the width here
Result.MoveFirst
While Not Result.EOF
Me.lstResult.ListItems.Add , , Result.Display
Result.MoveNext
Wend
End Sub



Zameer Abdulla
[sub]Jack of Visual Basic Programming, Master in Dining & Sleeping[/sub]
Visit Me