如何禁用 ListView (VBA) 中的复选框

Question

在我的用户窗体中，我使用数据库中的数据初始化了一个 ListView：

这只是一个代码sn-p：

While Not rsRL.EOF
  If rsRL("Status").Value = 1 Then
     .ListItems.Add , , rsRL("ID")
     .ListItems(.ListItems.Count).tag = rsRL("RL_Status")
  Else
    // Here I want to disable the checkbox of the corresponding data            
  End If
  .ListItems(.ListItems.Count).ListSubItems.Add , , rsRL("Name")
  .ListItems(.ListItems.Count).ListSubItems.Add , , rsRL("Datum")
  .ListItems(.ListItems.Count).ListSubItems.Add , , rsRL("Typ")

  If rsRL("RL_Status").Value = True Then
      .ListItems(.ListItems.Count).Checked = True
  End If
  rsRL.MoveNext
Wend

在 else-sector 中，我只想显示不带复选框的 ID 或禁用复选框以使其不可点击！我怎样才能做到这一点？

Answer 1

以下是隐藏复选框并将值设置为默认值（如果您没有卸载表单或用户可以点击它在分析之前是否应该隐藏它没有有效的选择)

CheckBox.Visible = False
CheckBox.Value = False