vb点虐鼠标左键 vbs模拟鼠标点击

vb点虐关于左键点击弹出菜单的问题

控件.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

分享题目：vb点虐鼠标左键 vbs模拟鼠标点击
网址分享：http://pwwzsj.com/article/ddjisis.html