ListViewをコードで選択状態にした場合、選択行に色をつけるには？

解決

みつん 2004-10-01 04:08:30 No: 116692

VB初心者であります。

コードにてListViewを全選択にしたいのですが、
Selectedの値はTrueになるのですが、通常リストをクリックして
選択したように、選択行の色が変更されません。
きちんと選択されていることがわかるように、選択行の色を
選択済みにしたいのですがどうしてもわかりません。

[現在のコード]
  Dim i As Integer

  With targetListView
    For i = 1 To .ListItems.Count
      .ListItems(i).Selected = True
    Next
    .Refresh
  End With

どなかたアドバイスを頂けないでしょうか？
宜しくお願いします。

なっぱ服 2004-10-01 05:46:54 No: 116693

フォーカスが当たってないだけでは？

Private Sub Command1_Click()
    Dim i As Integer
    With targetListView
        .SelectedItem.Selected = False
        For i = 1 To .ListItems.Count
            .ListItems(i).Selected = True
        Next
        .SetFocus
    End With
End Sub

みつん 2004-10-05 01:37:26 No: 116694

本当でした！
Loadイベント内にて設定していたので、SetForcusが
できない状態でした。
Activateイベント内にてSetFoucuするとちゃんと
選択表示されました。
お恥ずかしいです。本当に助かりました。
ありがとうございました！