VB.net中向listview中添加右键菜单

mck477 2011-04-14 10:31:45
向listview中添加右键菜单很容易,可是我现在只想在点击右键时,在listview第一列和第二列才显示右键菜单,其余地方不显示右键菜单
...全文
394 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
mck477 2011-05-04
  • 打赏
  • 举报
回复
自己已经解决了,还是谢谢支持,结贴
可爱的小莱 2011-04-14
  • 打赏
  • 举报
回复
在右键菜单的Opening()事件中,判断当前鼠标的位置是否在指定区域,然后设置 .Visible = False 即可.
沐NeMo 2011-04-14
  • 打赏
  • 举报
回复
 
Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
Me.ContextMenuStrip1.Enabled = False
If Me.ListView1.SelectedItems.Count > 0 Then
Select Case Me.ListView1.SelectedItems(0).Text
Case Me.ListView1.Items(0).Text, Me.ListView1.Items(1).Text
Me.ContextMenuStrip1.Enabled = True
End Select
End If
End Sub
Tosp2012 2011-04-14
  • 打赏
  • 举报
回复
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
With ListView1
Dim i As Int16
For i = 0 To .SelectedItems.Count - 1
Select Case Trim(.SelectedItems(i).Text)
Case "本機磁碟(C:)", "本機磁碟(E:)"
.ContextMenu = ContextMenu1
Case Else
.ContextMenu = Nothing
End Select
Next
End With
End Sub

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧