vb WIN32 API获取syslistview行数

开发者技术变现资源聚集地

https://www.baiydu.com

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Const LVM_FIRST = &H1000
Const LVM_GETITEMCOUNT = LVM_FIRST + 4
Private Const WM_SETTEXT As Long = &HC

Private Sub Form_Load()

End Sub

Private Sub win32list_Click_Click()
Dim RootH  As Long
Dim SonListH As Long
Dim listRowCount As Integer
Dim listCloumeCount As Integer
RootH = FindWindow("WTWindow", "巅峰批量卡iPhone新版 V1.9")
SonListH = FindWindowEx(RootH, 0, "SysListView32", vbNullString)
listRowCount = SendMessage(SonListH, LB_GETCOUNT, 0, 0)
MsgBox listRowCount
End Sub