Question

在我的UserForm中，我使用数据库中的数据初始化ListView：

这只是一段代码：

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

如何禁用ListView（VBA）中的复选框

1 个答案: