vb.net的右键控件 vba 右键菜单

vb.net紧急：在vb.net中如何制作右键菜单呢？

添加一个ContextMenuStripvb.net的右键控件，设计好菜单后vb.net的右键控件，点你要弹出这个菜单vb.net的右键控件的控件，将ContextMenu属性改成你要的菜单

相关问答

Q1: VB.NET中右键出现新窗口的问题

上面的回答不完美，在窗口的任意地方右击都会弹出窗口，所以要力求完美，必须先判断红框的坐标，在红框范围内再弹出窗口 If e.Button = Windows.Forms.MouseButtons.Right Then If e.X 153 And e.X 601 And e.Y 1 And e.Y 25 Then '红框的坐标范围，在这个范围内右击有效（获取的技巧见下面） Form2.ShowDialog() End If End If 小技巧： 如何获取你限定的红色框的范围？ 用mousemove事件和一个label控件做测试： Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove Label1.Text = e.X "=" e.Y End Sub 记录下坐标即可！

Q2: vb.net为excel增加右键，并关联过程？

需要设置一个右键菜单单击的类，然后用集合把所有菜单事件组合起来。百度一下VB6，MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1)，基本代码都有了

Q3: vb.net如何写在form1上右键被单击的事件?

如果是窗体右键单击事件vb.net的右键控件，是

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

If e.Button = Windows.Forms.MouseButtons.Right Then

'这里写vb.net的右键控件你要的代码

End If

End Sub

但是如果只是右键单击就弹出菜单的话没必要这样vb.net的右键控件，只需要在窗体上放置一个ContextMenuStrip控件，然后在Form的ContextMenuStrip属性中绑定这个控件就可以vb.net的右键控件了。

Q4: 自已用 VBNET 2010 做的控件，想添加一个开发模式下的右键菜单如何做？

那个绝对不是自定义控件，这东西叫  ContextMenuStrip，把背景和图片处理一下，然后右键显示，在鼠标位置显示代码如下：

        private void C1FlexGrid1_MouseDown(object sender, MouseEventArgs e)

        {

            if (MouseButtons == MouseButtons.Right)

            {

                Point p = new Point();

                p.X = e.Location.X + this.Location.X + 20;

                p.Y = e.Location.Y + this.Location.Y + 150;

                this.contextMenuStrip1.Show(p);

            }

        }

你那个第三方控件，C1FlexGrid倒真是个自定义控件，是重写dataGridView做的，至于菜单嘛，那个绝对不叫属性，是自己设置的按钮，背景图片画得漂亮点而已，这个跟VB6.0还是有点区别的

Q5: vb.net 添加了右键，如何向listbox进行右键文件操作（请进来看详细）

ConTextMenuStrip控件不要和listbox绑定，用代码弹出来：

Private Sub ListBoxUser_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxUser.MouseDown

If e.Button = Windows.Forms.MouseButtons.Right Then

Dim sPoint As Point = New Point(e.X, e.Y)

Dim sIndex As Integer = ListBoxUser.IndexFromPoint(sPoint.X, sPoint.Y)

If sIndex -1 Then

ListBoxUser.SelectedIndex = sIndex

ListBoxUser.ContextMenuStrip = ContextMenuListBox

Else

ListBoxUser.ContextMenuStrip = Nothing

End If

Else

ListBoxUser.ContextMenuStrip = Nothing

End If

End Sub

上面示例中，ListBoxUser是一个ListBox实例，ContextMenuListBox是一个菜单示例。

关于vb.net的右键控件和vba 右键菜单的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。