| 投稿日 | ： 2003/04/24(Thu) 15:40 |
| 投稿者 | ： batchman |
| Ｅメール | ： batchman@ae.wakwak.com |
| ＵＲＬ | ： |
| タイトル | ： Re^3: LISTVIEWのColumnHeaderの高さの取得方法 |
ごめんなさい．．．．完璧に動作しないソースを提示してしまいました。
アイテムでクリックしてからアイテム以外の作業領域でダブルクリックすると、
ダブルクリック動作になってしまいます。
以下が正しく動作するコードです。
Private lngItemIndex As Long
Private Sub ListView1_Click()
If lngItemIndex = -1 Then
lngItemIndex = ListView1.SelectedItem.Index
Else
lngItemIndex = 0
End If
End Sub
Private Sub ListView1_DblClick()
If lngItemIndex Then MsgBox Format$(lngItemIndex)
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
lngItemIndex = -1
End Sub