怎样在Listview标题右边添加图标

2011-06-18 03:13:13 609 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

freshclue 墨衍会员 · AI 创作全网分发关注 + 加入社区

C#中ListView详解 ListView是一个Windows 列表视图控件，该控件显示可用五种不同视图之一显示项的集合阅读详情

使用语句：listview1.ColumnHeaders(Index).Icon = 1 可以在标题上添加图标，但是图标添加到原标题的左边了，怎么能使图标添加到右边？

...全文

ArcGIS高效拆分shp文件：无需依赖属性表的实用技巧本文针对ArcGIS中shp文件因属性表缺失而难以拆分的问题，详细介绍了无需依赖属性表的实用技巧。核心是使用“拆分多部件要素”工具，直接根据图形结构将多个独立但被合并的部件拆分为单个要素，并提供了ArcGIS Pro和ArcMap的操作流程、关键注意事项及拆分后的属性处理方案。阅读详情

freshclue

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

VBAdvisor 2011-06-25

打赏
举报

[Quote=引用 15 楼 freshclue 的回复:]

已经发过去了
[/Quote]
没有收到。
你先将上面的编码拷到bas中，然后再在Form1中引用Microsoft Window Common Controls SP6。在工具栏选中Listview和ListImage，在ListImage中添加Icon：



Private Sub Form_Load()



    ListView1.View = lvwReport

    ListView1.ColumnHeaders.Add , , "A Column", , , 2



    ListView1.ColumnHeaders.Item(ListView1.ColumnHeaders.Count).Icon = 1



Dim Counter as long

    For Counter = 1 To 500

        ListView1.ListItems.Add , , Counter

    Next Counter

End Sub



Private CmdChangeIcon__Click()

  ShowHeaderIcon 1, 2, True, ListView1, True

End Sub

freshclue 2011-06-25

打赏
举报

已经发过去了

VBAdvisor 2011-06-23

打赏
举报

[Quote=引用 13 楼 freshclue 的回复:]

不行的，小箭头图标还是显示在标题的左边，我想要的效果是小箭头图标显示在标题的右边
[/Quote]
你把总个工程传给我。 vbadvisor at gmail.com

freshclue 2011-06-23

打赏
举报

不行的，小箭头图标还是显示在标题的左边，我想要的效果是小箭头图标显示在标题的右边

VBAdvisor 2011-06-22

打赏
举报

在Win7上做的测试。(Win7,VB6/SP6)
Microsoft Window Common Controls SP6

VBAdvisor 2011-06-22

打赏
举报



Private Sub Form_Load()



    ListView1.View = lvwReport

    ListView1.ColumnHeaders.Add , , "A Column", , , 2



    ListView1.ColumnHeaders.Item(ListView1.ColumnHeaders.Count).Icon = 1



Dim Counter as long

    For Counter = 1 To 500

        ListView1.ListItems.Add , , Counter

    Next Counter

End Sub



Private CmdChangeIcon__Click()

  ShowHeaderIcon 1, 2, True, ListView1, True

End Sub

freshclue 2011-06-22

打赏
举报

试了一下9楼的这段代码，不起作用啊

pfanlkjtroi 2011-06-21

打赏
举报

实际上就是在ColumnHeader上放了一个位图。详情请仔细看MSDN。

VBAdvisor 2011-06-21

打赏
举报

ShowHeaderIcon 1, 2, True, ListView1, True





Private Const HDF_LEFT            As Long = 0

Private Const HDF_RIGHT           As Long = 1

Private Const HDF_CENTER          As Long = 2

Private Const HDF_CENTER          As Long = 2

Private Const HDF_JUSTIFYMASK     As Long = &H3

Private Const HDF_RTLREADING      As Long = 4

Private Const HDF_IMAGE           As Long = &H800

Private Const HDF_OWNERDRAW       As Long = &H8000&

Private Const HDF_STRING          As Long = &H4000

Private Const HDF_BITMAP          As Long = &H2000

'Private Const HDF_BITMAP_ON_RIGHT As Long = &H1000

Private Const HDF_CHECKBOX        As Long = &H40

Private Const HDF_CHECKED         As Long = &H80

Private Const HDF_FIXEDWIDTH      As Long = &H100 ' Can't resize the column; same as LVCFMT_FIXED_WIDTH

Private Const HDF_SPLITBUTTON     As Long = &H1000000 'Column is a split button; same as LVCFMT_SPLITBUTTON



Private Const HDF_SORTDOWN As Long = &H400

Private Const HDF_SORTUP As Long = &H200

Private Type HDITEMW

    Mask       As Long

    cxy        As Long

    pszText    As Long

    hbm        As Long

    cchTextMax As Long

    fmt        As Long

    lParam     As Long

    iImage     As Long

    iOrder     As Long

type       As Long ':(?Missing Scope

    pvFilter   As Long

    State      As Long  'WIN32_WINNT >= 0x0600

End Type

Private Const LVM_FIRST                    As Long = &H1000

Private Const LVM_GETHEADER                As Long = (LVM_FIRST + 31)



Private Const HDM_FIRST                    As Long = &H1200

Private Const HDM_GETITEM                  As Long = (HDM_FIRST + 3)

Private Const HDM_SETITEM                  As Long = (HDM_FIRST + 4)



Private Const HDF_BITMAP_ON_RIGHT As Long = &H1000



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ':(?Missing Scope

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



Public Sub ShowHeaderIcon(ByVal colNo As Long, ByVal imgIconNo As Long, ByVal bShowImage As Boolean, _

                           ByVal lvwControl As ListView, Optional alignImageRight As Boolean = True)

    Dim lHeader As Long

    Dim HD As HDITEMW

    Dim imageAlignment As Long

    

    ' get a handle to the listview header component

    lHeader = SendMessage(lvwControl.hWnd, LVM_GETHEADER, 0, ByVal 0)

    

    imageAlignment = IIf(alignImageRight, HDF_BITMAP_ON_RIGHT, HDF_BITMAP)

    

    ' set up the structure entries

    With HD

        .Mask = HDI_IMAGE Or HDI_FORMAT

        

        If bShowImage Then          ' show

            .fmt = HDF_STRING Or HDF_IMAGE Or imageAlignment

            .iImage = imgIconNo

        Else

            .fmt = HDF_STRING       ' just string

        End If

        .fmt = .fmt Or GetAlignment(lvwControl.ColumnHeaders(colNo))

    End With

    

    ' modify the header

    Call SendMessage(lHeader, HDM_SETITEM, colNo - 1, HD)

   

End Sub

Private Function GetAlignment(col As ColumnHeader)

    ' Get the columns current alignment

    With col

        Select Case .Alignment

            Case lvwColumnRight

                GetAlignment = HDF_RIGHT

            Case lvwColumnCenter

                GetAlignment = HDF_CENTER

            Case Else

                GetAlignment = HDF_LEFT

        End Select

    End With

End Function

threenewbee 2011-06-20

打赏
举报

难道是 OwnerDraw 的？

请出示源代码。

freshclue 2011-06-20

打赏
举报

各位帮看看，ListView标题上的图标怎么能在标题的右边显示
窗体上添加1个ListView和1个Imagelist控件
窗体代码：
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.ColumnHeaderIcons = ImageList1 'ImageList里面添加两个图标

ListView1.ColumnHeaders.Add Text:="column1"
ListView1.ColumnHeaders.Add Text:="column2", Alignment:=lvwColumnRight
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

Dim index As Integer
Dim i As Integer

index = ColumnHeader.index

With ListView1
For i = 1 To .ColumnHeaders.Count
.ColumnHeaders(i).Icon = 0
If .ColumnHeaders(i).Tag = "" Then
.ColumnHeaders(i).Tag = "1"
End If
Next i

If .ColumnHeaders(index).Tag = "1" Then
.SortOrder = lvwAscending
.ColumnHeaders(index).Icon = 1
.ColumnHeaders(index).Tag = "0"
ElseIf .ColumnHeaders(index).Tag = "0" Then
.SortOrder = lvwDescending
.ColumnHeaders(index).Tag = "1"
.ColumnHeaders(index).Icon = 2
End If

.SortKey = index - 1
.Refresh
End With

End Sub

VBAdvisor 2011-06-20

打赏
举报

Dim uHDI As HDITEMW

uHDI.fmt = HDF_STRING Or Align * -(Column <> 0) Or HDF_BITMAP_ON_RIGHT

'...
'Call SendMessage(m_hHeader, HDM_SETITEMW, Column, uHDI)

cqq_chen 2011-06-19

打赏
举报

你不是已经有源码了吗？好好看，如果不理解你就全用，不就行了...

freshclue 2011-06-18

打赏
举报

freshclue 2011-06-18

打赏
举报

就是这样效果的，http://hi.csdn.net/attachment/201106/18/662859_13083905471N1X.jpg
在网上查了一下，说是需要绘制一个图标才行，有VC的代码，用VB怎么实现啊

jackey 2011-06-18

打赏
举报

都是在左边吧我没见过在文字右边的

怎样在Listview标题右边添加图标

相关推荐