登录
首页 » VB源码 » vb.net 捕获键盘按键和鼠标XY坐标位置

vb.net 捕获键盘按键和鼠标XY坐标位置

于 2023-06-22 发布 文件大小:29.59 kB
0 155
下载积分: 2 下载次数: 1

代码说明:

vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:   Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()   获取键盘按下:   Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB的保存文件对话框调用创建一例
    VB的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。   cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
    2022-02-11 13:06:23下载
    积分:1
  • VB6.0 获取汉字拼音简(首字母)
    VB6.0 获取汉字拼音简码,获取汉字拼音首字母,这个比较实用了,现在很多地方都会取首字母作为编号、帐号之类的,代码比较多,这里就不帖核心代码了,大家自行下载本源码吧,运行的效果如截图所示。
    2022-04-15 06:44:52下载
    积分:1
  • VB.NET 获取全局鼠标坐标范例
    VB.NET 获取全局coordinate鼠标坐标,显示窗体内的XY坐标,窗体外凡是显示屏幕的任意位置都可以显示出坐标,获取全局鼠标坐标,测试截图是获取本窗口外的鼠标坐标,请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后,将执行以下代码获取全局坐标:   GetCursorPos(p)   tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)   tooltip1.Active = True
    2022-11-10 13:15:03下载
    积分:1
  • VB 只允许输入特殊字符
    VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
    2022-03-19 10:07:52下载
    积分:1
  • VB OutLook折叠展开的主界面菜单
    VB OutLook式主界面菜单,可折叠和展开,类似WindowsXP的界面左侧菜单,如示例图所示,本示例菜单效果请看左侧的图文式菜单,鼠标单击后可向下滑开,显示出二级的图文菜单,再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用,本源码是仿写的这种菜单。
    2022-05-14 02:45:19下载
    积分:1
  • VB 6.0 动态改变图表的比例
    VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定:   MSChart1.RowLabel = ""   不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示.   MSChart主要用来生成一些简单的图表,包括饼图、曲线图、柱状图等,较复杂的图表就需要借助三方控件了。
    2022-03-07 00:11:30下载
    积分:1
  • VB6.0 屏幕滚动字幕(文字滚动)
    VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:   Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"   Me.Left = Screen.Width   Me.Top = Screen.Height - Me.Height - 800   BeginPath Me.hWnd   SetBkMode Me.hWnd, TRANSPARENT   EndPath Me.hWnd   rgn = PathToRegion(Me.hWnd)   SetWindowRgn Me.hWnd, rgn, True   Timer1.Interval = 200   Timer1.Enabled = True   End Sub   Private Sub Timer1_Timer()    Me.Left = Me.Left - 100    If Me.Left < Label1.Width * (-1) Then    Timer1.Enabled = False    Me.Left = Screen.Width    Timer1.Enabled = True    End If   End Sub
    2022-05-21 14:58:30下载
    积分:1
  • VB6 制作简易谱曲键盘 键盘演奏音乐
    VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。   在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。
    2022-08-04 05:21:26下载
    积分:1
  • VB.NET 超市管理系统
    VB.NET 超市管理系统,数据库基于SQLSERVER,使Label透明显示,进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作,大部分是一些数据的基础应用。测试前请先附加好数据库,否则会弹出出错提示。
    2022-01-26 05:34:54下载
    积分:1
  • VB.NET窗体Tab 读取ini文件 界面滑动等功能集
    本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
    2022-01-26 07:32:46下载
    积分:1
  • 696518资源总数
  • 105908会员总数
  • 30今日下载