如何得到listview的总列数与总行数

一个很有趣的问题,因为Listview带有的属性会让我们忽略去思考某些问题。

主要方法使用sendmessage,知道使用哪个常数。


VB自带的浏览器是查找不到,所以可以通过MSDN查或者网站查(http://vbnet.mvps.org/index.html?code/comctl/lvmembers.htm)


思路:通过LVM_GETHEADER获得listview的头的窗口句柄,获得了这个窗口的句柄就可以通过HDM_消息来操作了。

感谢下老大提供的支持.

'*************************************************************************
'**日    期:2006-03-09 22:48:52
'**描    述:如何使用API得到Listview的总列数和总行数
'*************************************************************************
Option Explicit

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 Const LVM_FIRST = &H1000
Private Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
Private Const LVM_GETCOLUMNORDERARRAY = (LVM_FIRST + 59)
Const LVM_GETHEADER = (LVM_FIRST + 31)
Const HDM_FIRST = &H1200
Const HDM_GETITEMCOUNT = (HDM_FIRST + 0)

Private Sub Command1_Click()
    '直接得到总行数
    Debug.Print "总行数是" & Me.ListView1.ListItems.count
    Debug.Print "总列数是" & Me.ListView1.ColumnHeaders.count
End Sub

Private Sub Command2_Click()
    '利用API得到

    Dim i As Long
    Dim j As Long
    Dim n As Long

    i = SendMessage(ListView1.hwnd, LVM_GETHEADER, 0, ByVal 0&)
    j = SendMessage(i, HDM_GETITEMCOUNT, 0, ByVal 0&)
    n = SendMessage(Me.ListView1.hwnd, LVM_GETITEMCOUNT, 1, ByVal 0&)
    Debug.Print "总列数是:" & j
    Debug.Print "总行数是:" & n
End Sub

Private Sub Form_Load()
    Dim i As Integer

    With Me.ListView1
        .View = lvwReport
        .ColumnHeaders.Add , , "a"
        .ColumnHeaders.Add , , "b"

        For i = 1 To 33
            .ListItems.Add , , i
            .ListItems(i).SubItems(1) = i + 1
        Next
    End With
End Sub

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 2
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 2

打赏作者

daisy8675

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值