VBA窗体Listview控件完全教程

ivccav

10307951261 发表于 2019-1-17 20:31
谢谢分享，收藏了

不客气，相互学习。VSFlexgrid控件比Listview更强大好用：
http://club.excelhome.net/thread-1454440-1-1.html

lkj23hg6

ivccav老师您好！我根据您的代码，想把“鼠标显示所在行列”改为“双击获取值”，代码如下：
Public p1, p2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type LVHITTESTINFO
    pt As POINTAPI
    flags As Long
    iItem As Long
    iSubItem As Long
End Type
Private Const LVM_FIRST = &H1000
Private Const LVM_SUBITEMHITTEST = (LVM_FIRST + 57)

Private Sub ListView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
    p1 = x:    p2 = y
    Debug.Print p1 & "!" & p2
End Sub


Private Sub ListView1_MMove(ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
    Dim intRow%, intCol%
    Dim lvhti As LVHITTESTINFO
    lvhti.pt.x = x: lvhti.pt.y = y
    If SendMessage(ListView1.hwnd, LVM_SUBITEMHITTEST, 0, lvhti) <> -1 Then
        intRow = lvhti.iItem + 1
        intCol = lvhti.iSubItem + 1
        If intCol > 1 Then
            Debug.Print 1
        Else
            Debug.Print 1

        End If
    End If
End Sub

Private Sub ListView1_DblClick()
    ListView1_MMove x, y
End Sub
双击无效，好像P1，P2获取不到X,Y的值，请问是什么原因呢，应该怎么改，谢谢！

陈功

好好学习中

wowo000

尊敬的ivccav老师：老师又得劳烦打扰您了，求助，数据表里的数据先去重在ListView显示，然后再可以进行模糊查询，恳请解决。ListView显示数据按单号已去重显示了，就差不能进行模糊关键字查询了。

ivccav

wowo000 发表于 2019-4-7 10:44
尊敬的ivccav老师：老师又得劳烦打扰您了，求助，数据表里的数据先去重在ListView显示，然后再可以进行模 ...

ListView1先去重显示再模糊查询.zip (226.87 KB, 下载次数: 260)

2019-4-7 14:42 上传

点击文件名下载附件

wowo000

衷心谢谢您，尊敬的ivccav老师！！！！

用心修炼

厉害啊，版主，要好好学习了

LiYoona

请教一下老师，在不同的电脑上，Listview控件容易丢失，这个有办法解决吗，每次都得重新去画一个太麻烦

ivccav

LiYoona 发表于 2019-4-22 16:07
请教一下老师，在不同的电脑上，Listview控件容易丢失，这个有办法解决吗，每次都得重新去画一个太麻烦

把大家的版本都统一，就可以不用画了。重画也只画Listview，几秒钟的事。

或者让大家都安装VSFlexgrid吧，比Listview强大很多：

http://club.excelhome.net/thread-1454440-1-1.html

guski216

留个足印，