lock checkbox in Listview

[mutley]

Hi

How can I to lock checkbox in listview, for to user, The user can run in scrollbar, but he can not to check or uncheck when frame3 is disabed.

I tried code below

Private Sub lvwGrupoProduto_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  If Frame3.Enabled = False Then
     If Item.Checked = True Then
         Item.Checked = False
     Else
         Item.Checked = True
     End If
         
     
  End If
End Sub

But when I read data from table I want to check using code, I thought in to use before read code from table put

   frame.enabled = true

Is there other way ?

[Siddharth Rout]

'~~> Adding Sample Data to Listview
Private Sub Form_Load()
    Dim column_header As ColumnHeader, list_item As ListItem

    '~~> Create the column headers.
    Set column_header = ListView1.ColumnHeaders.Add(, , "Number", 1000)

    '~~> Start with report view.
    ListView1.View = lvwReport
    ListView1.Checkboxes = True

    Set list_item = ListView1.ListItems.Add(, , "123")
    Set list_item = ListView1.ListItems.Add(, , "456")
    Set list_item = ListView1.ListItems.Add(, , "850")
    Set list_item = ListView1.ListItems.Add(, , "801")
    
    For i = 1 To ListView1.ListItems.Count
        '~~> Set Tag Property
        ListView1.ListItems(i).Tag = "L"
    Next
End Sub

'~~> Preventing Checking/Unchecking
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    If Item.Tag = "L" Then Item.Checked = False
End Sub

[akhileshbc]

mutley,

Your code will do not allow Checking/Unchecking when Frame3 is disabled.
And also, when you check/uncheck the item via code, it is possible even if the Frame3 is disabled.

For example:

Option Explicit

Private Sub Form_Load()
    '~~~ Sample data
    Dim i As Long
    
    For i = 1 To 10
        ListView1.ListItems.Add , , i
    Next
    
    '~~~ We are disabling Frame3 for testing. After form loads, click "Command2" to see the effect.
    Frame3.Enabled = False
End Sub

'~~~ Your actual code, which works fine.
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  If Frame3.Enabled = False Then
     If Item.Checked = True Then
         Item.Checked = False
     Else
         Item.Checked = True
     End If
  End If
End Sub

Private Sub Command1_Click()    '~~~ This button will enable/disable Frame3
    Frame3.Enabled = Not Frame3.Enabled
End Sub

Private Sub Command2_Click()    '~~~ This button will check an item(item number 2). Click this button after Form loads. ie, when Frame3 is disabled.
    ListView1.ListItems(2).Checked = True
End Sub

So, I think your code is perfect for what you are asking. If I interpret your question in the wrong way, please make it clear...

[Lee Chetwynd]

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  If Frame3.Enabled = False Then
         Item.checked = not Item.checked
  End If
End Sub

Would be a concise way of doing it.

[gunapriyan]

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  If Frame3.Enabled = False Then
         Item.checked = not Item.checked
  End If
End Sub

Would be a concise way of doing it.

Sir, I am using the following code for loading the status of Checkbox;

If (.Fields("LPrint") = True) Then
                            ListView1.ListItems(k).Checked = True
                            'ListView1.SelectedItem.Selected = False
                            ListView1.ListItems(k).Tag = "L"
                        Else
                            ListView1.ListItems(k).Checked = False
                        End If

In next load, the particular checkbox should be disabled. So i am using the following code.

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    If Item.Tag = "L" Then Item.Checked = False
End Sub

But Nothing happened. still i can check and uncheck the specific checkbox.

My Actual need is ;

I have a listview that is being populated via a database. The first time i have to check the checkbox and value will be updated. When next loading, the listview checkbox is also checked based on the status of a database field. But it should be disabled. The user will focus next checkbox only. Please help me.

Thanks