Listview control

[AlexanderBB]

I have a couple of questions about the Listview control I can't find answers for .

Can you hide or set width for 1st column ? It seems to be a special column, not one added by code.
At the end of text is "..." even though the width is well within the column width. To remove them you have to widen the column far more than is needed. Is this adjustable ?
Can you right align numbers ?

Thanks

PS This is in Report view, can't get any others to work !

 

[Johnny C]

What sort of Listbox is it? if it's a forms Control one, try using an ActiveX. You have more control over the properties.

 

[RoryA]

There is no special first column in a listview. Did you clear the columnheaders before adding your own? I also can't replicate your ... issue. You can right align a column easily - I can't recall offhand if it can be done for specific rows in a column (though I doubt it).

 

[AlexanderBB]

I don't know how to setup an 'ActiveX" listbox, this is the (default?) one in the Toolbox. The overly long rows were caused by some non printable characters in the text
that must be included in field length So that's fixed, but I can't remove column one or clear columnheaders. I can get a sort of right alignment by padding with spaces.

Seeems very hard to get good info on ListBoxes, Google mostly finds data for .Net or something else, showing properties that don't exist here.

Anyone know where I can find out more ? Like why only View lvwReport works, and can you get a image into a field? Thanks...

 

[RoryA]

A listbox is not the same as a Listview. Which one are you using, and how are you populating the control?

 

[AlexanderBB]

Oops, sorry I meant listview!

Private Sub UserForm_Activate()
    Dim i As Integer, theListView As ListItem
    
    LV2.ColumnHeaders.Clear
    LV2.ColumnHeaders.Add , , "WO", 25
    LV2.ColumnHeaders.Add , , "-3", 25
    LV2.ColumnHeaders.Add , , "-2", 25
    LV2.ColumnHeaders.Add , , "-1", 25
   
    LV2.View = lvwReport
 
    With Worksheets("Sheet2")
        For i = 1 To Val(.Cells(1, "L"))
            Set theListView = UserForm2.LV2.ListItems.Add
                theListView.SubItems(1) = "ddd" '.Cells(i, "A")
                theListView.SubItems(2) = .Cells(i, "B")
                theListView.SubItems(3) = .Cells(i, "C")
                If Len(theListView.SubItems(3)) = 1 Then theListView.SubItems(3) = "  " & theListView.SubItems(3)
                theListView.SubItems(4) = .Cells(i, "D")
        Next
    End With
End Sub

I've now found I am setting column one, the confusion is because it is not accepting any data. In the above column 2 is populated with "ddd", whereas it should be column 1.
Seems there's no SubItems(0) allowed.

 

[RoryA]

You should be adding the first text to the Listitem, not a SubItem - for example:

Set theListView = UserForm2.LV2.ListItems.Add(Text:="ddd")

 

[AlexanderBB]

Thanks Rory, one to remember.