在listview 控件标题上添加图标的模块（VB）

最新推荐文章于 2025-10-13 11:07:29 发布

最新推荐文章于 2025-10-13 11:07:29 发布 · 200 阅读

本文介绍了一种在VB中为ListView控件的标题栏添加图标的方法。通过定义LVCOLUMN结构体并使用SendMessageA函数，可以轻松实现图标显示。文章提供了完整的代码示例，帮助开发者快速掌握这一实用技能。

在listview 控件标题上添加图标的模块（VB）

'以下添加到模块中．
调用很简单，直接看好了．
PrivateTypeLVCOLUMN
maskAsLong
fmtAsLong
cxAsLong
pszTextAsString
cchTextMaxAsLong
iSubItemAsLong
iImageAsLong
iOrderAsLong
EndType

DeclareFunctionSendMessageColumnLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
ConstLVM_FIRST=&H1000
'ListViewColumnHeaderconstants
ConstLVCF_FMT=&H1
ConstLVCF_WIDTH=&H2
ConstLVCF_TEXT=&H4
ConstLVCF_SUBITEM=&H8
ConstLVCF_IMAGE=&H10
ConstLVCF_ORDER=&H20
'
ConstLVCFMT_LEFT=&H0
ConstLVCFMT_RIGHT=&H1
ConstLVCFMT_CENTER=&H2
ConstLVCFMT_JUSTIFYMASK=&H3
ConstLVCFMT_IMAGE=&H800
ConstLVCFMT_BITMAP_ON_RIGHT=&H1000
ConstLVCFMT_COL_HAS_IMAGES=&H8000

PublicSubColumnHeaderSetIcon(LViewAsListView,ColumnAsColumnHeader,ImgAsListImage)
DimcolAsLVCOLUMN
DimretAsLong
col.mask=LVCF_FMTOrLVCF_IMAGE
col.fmt=LVCFMT_LEFTOrLVCFMT_IMAGEOrLVCFMT_COL_HAS_IMAGES
col.iImage=Img.Index-1
ret=SendMessageColumn(LView.hWnd,LVM_FIRST+26,Column.Index-1,col)
EndSub