2

リスト ボックス内の 1 つの項目のプロパティを変更したい。私は現在、ユーザーにリスト ボックスからアイテムを選択させ、それを処理用のパラメーターとして渡します。リストからアイテムを削除したり、さらに良いことに、フォントを変更して、どのアイテムを処理する必要があり、どのアイテムがすでに完了しているかを確認できるようにしたいと考えています。

次のコードがあります。

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

または、フォントを変更して、どの項目を処理する必要があり、どの項目が既に完了しているかを確認できるようにすることもできます。

どのアイテムが処理されたかを確認したい場合は、このオプションを使用できます。

Listbox をチェックボックス オプション付きの MultiSelect リストボックスにします。スナップショットを見る

ここに画像の説明を入力

このタイプのリストボックスを取得するには、設計時または実行時にプロパティを設定できます。例えば

設計時間

ここに画像の説明を入力

実行時間

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