2つの異なるリストボックスの位置の同期をとるには？ (ID:90915)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たびたびの質問失礼致します。 2つのリストボックスの同期を取りたいのですが 上手くいきません。 以下に詳細とソースを記載致します。 リストA：ファイル名格納 リストB：リストAにて表示しているファイルのタイムスタンプ Private Sub リストA_Click() Me.リストB.ListIndex = Me.リストA.ListIndex Me.リストB.TopIndex = Me.リストA.TopIndex End Sub Private Sub リストB_Click() Me.リストA.ListIndex = Me.リストB.ListIndex Me.リストA.TopIndex = Me.リストB.TopIndex End Sub 上記のようなコーディングしており、 リストボックスのプロパティ値である【MultiSelect】が 【０−なし】の場合は、問題なく動作しておりました。 しかし、現状リストボックスは、Ctrlキー等の使用時に 複数選択できるようにするため【２−拡張】へ プロパティ値を変更致しました。 すると、動作しなくなりました。 そこで、Clickイベントではなく、MouseDownイベントに 上記ソースをコーディング致しました。 引数に、Shiftがあり、Ctrlキーを押した場合は、【１】 Shiftを押した場合は、【２】が入っておりました。 上記引数等を利用してどうにかならないかと検討したのですが わかりませんでした。 ご存知の方がいらっしゃいましたら アドバイスを頂きたいと思います。 以上、よろしくお願いいたします。 【Shift As Integer】のShift