リストボックスの選択解除でリストの位置を戻さないようにするには？

解決

じゅん 2005-05-01 10:43:59 No: 89667

WinXP、VB6.0 SP6を使ってます。
チェックボックス付のリストボックス（1画面に入らないのでスクロールバーあり）
があって、あるボタンを押したときに選択を解除したいのですが（チェックはそのままで青い帯だけ解除）

List1.ListIndex = -1

とやると、リストをスクロールしている場合、表示される部分が一番上に戻ってしまいます。
チェックボックスなしの場合は、位置はそのままで解除されるようです。
チェックボックス付のリストボックスで、表示位置を戻さずに選択を解除するにはどうしたらいいのでしょうか？
よろしくお願いいたします。

LESIA 2005-05-01 16:57:25 No: 89668

試してないけど、これではどうでしょうか。

Dim NowTopIndex As Integer

NowTopIndex = List1.TopIndex
List1.ListIndex = -1
List1.TopIndex = NowTopIndex

じゅん 2005-05-01 18:06:18 No: 89669

できました!!
TopIndexなんていうのがあったんですね。
LESIAさん、ありがとうございました。