敬业的IT人 >> 数据库 >> 其他数据库 >> 自动调整listview标题头宽度的二种方法

自动调整listview标题头宽度的二种方法

敬业的IT人 互联网 佚名 2008-1-8 16:39:34
    ·在(CListView)列表视图中添加右键菜单
    ·C#中加强ListView控件的功能
    ·使用treeview和listview显示数据库的
    ·演示listview控制的例子
    ·VB.NET中LISTVIEW排序
    ·演示使用listview控制, 作出资源管理
    ·在listview 控件标题上添加图标的模块
    ·ASP.NET3.5的ListView与CSS Friendly
    ·将listview中显示出来的记录拖到treev
    ·如何制作平面式的listview列头
自动调整listview标题头宽度的二种方法
方法一：
'*******************************
'用法:Call ResizeListView(ListView1)
'*******************************
Public Sub ResizeListview(objListView As ListView)
    Dim dSecWidth As Double
    Dim iLoop As Integer     With objListView
         dSecWidth = (.Width / .ColumnHeaders.Count) - 30
         For iLoop = 1 To .ColumnHeaders.Count
          .ColumnHeaders(iLoop).Width = dSecWidth
          '// DoEvents [ Optional, don't really need it ]
         Next iLoop
    End With
End Sub
方法二（使用API):
'**********************
'API声明
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LVM_FIRST = &H1000 '函数
Public Sub AutoSizeColumnHeader(LView As ListView, Column As ColumnHeader, ByVal SizeToHeader As Boolean)
    Dim l As Long
    If SizeToHeader Then l = -2 Else l = -1
    Call SendMessage(LView.hWnd, LVM_FIRST + 30, Column.Index - 1, l)
End Sub  
进入讨论组讨论。
粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email：me1228#tom.com