VB.NET 控制滑鼠的移动

最新推荐文章于 2024-06-28 06:56:58 发布

不说也罢

最新推荐文章于 2024-06-28 06:56:58 发布

阅读量950

点赞数

分类专栏： VB.NET 文章标签：鼠标

本文链接：https://blog.csdn.net/u010924806/article/details/9399319

版权

这篇博客分享了一段VB.NET代码，用于模拟鼠标在两个标签控件之间移动。通过窗体事件处理，代码可以在窗体移动或调整大小时更新鼠标坐标，并使用SetCursorPos函数改变光标位置。提供了一个简单的测试环境：winXP + .NET 2008，适用于需要进行鼠标控制的场景。

摘要由CSDN通过智能技术生成

Imports System.Collections.Generic
Imports System.Drawing
Imports System.Runtime.InteropServices

'模拟控件鼠标，网络上VB.NET的源码太少，希望有人能用上。

'窗体上任意拉出两个标签控件，一个按钮控件
'测试环境 winXP + .NET 2008 
'其它环境未测试过
Public Class Form1
    <DllImport("User32")> _
    Public Shared Sub SetCursorPos(ByVal x As Integer, ByVal y As Integer)
    End Sub
    '<DllImport("User32")> _
    'Public Shared Function GetCursorPos(ByRef lpPoint As Point) As Boolean
    'End Function
    Private Mouse1 As New Point(1, 1)
    Private Mouse2 As New Point(1, 1)
    Private p As New Point(1, 1)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Show()
        Me.AcceptButton = Button1
        Button1.Text = "停止测试"
        Timer1.Interval = 2000
        Mouse1 = Label1.P