2

我想更改列表框中单个项目的属性。我目前让用户从列表框中选择一个项目，然后将其作为参数传递以进行处理。我希望能够从列表中删除项目，或者更好的是，更改字体以便他们可以看到哪些项目必须处理，哪些项目已经完成。

我有以下代码：

Sub updateLaunchScreen_CrossDayOff()

Dim i As Long

     With ReadingsLauncher

        With .dayListBox
            For i = 0 To .ListCount - 1
                If .Selected(i) Then
                    .Font.Strikethrough = True
                End If
            Next i
        End With

    End With

End Sub

但是，这会更改列表中的每个项目。

我已经用谷歌搜索了这个问题，但无法找到与更改列表框中单个列表项的属性相关的任何内容。

任何帮助将不胜感激。

4

1 回答 1

4

我希望能够从列表中删除项目

如果您想删除该项目，那么我建议您这样做

Option Explicit

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex > -1 Then
        ListBox1.RemoveItem (ListBox1.ListIndex)
    End If
End Sub

或者，更好的是，更改字体，以便他们可以看到哪些项目需要处理，哪些项目已经完成。

如果您想查看哪些项目已被处理，则可以使用此选项。

使您的列表框成为带有复选框选项的多选列表框。见快照

在此处输入图像描述

要获得这种类型的列表框，您可以在设计时或运行时设置属性。例如

设计时间

在此处输入图像描述

运行

Private Sub UserForm_Initialize()
    With ListBox1
        .MultiSelect = fmMultiSelectMulti
        .ListStyle = fmListStyleOption
    End With
End Sub
于 2012-06-08T07:14:56.293 回答