展开全部
代码如下：
Private Sub Form_Load()
'将listview宽度平均赋值给列宽，后面的30=2pixels，为补差避免出现横向滚动条。
For i = 1 To ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders(i).Width = ListView1.Width / ListView1.ColumnHeaders.Count - 30
Next
End Sub
Private Sub Form_Load()
'将listview宽度平均赋值给列宽，后面的30=2pixels，为补差避免出现横向滚动条。
For i = 1 To ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders(i).Width = ListView1.Width / ListView1.ColumnHeaders.Count - 30
Next
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
提问者：匿名
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
