[已解决]获取ListView1.ColumnHeaders的宽值.......求助

80013025

未拖动前的状态
托拉后的状态

附件： Archive.zip (104.33 KB, 下载次数: 13)

2016-4-5 22:47 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

领风飞翔

2016-4-6 10:41

1. Private Sub ListView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
   
2. TextBox1.Value = ListView1.ColumnHeaders.Item(1).Width
   
3. TextBox2.Value = ListView1.ColumnHeaders.Item(3).Width
   
4. TextBox3.Value = ListView1.ColumnHeaders.Item(2).Width
   
5. TextBox4.Value = ListView1.ColumnHeaders.Item(4).Width
   
6. End Sub

复制代码

窗体.Listview控件中宽值获取.rar (33.43 KB, 下载次数: 17)

2016-4-6 10:41 上传

点击文件名下载附件
通过鼠标在listview1移动事件触发。

跳转到最佳答案楼层

领风飞翔

1. Private Sub ListView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
   
2. TextBox1.Value = ListView1.ColumnHeaders.Item(1).Width
   
3. TextBox2.Value = ListView1.ColumnHeaders.Item(3).Width
   
4. TextBox3.Value = ListView1.ColumnHeaders.Item(2).Width
   
5. TextBox4.Value = ListView1.ColumnHeaders.Item(4).Width
   
6. End Sub

复制代码

窗体.Listview控件中宽值获取.rar (33.43 KB, 下载次数: 17)

2016-4-6 10:41 上传

点击文件名下载附件
通过鼠标在listview1移动事件触发。

80013025

领风飞翔 发表于 2016-4-6 10:41
通过鼠标在listview1移动事件触发。

厉害！！谢谢您！