How to set un-editable column in Listview?

[keirnus]

Hello,

I have a Listview control which displays various data.
The default selected item is the first item.
(Is it always the first item?)

Here's a simple code:

    Dim objListItem As Object
 
    lstvwXclList.View = lvwReport
    ' Set column headers 
    With lstvwXclList.ColumnHeaders
        .Add , , "Activity", 4000
        .Add , , "Description", 4700, lvwColumnLeft
        .Add , , "Filename", 2400, lvwColumnRight
    End With
 
    Set objListItem = lstvwXclList.ListItems.Add()
    objListItem.Text = "Swimming"
    objListItem.SubItems(1) = "400 m Freestyle"
    objListItem.SubItems(2) = "Swimming.xls"

The only clickable column is the first column.
In this case, the "Activity" column.

The problem here is the data in "Activity" column is editable.
The data need not to be edited. It must stay as is.

What to do in order to set it un-editable?
Haven't found any settings in the control's properties.

Help from the experts and the knowledgable are greatly appreciated.

[NeoPa]

What types of objects are you using? A ListBox control on a Form?

[ADezii]

Juast subscribing for now. Is all the data for the ListView Control going to be Manually or Dynamically added, and if Dynamically, what is the Data Source?

[NeoPa]

Right, so there is a ListView control available. I found it after hunting through the Additional Controls list. This would be found on a Form object for anyone who is not familiar with all the various objects available within Additional Controls.

As this is not something I'm familiar with I will simply watch with interest.

[ADezii]

I took the liberty of revising your code, which should now work as originally intended. Let me know how you make out:

Dim itmX As ListItem
 
'Make sure ListView control is in report view.
Me![lstvwXclList].View = lvwReport
 
With Me![lstvwXclList]
  'Add three columns (index, key, text, width, alignment, icon)
  .ColumnHeaders.Add , "Activity", "Activity", 4000, lvwColumnLeft
  .ColumnHeaders.Add , "Description", "Description", 4700, lvwColumnLeft
  .ColumnHeaders.Add , "Filename", "Filename", 2400, lvwColumnRight
End With
 
'Add Activitys to column 1 (index, key, text, icon, smallicon)
Set itmX = Me![lstvwXclList].ListItems.Add(1, "Swimming", "Swimming")   'C1R1
' Use the SubItemIndex to associate the SubItem with the correct
' ColumnHeader. Use the key ("Description") to specify the right
' ColumnHeader.
itmX.SubItems(Me![lstvwXclList].ColumnHeaders("Description").SubItemIndex) _
= "400 m Freestyle"
' Use the ColumnHeader key to associate the SubItems string
' with the correct ColumnHeader.
itmX.SubItems(Me![lstvwXclList].ColumnHeaders("Filename").SubItemIndex) _
= "Swimming.xls"
 
'User cannot Edit Labels
Me![lstvwXclList].LabelEdit = lvwManual

P.S. - If you so desire, I can also Attach the Test Database used for this Thread, just let me know.

[keirnus]

I took the liberty of revising your code, which should now work as originally intended. Let me know how you make out:

Dim itmX As ListItem
 
'Make sure ListView control is in report view.
Me![lstvwXclList].View = lvwReport
 
With Me![lstvwXclList]
  'Add three columns (index, key, text, width, alignment, icon)
  .ColumnHeaders.Add , "Activity", "Activity", 4000, lvwColumnLeft
  .ColumnHeaders.Add , "Description", "Description", 4700, lvwColumnLeft
  .ColumnHeaders.Add , "Filename", "Filename", 2400, lvwColumnRight
End With
 
'Add Activitys to column 1 (index, key, text, icon, smallicon)
Set itmX = Me![lstvwXclList].ListItems.Add(1, "Swimming", "Swimming")   'C1R1
' Use the SubItemIndex to associate the SubItem with the correct
' ColumnHeader. Use the key ("Description") to specify the right
' ColumnHeader.
itmX.SubItems(Me![lstvwXclList].ColumnHeaders("Description").SubItemIndex) _
= "400 m Freestyle"
' Use the ColumnHeader key to associate the SubItems string
' with the correct ColumnHeader.
itmX.SubItems(Me![lstvwXclList].ColumnHeaders("Filename").SubItemIndex) _
= "Swimming.xls"
 
'User cannot Edit Labels
Me![lstvwXclList].LabelEdit = lvwManual

P.S. - If you so desire, I can also Attach the Test Database used for this Thread, just let me know.

Sorry...it took me so long to reply.

This is what makes it work:

Me![lstvwXclList].LabelEdit = lvwManual

Now, it is un-editable. =)

Changing the LabelEdit property in VB Editor seems
to be not working. No matter what value I set, it always
reverts to its original value. (Could it be a bug?)

Anyway, this issue is considered SOLVED.

Thanks to NeoPa and ADezii!
(...for their time and effort)

You both did help another one here. =D

[keirnus]

....

Changing the LabelEdit property in VB Editor seems
to be not working. No matter what value I set, it always
reverts to its original value. (Could it be a bug?)

....

I now know why setting the properties of ListView control in
VB Editor doesn't work. It is because the ListView has its own
"Property" setting.

The pre-defined Property Setting link is the "Properties".
But the ListView's link is "ListViewCtrl Object".
Please refer to attached image.

No wonder why my settings were not reflected.

Weirdness of the ListView Property Setting solved.

(Signing off)

[ADezii]

I now know why setting the properties of ListView control in
VB Editor doesn't work. It is because the ListView has its own
"Property" setting.

The pre-defined Property Setting link is the "Properties".
But the ListView's link is "ListViewCtrl Object".
Please refer to attached image.

No wonder why my settings were not reflected.

Weirdness of the ListView Property Setting solved.

(Signing off)

ListViewCtrl is the ActiveX Control's OLE Class Name, you should still be able to modify the LabelEdit Property programmatically in the manner in which I have described, and what I have been successful doing. Oh well, as long as it works it will have to remain a mystery - ActiveX Controls are funny that way! (LOL)!

[NeoPa]

Keirnus, you're welcome to what little assistance I was able to provide on this one.

May I also say that we appreciate your updating the thread with your new understanding of the matter. I expect this will be quite useful for those coming after us :)

[keirnus]

ListViewCtrl is the ActiveX Control's OLE Class Name, you should still be able to modify the LabelEdit Property programmatically in the manner in which I have described, and what I have been successful doing. Oh well, as long as it works it will have to remain a mystery - ActiveX Controls are funny that way! (LOL)!

Yes, it can be modified programatically.
It is what I am implementing now.
That's to make sure it has the right property setting
even if somebody's gonna change it in VB Editor.

[ADezii]

Yes, it can be modified programatically.
It is what I am implementing now.
That's to make sure it has the right property setting
even if somebody's gonna change it in VB Editor.

You can also Password Protect the code in the VB Editor Window if you so desire.