敬业的IT人 互联网 佚名 2008-1-8 16:39:50

·在(CListView)列表视图中添加右键菜单
·C#中加强ListView控件的功能
·使用treeview和listview显示数据库的数
·自动调整listview标题头宽度的二种方法
·演示listview控制的例子
·VB.NET中LISTVIEW排序
·演示使用listview控制, 作出资源管理器
·如何制作平面式的listview列头
·将listview中显示出来的记录拖到treevi
·FileView ActiveX 控件允许你在应用程

在listview 控件标题上添加图标的模块 （VB） '以下添加到模块中．
调用很简单，直接看好了．
Private Type LVCOLUMN
    mask As Long
    fmt As Long
    cx As Long
    pszText As String
    cchTextMax As Long
    iSubItem As Long
    iImage As Long
    iOrder As Long
    End Type


Declare Function SendMessageColumn Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As Any) As Long
    Const LVM_FIRST = &H1000
    'ListView Column Header constants
    Const LVCF_FMT = &H1
    Const LVCF_WIDTH = &H2
    Const LVCF_TEXT = &H4
    Const LVCF_SUBITEM = &H8
    Const LVCF_IMAGE = &H10
    Const LVCF_ORDER = &H20
    '
    Const LVCFMT_LEFT = &H0
    Const LVCFMT_RIGHT = &H1
    Const LVCFMT_CENTER = &H2
    Const LVCFMT_JUSTIFYMASK = &H3
    Const LVCFMT_IMAGE = &H800
    Const LVCFMT_BITMAP_ON_RIGHT = &H1000
    Const LVCFMT_COL_HAS_IMAGES = &H8000

Public Sub ColumnHeaderSetIcon(LView As ListView, Column As ColumnHeader, Img As ListImage)
    Dim col As LVCOLUMN
    Dim ret As Long
    col.mask = LVCF_FMT Or LVCF_IMAGE
    col.fmt = LVCFMT_LEFT Or LVCFMT_IMAGE Or LVCFMT_COL_HAS_IMAGES
    col.iImage = Img.Index - 1
    ret = SendMessageColumn(LView.hWnd, LVM_FIRST + 26, Column.Index - 1, col)
End Sub
进入讨论组讨论。

最新文章

自动调整listview标题头宽度的二种方法[01-08]

ListView控件搜索函数(VB)[01-08]

vi或者vim文件加密和乱码的处理[01-08]

如何使用sys用户remove其他用户的job[01-08]

完美的数据库PostgreSQL7.4的安装[01-08]

MFCDAO类和MFCODBC类：我使用哪个类集？[01-08]

相关文章

带你轻松接触Sybase备份软件的插件模块[01-07]

通用权限管理模块的设计与实现[01-04]

Win Vista系统的后Windows时代：模块化[01-03]

Linux内核模块和驱动的编写[01-02]

Linux系统Apache服务的信息查看模块介绍[01-02]

StorageTek同HP强强联合 模块化存储助力[01-02]