控件.ContextMenuStrip=ContextMenuStrip1;
创新互联建站主营桑植网站建设的网络公司,主营网站建设方案,app开发定制,桑植h5小程序定制开发搭建,桑植网站营销推广欢迎桑植等地区企业咨询
c#是这么写的,弹出菜单相对鼠标是一个位置.
vb应该也一样.
你目前的办法是自己控制弹出菜单显示的位置,但是你的坐标没有控制好,注意世界坐标和控件坐标的区别,做个相应的转换,还是可以实现的.
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
TextBox1.SelectAll()
TextBox1.ForeColor = Color.Blue
End Sub
如果不想每次都这样的话，就加一个if判断TextBox1.ForeColor 是否是Color.Blue就可以了
通过窗体的MouseDown事件的e.X和e.Y属性获取。通过e.Location属性获取Point类型的坐标。
下面的代码示例使用 Location 属性跟踪鼠标左键单击，并绘制一系列直线段作为对用户输入的响应。如果隐藏窗体然后重新显示它，此示例不保留已绘制的线段，该代码为简单起见而被省略了。
Dim FirstPoint As Point
Dim HaveFirstPoint As Boolean = False
Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If HaveFirstPoint Then
Dim g As Graphics = Me.CreateGraphics()
g.DrawLine(Pens.Black, FirstPoint, e.Location)
HaveFirstPoint = False
Else
FirstPoint = e.Location
HaveFirstPoint = True
End If
End Sub
