专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VB Dotnet

怎么定制datagridview控件的右键快捷菜单

发布时间:2011-06-23 15:57:27 文章来源:www.iduyao.cn 采编人员:星星草
如何定制datagridview控件的右键快捷菜单?
当焦点位于datagridview控件上的一单无格上时,用右键快捷菜单的复制\粘贴\插入一行等等功能,请问这右键快捷菜单如何定制啊?能给出示例代码以供拜读最好,谢谢高手相助!!!

------解决方案--------------------
菜单也是窗体,没有什么,自定义一个菜单式窗体,漂亮到什么程度你自己看着来,
然后再另一个datagridview上右键的时候弹出来就行了,剩下的操作就是,菜单项目鼠标按下的操作了,举个简单的例子
一个窗体,我用4个标签作的菜单
Private Sub Label_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Dim lb As Label = CType(sender, Label)
lb.BackColor = Color.White
End Sub
Private Sub Label_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim lb As Label = CType(sender, Label)
lb.BackColor = Color.Blue
End Sub
Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each ctr As Control In Me.Controls
If ctr.GetType.Name = "Label " Then
AddHandler ctr.MouseMove, AddressOf Label_MouseMove
AddHandler ctr.MouseLeave, AddressOf Label_MouseLeave
End If
另一个窗体,在DATAGRIDVIEW上右键时弹出菜单
Private Sub DataGridView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim F5 As New Form5
F5.Location = New Point(。。。这里要注意的是动态的计算窗体弹出的位置)
F5.Show()
End If
End Sub
Next
End Sub

友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: