用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB Listview控件列宽度自动调整

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-03-07 23:50:22

VB 实现自动调整Listview列表控件的列宽度:

VBScript code复制代码
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

Private Const LVM_SETCOLUMNWIDTH = &H1000 + 30
Private Const LVSCW_AUTOSIZE_USEHEADER = -2
   
Private Sub Command1_Click() '调整
    For i = 0 To Listview1.ColumnHeaders.Count
        SendMessage Listview1.hWnd, LVM_SETCOLUMNWIDTH, i, LVSCW_AUTOSIZE_USEHEADER
    Next i
End Sub

 

Tags:调整 自动宽度 Listview 控件 VB

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(5)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 1 条,得分 85 分,平均 85 分) 查看完整评论
[回复] 1游客   打分:85 分  发表时间:2015-03-25
· 谢谢分享