说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

快速选择里List全部项目-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
快速选择里List全部项目-VB资料

我们在使用 List 控件时,经常需要全部选择其中的项目,在项目较少时,我们可以逐项设置 Selected 来选择全部的项目,但当项目较多时,这样做就比较费时,其实,我们可以用 API 函数来简单实现此功能:
Dim nRet As Long
Dim bState as Boolean
bState=True
nRet = SendMessage(lstList.hWnd, LB_SETSEL, bState, -1)
函数声明:
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" ( ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_USER = &H400
Public Const LB_SETSEL = (WM_USER + 6)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘