リストビューの反転表示について

解決

あや  2008-03-13 14:04:57  No: 139271  IP: 192.*.*.*

VB6を使用しています。

リストビューの初期表示状態で、任意の行を青色の反転表示に
したいのですが、どうしたらよいのでしょうか。
以下を試してみたのですが、青色ではなくうすいグレーで
一応選択されているようには見えます。

ListView1.ListItems(1).Selected = True
ListView1.DropHighlight = ListView1.SelectedItem

ですが、どうしても青色の反転表示にできません。
よろしくおねがいいたします。

編集 削除
やじゅ  2008-03-13 15:57:17  No: 139272  IP: 192.*.*.*

Private Sub Form_Load()
'フォーカスを無くした場合、灰色反転表示しない様に設定。
ListView1.HideSelection = True
End Sub
Private Sub ListView1_LostFocus()
'フォーカスを無くした場合、選択アイテムを反転表示する。
ListView1.DropHighlight = ListView1.SelectedItem
End Sub
Private Sub ListView1_GotFocus()
'フォーカスを得た場合、反転表示を解除する。
ListView1.DropHighlight = Nothing
End Sub

編集 削除
あや  2008-03-13 18:11:56  No: 139273  IP: 192.*.*.*

やじゅ様

教えていただいた通りの記述で、解決しました。
ありがとうございました。

編集 削除