禁用列表框VB6中的选定项目

Question

我正在编写代码来禁用LISTBOX中的选定项目。 即我想在列表中显示项目，但不希望用户选择它。 如下图所示。或link中的类似图片。 在VB6中有可能吗？ 请帮忙。

Answer 1

尝试切换到ListView控件，然后将特定的ListItems设置为Ghosted。还有其他第三方列表或网格控件，尽管VB6控件现在越来越难以找到。

祝你好运！

Answer 2

如果没有严肃的所有者绘制乐趣，您无法使用ListBox执行此操作。但是，您可以使用列表视图控件来执行此操作。

我对此最接近的是更改已禁用列表项的前景色和截取的项单击事件，以便取消选中该项。列表项的Tag属性用于存储“已禁用”状态。

我应该提到我无法获得此代码以防止在鼠标按钮完成时“选择”该项目。要做到这一点，你必须做一些子类化。

应将以下类“ListViewWrapper”添加到项目中：

Option Explicit

Private Const m_ksDisabled                  As String = "D"

Private WithEvents m_oListView              As ListView

Public Sub Initialise(ByRef the_oListView As ListView)

    Set m_oListView = the_oListView

End Sub

Public Property Let ListItemEnabled(ByVal the_oListItem As ListItem, ByVal the_bEnabled As Boolean)

    If Not the_oListItem Is Nothing Then
        If the_bEnabled Then
            the_oListItem.Tag = Empty
            the_oListItem.ForeColor = vbWindowText
        Else
            the_oListItem.Tag = m_ksDisabled
            the_oListItem.ForeColor = vbGrayText
        End If
    End If

End Property

Public Property Get ListItemEnabled(ByVal the_oListItem As ListItem) As Boolean

    If Not the_oListItem Is Nothing Then
        ListItemEnabled = (the_oListItem.Tag <> m_ksDisabled)
    End If

End Property

Private Sub m_oListView_ItemClick(ByVal Item As MSComctlLib.ListItem)

    If Item.Tag = m_ksDisabled Then
        Set m_oListView.SelectedItem = Nothing
    End If

End Sub

它应该像这样使用：

Private m_oListViewWrapper              As ListViewWrapper

Private Sub Form_Load()

    Set m_oListViewWrapper = New ListViewWrapper
    m_oListViewWrapper.Initialise ListView

End Sub

Private Sub Command_Click()

    With m_oListViewWrapper
        .ListItemEnabled(ListView.SelectedItem) = Not .ListItemEnabled(ListView.SelectedItem)
    End With

End Sub