如何锁定列表视图中的检查项目

Question

代码很完美，但我如何才能在列表视图中锁定检查项目（仅需要的项目）？

        lvFees.Columns.Add("Fee", 120)
    lvFees.Columns.Add("Amount", 76)
    connect()
    rec.Open("select * from tablePayments where sem='" & cboSem.Text & "'", con, 3, 3)
    If rec.RecordCount <> 0 Then
        Dim i As Integer = 0
        Do Until rec.EOF
            lvFees.Items.Add(rec("payname").Value)
            lvFees.Items(i).SubItems.Add(rec("amount").Value)
            If rec("paytype").Value = "REQUIRED" Then ' the paytype has two options, the "REQUIRED" and OPTIONAL.
                lvFees.Items(i).Checked = True
            End If
            rec.MoveNext()
            i = i + 1
        Loop
    End If
    rec.Close()
    con.Close()

我想锁定所有必需项目的检查，同时让用户检查和取消选中可选项目

Answer 1

我确信有实现此目的的较低级别的方法，例如通过继承 ListView 类并覆盖它的某些行为，但对于更简单的方法，您可以简单地强制 ItemChecked 中的值事件。您可以使用列表中每个项目的Tag 属性来跟踪其“锁定”值。例如，如果你加载了一个ListView 控件，其中包含如下三个项目：

ListView1.Items.Add("Unlocked")
ListView1.Items.Add("Locked On").Tag = True
ListView1.Items(1).Checked = True
ListView1.Items.Add("Locked Off").Tag = False

然后将这样的代码放入ItemChecked事件处理程序中：

Private Sub ListView1_ItemChecked(sender As Object, e As ItemCheckedEventArgs) Handles ListView1.ItemChecked
    If e.Item.Tag IsNot Nothing Then
        e.Item.Checked = DirectCast(e.Item.Tag, Boolean)
    End If
End Sub

这使得用户可以更改第一项的复选框，但其他两项被锁定在各自的状态。