锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net锁定鼠标位置 vbs锁定窗口( 二 )

IT技术鼠标


End Sub
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
My_MousePosition = MousePosition
TextBox1.Text = My_MousePosition.X" "My_MousePosition.YvbCrLf
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetCursorPos(My_MousePosition.X, My_MousePosition.Y)
mouse_event(H2, 0, 0, 0, 0)
mouse_event(H4, 0, 0, 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SetCursorPos(My_MousePosition.X, My_MousePosition.Y)
End Sub
End Class
其中
mouse_event Lib "user32" (ByVal dwFlags As Long
的dwFlags的代码是
Const MOUSEEVENTF_LEFTDOWN = H2
Const MOUSEEVENTF_LEFTUP = H4
Const MOUSEEVENTF_MIDDLEDOWN = H20
Const MOUSEEVENTF_MIDDLEUP = H40
Const MOUSEEVENTF_MOVE = H1
Const MOUSEEVENTF_ABSOLUTE = H8000
Const MOUSEEVENTF_RIGHTDOWN = H8
Const MOUSEEVENTF_RIGHTUP = H10
VB.NET 在RichTextBox中确定鼠标所指的字符位置void rtf_Click(object s, EventArgs e)
{
MessageBox.Show(rtf.SelectionStart.ToString());
}
vb做的程序怎么锁定键盘鼠标如果让我做，我会按如下方法
在窗体的MouseMove事件里做如下功能判断
1、用GetCursorPos得到当前鼠标的位置(X,Y)
2、用GetWindowRect得到窗体的位置(Left,Top,Right,Bottom)
3、判断当前的鼠标位置是否在窗体中(X=Left
and
X=Right
and
Y=Top
and
Y=Bottom)
这里有一个关键的地方，当鼠标在窗体外时，如何触发MouseMove事件，你要用到SetCapture和ReleaseCapture.
当然你也可以用timer_time事件循环判断了 。不过我不建议你用timer事件
关于vb.net锁定鼠标位置和vbs锁定窗口的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：餐厅如何做营销推广，餐饮营销策略,如何推广?

下一篇：斗鱼直播伴侣苹果，斗鱼直播伴侣手游设置教程