投稿日 | : 2002/10/13(Sun) 21:50 |
投稿者 | : NAO★ |
Eメール | : |
URL | : |
タイトル | : Re: リストビューのチェックボックスをグレー表示 |
ひょっとしたらちゃんとした方法があるのかもしれませんが、
参考として、CheckBox の代わりにSmallIcomを使って描画するというのを
挙げておきます。
要するにアイコンを入れ替えることでチェックボックスを表現する
というものです。
Checked プロパティだとTrueかFalseの値しか取れませんが
アイコンならアイコンの数だけ状態がもてますので、他にも応用が利きます
'ImageListコントロールにアイコンを登録して
'ListViewのプロパティページで「イメージリスト」タブの
'「小さいアイコン」にImageListを登録しておく
'インデックス1 押されていない状態のアイコン
'インデックス2 押されている(チェックの入っている)状態のアイコン
'インデックス3 無効な状態(灰色)のアイコン
Private Sub Form_Load()
Dim i As Integer
ListView1.View = lvwSmallIcon 'スモールアイコン形式で表示
With ListView1.ListItems
For i = 1 To 100
.Add , , "test" & i, , (i Mod 3) + 1
Next
End With
End Sub
Private Sub ListView1_Click()
Dim i As Integer
With ListView1.SelectedItem
i = .SmallIcon
If i = 3 Then '無効
Exit Sub
Else
.SmallIcon = (i Mod 2) + 1 'アイコンの入れ替え
End If
End With
End Sub