首页 > 电脑专区 > 电脑教程 >

vb编程:锁定鼠标光标位置

来源:互联网 2023-02-21 18:00:38 版权归原作者所有,如有侵权,请联系我们

本篇经验,需要用到3个函数(DLL调用命令),1个时钟组件。以及vb自带的窗口。ATr办公区 - 实用经验教程分享!

ps:可以当成一个恶作剧程序,也可以运用到其它方面。ATr办公区 - 实用经验教程分享!

17VS2010 —vb 编程ATr办公区 - 实用经验教程分享!

工具/原料

  • Microsoft Visual Studio Version Selector

方法/步骤

  • 1

    启动【vs2010】,新建一个【vb】窗口项目。ATr办公区 - 实用经验教程分享!

  • 2

    编辑代码:ATr办公区 - 实用经验教程分享!

    =============================================ATr办公区 - 实用经验教程分享!

    Public Class Form1ATr办公区 - 实用经验教程分享!

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As IntegerATr办公区 - 实用经验教程分享!

    Public Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)ATr办公区 - 实用经验教程分享!

    Public Declare Function SetCursorPos Lib "user32" (ByVal Z As Integer, ByRef X As Integer) As IntegerATr办公区 - 实用经验教程分享!

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadATr办公区 - 实用经验教程分享!

    时钟.Start()ATr办公区 - 实用经验教程分享!

    ATr办公区 - 实用经验教程分享!

    End SubATr办公区 - 实用经验教程分享!

    ATr办公区 - 实用经验教程分享!

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 时钟.TickATr办公区 - 实用经验教程分享!

    If GetAsyncKeyState(112) = -32767 ThenATr办公区 - 实用经验教程分享!

    ExitProcess(0)ATr办公区 - 实用经验教程分享!

    ATr办公区 - 实用经验教程分享!

    End IfATr办公区 - 实用经验教程分享!

    SetCursorPos(100, 100)ATr办公区 - 实用经验教程分享!

    End SubATr办公区 - 实用经验教程分享!

    End ClassATr办公区 - 实用经验教程分享!

    ============================================ATr办公区 - 实用经验教程分享!

    ps:尽量自己手打一遍,加深印象。ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

  • 2本页面未经授权抓取自百度经验
  • 3

    3个函数详解:ATr办公区 - 实用经验教程分享!

    【ExitProcess】用于中断、结束一个进程,只有一个参数,为整数型。ATr办公区 - 实用经验教程分享!

    【GetAsyncKeyState】用于判断某个键是否被按下,只有一个整数型参数,有一个返回值,用于判断热键是否被按下。ATr办公区 - 实用经验教程分享!

    【SetCursorPos】可以移动鼠标光标的位置,是一次性,所以需要时钟不断调用这个函数,才能达到锁定鼠标光明的效果。ATr办公区 - 实用经验教程分享!

    ATr办公区 - 实用经验教程分享!

    ps:百度百科上面有全面的解释ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

  • 4

    代码解析:ATr办公区 - 实用经验教程分享!

    If GetAsyncKeyState(112) = -32767 ThenATr办公区 - 实用经验教程分享!

    ExitProcess(0)ATr办公区 - 实用经验教程分享!

    ATr办公区 - 实用经验教程分享!

    End IfATr办公区 - 实用经验教程分享!

    SetCursorPos(100, 100)ATr办公区 - 实用经验教程分享!

    ’112整数值代表”键F1“ATr办公区 - 实用经验教程分享!

    ’-32767则是进制转换过来的值,F1被按下时,函数的返回值ATr办公区 - 实用经验教程分享!

    ’翻译:如果函数GetAsyncKeyState返回值为-32767,则调用函数ExitProcess结束自身进程,反之调用函数SetCursorPos锁定鼠标光标横纵位置(100,100)ATr办公区 - 实用经验教程分享!

  • 5

    运行后大图。ATr办公区 - 实用经验教程分享!

    ps:我在窗口上加了个标签,可有可无。ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置ATr办公区 - 实用经验教程分享!

  • 注意事项

    • 调用的函数全部区分大小写

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!ATr办公区 - 实用经验教程分享!


    标签: 操作系统编程位置

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号