1

ListBox（ListBox4）で選択したアイテムを処理するコマンドボタンがあります。そのコマンドのClick（）プロシージャですべての項目の選択を解除することはできますが、ユーザーがリストボックスをクリックした場合は、再度選択する前に、リストボックスのすべての項目の選択を解除したいと思いました。

私は次のようなコードを持っていますが、呼び出されることはないようです：

Private Sub ListBox4_Click()
If Apply_Format_Occurred Then
For i = 0 To ListBox4.ListCount - 1
         ListBox4.Selected(i) = False
Next i
End Sub

これを行うには、外部コマンドなどが必要ですか？私は私が説明したようにそれができることを望んでいました。

どんな助けでも大歓迎です！

ありがとう、

ラス

4

2 に答える 2

0

ListBox の GotFocus イベントを使用して、ListBox がユーザーからフォーカスを受け取ったときにコードが実行されるようにすることができます。
ボタンと ListBox のコーディング例を次に示します。

Dim Apply_Format_Occurred As Boolean

Private Sub CommandButton1_Click()
    '<other processes>
    Apply_Format_Occurred = True
End Sub

Private Sub ListBox4_Change()
    If Apply_Format_Occurred Then
        For i = 0 To ListBox4.ListCount - 1
             ListBox4.Selected(i) = False
        Next i
        Apply_Format_Occurred = False
    End If
End Sub
于 2013-03-08T22:42:45.023 に答える