|
楼主 |
发表于 2016-3-12 16:13
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 一指禅62 于 2016-3-16 12:49 编辑
- Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
- Dim iWidth As Single, i%
- If ListView1.ListItems.Count < 1 Then Exit Sub
- If Button = 2 Then
- For i = 1 To ListView1.ColumnHeaders.Count
- iWidth = iWidth + ListView1.ColumnHeaders(i).Width
- Next
- If x * 0.6 < iWidth Then yjcd.ShowPopup
- End If
- End Sub
复制代码
|
|