取得LISTBOX 行数 VB问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:49:54
用SENDMESSAGE 取得外部一个程序里的LISTBOX的行数.
要求帖OK的代码.

一小时上来视察,满意散分。

Global Const WM_USER = &H400
Global Const LB_GETCOUNT = (WM_USER + 12)

Public Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

Private Sub Command1_Click()
Dim Count As Long
Count = SendMessageBynum&(Listhwnd, LB_GETCOUNT, 0, 0)
End Sub

附带奉送 SDK API 中 和ListBox相关的消息：
LB_ADDFILE
LB_ADDSTRING
LB_DELETESTRING
LB_DIR
LB_FINDSTRING
LB_FINDSTRINGEXACT
LB_GETANCHORINDEX
LB_GETCARETINDEX
LB_GETCOUNT
LB_GETCURSEL
LB_GETHORIZONTALEXTENT
LB_GETITEMDATA
LB_GETITEMHEIGHT
LB_GETITEMRECT
LB_GETLOCALE
LB_GETSEL
LB_GETSELCOUNT
LB_GETSELITEMS
LB_GETTEXT
LB_GETTEXTLEN
LB_GETTOPINDEX
LB_INITSTORAGE
LB_INSERTSTRING
LB_ITEMFROMPOINT
LB_RESETCONTENT
LB_SELECTSTRING
LB_SELITEMRANGE
LB_SELI