窗体中的右键菜单功能

一指禅62 · 发表于 2016-3-11 16:20

本帖最后由一指禅62 于 2016-3-16 12:54 编辑

窗体中的右键菜单功能.zip (18.85 KB, 下载次数: 1688)

lhsh36183 · 发表于 2016-3-11 16:57

第一次沙发，谢谢分享你的精品。

afdadas · 发表于 2016-3-11 21:37

谢谢分享！！

aman1516 · 发表于 2016-3-11 22:42

谢谢分享，好好学习

一指禅62 · 发表于 2016-3-12 10:00

26827557 · 发表于 2016-3-12 14:04

你好，老师。你的附件测试时还是有些不对，当在报表控件空白处右键时也能弹出删除，而不能对应工作表的行了，你看看代码是不是要改写啊

一指禅62 · 发表于 2016-3-12 16:13

本帖最后由一指禅62 于 2016-3-16 12:49 编辑

26827557 发表于 2016-3-12 14:04
你好，老师。你的附件测试时还是有些不对，当在报表控件空白处右键时也能弹出删除，而不能对应工作表的行了 ...

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

复制代码

一指禅62 · 发表于 2016-3-12 16:40

26827557 发表于 2016-3-12 14:04
你好，老师。你的附件测试时还是有些不对，当在报表控件空白处右键时也能弹出删除，而不能对应工作表的行了 ...

感谢您的灼见！

26827557 · 发表于 2016-3-12 18:01

一指禅62 发表于 2016-3-12 16:40
感谢您的灼见！

不客气老师，我也要谢谢你啊！我想问下你用“Set .SmallIcons = ImageList1 '借助ImageList控件图片调整行高”
而ImageList1是40*40，我怎么改不了别的值呢？难道就这个是唯一数值吗？这样的话 listview行高岂不是也是有所限定吗？

一指禅62 · 发表于 2016-3-12 20:16

26827557 发表于 2016-3-12 18:01
不客气老师，我也要谢谢你啊！我想问下你用“Set .SmallIcons = ImageList1 '借助ImageList控件图片调整 ...

重新设定图片大小，需要先移除图片，再设置图片大小，后添加图片。

这是图片

1×25.rar (123 Bytes, 下载次数: 175)

		自动登录	找回密码
密码			免费注册

[转帖] 窗体中的右键菜单功能