| マルチセレクト・リストボックスの選択解除 |
|
対象バージョン : 97, 2000, 2002, 2003
最終更新日 : 2005/04/25
（オリジナル作成日：1997/02/20）
概 要
MultiSelect/複数選択リストボックスで、複数選択された値を解除する方法です。
解 説
リストボックスのコントロール名を Lstbox と仮定します。
●ItemsSeleted コレクション、Selected プロパティを使用する方法
Dim vItem As Variant
Dim ctl As Control
Set ctl = Me!Lstbox
For Each vItem In ctl.ItemsSelected
ctl.Selected(vItem) = False
Next
●RowSource を書き換える方法
Me!Lstbox.RowSource = Me!LstBox.RowSource
補 足
RowSource を書き換える方法は、RowSource に大きなテーブル等を指定している場合、動作が鈍いかもしれません。値リスト等少量の表示に有効だと思います。
改訂履歴
