怎么判断当鼠标移动到listview上，当前是那一列。

Question

好像要用sendmessage函数吧，但是找不到那个对应的值呢。。
请教大家帮助。

Answer 1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                            (ByVal hwnd As Long, _
                             ByVal wMsg As Long, _
                             ByVal wParam As Long, _
                             lParam As Any) As LongPrivate Sub list1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lItemIndex = GetCurrIndex(list1,X, Y)
End SubPrivate Function GetCurrIndex(list1 As ListView, X As Single, Y As Single) As Long
    Dim lvhti As LVHITTESTINFO
    Dim lItemIndex As Long
    lvhti.pt.X = X / Screen.TwipsPerPixelX
    lvhti.pt.Y = Y / Screen.TwipsPerPixelY
    lItemIndex = SendMessage(list1.hwnd, LVM_HITTEST, 0, lvhti) + 1
    GetCurrIndex = lItemIndex
End Function
 找到了，这个是获得行的代码，获得列的应该改哪里呢，完全搞不懂这些参数。

Answer 2

http://topic.csdn.net/u/20110110/13/603b30e1-e52a-4c55-951e-84152df20dc8.html请看这个贴。
可以在发帖前先搜搜……

Answer 3

http://topic.csdn.net/u/20110224/04/cd3fdc09-3c4c-4fb0-a5d4-47012ead2905.html?80008顺带问下，他们几个在讨论神马。