登录
首页 » VB源码 » VB 记录鼠标行为,判断左键右键

VB 记录鼠标行为,判断左键右键

于 2022-02-28 发布 文件大小:2.44 kB
0 153
下载积分: 2 下载次数: 1

代码说明:

VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:   If GetAsyncKeyState(VK_LBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标左键 "   ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标右键 "   End If

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

发表评论

0 个回复

  • vb.net读取Access数据库数据并生成适时曲线
    vb.net绘制生成曲线,数据从access数据库中读取,然后将数据进行简要处理后,传送给曲线生成函数,生成适时的数据曲线。   请注意:vb.net里PICTURE只支持像素,长度比较大,需要乘除定义精确值,8当余数为1,则刚好够总长度,否则需要判断长度,计算出坐标,画图,如果要设置数值或日期的显示格可以设置Format属性,例如: .Format = "¥0.00"。
    2022-03-21 23:38:41下载
    积分:1
  • VB 以TextStream流的方式打开文本文件
    VB 以流的方式打开文本文件,创建FileSystemObject MyFSO对象,创建TextStream对象,然后使用对象GetFile文件,最后使用对象OpenAsTextStream读取流文件,具体用法,可参见以下代码:   Private Sub Form_Load()    Dim MyFSO As New FileSystemObject    Dim MyFile As File    Dim MyTS As TextStream    Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")    Set MyTS = MyFile.OpenAsTextStream(ForReading)    Text1.Text = MyTS.ReadAll    MyTS.Close   End Sub   完整的可编译实例,请下载源码包。
    2022-06-14 22:18:23下载
    积分:1
  • VB 6.0 AscW将汉字转换为Unicode字符代
    本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:   Private Sub Command1_Click()    Text2.Text = AscW(Text1)   End Sub   Private Sub Command2_Click()    Unload Me   End Sub
    2022-08-09 07:08:37下载
    积分:1
  • VB 为菜单添加分割线
    VB6为菜单制作添加分割线,在菜单项与菜单项之间显示一个分隔线,这个在Windows经典风格的窗口中,十分常见,像一个水平线那样,把菜单分成多个部分,这个水平线带有阴影效果,视觉效果更立体。   本窗口中的菜单,是一个企业综合管理系统的主界面面板,那些菜单都是测试用的,你可以看一下菜单中的分隔线是如何嵌入到菜单中的。
    2022-09-22 23:30:03下载
    积分:1
  • VB NET版 五子棋游戏
    VB NET版 五子棋(人机对弈),五子棋游戏源码,单击菜单中的开局即可开始游戏,人先走棋,电脑随后,每一步会有提示,游戏功能不算太复杂。源代码部分,主要实现了游戏数据初始化、获取鼠标单击位置值、绘制棋盘网格、定义图形类对象、重绘控件的控制等,可了解一下VB编写棋牌游戏的一些要领。
    2022-02-03 04:33:28下载
    积分:1
  • VB6.0多选文件实例
    VB6.0多选文件源代码实例,在打开文件的对话框中,用户一次可选择多个文件,并不像平时那种一次只能打开一个文件。当然,这种打开文件需要程序的支持,而不仅仅是限制于打开多个文件而程序端不支持的现象。
    2022-05-20 22:53:54下载
    积分:1
  • VB6.0 实现表格样式的内容生成Excel表格式
    VB6.0 实现表格样式的内容生成Excel表格式,将DataGrid的表格数据转换成Excel格式,生成Excel表文件,用Offie套件就可以打开,在转换前可设置文字格式、样式等参数,看上去是一个国外的程序,代码里的注释全是英文的,如果E文好的话,推荐参考。
    2022-03-21 16:22:21下载
    积分:1
  • VB6 设计带记忆的DataGrid数据录入窗口
    VB6 设计带记忆的数据录入窗口,这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了,是一个数据库应用范例,本例子中的数据库采用的Access。在本例中,用户临时对任意DataGrid行列操作时输入的内容,临时保存至数据库中,使用时及时读取,模拟中了记忆功能,方便了用户操作,不过未做测试,不知道数据量较大的时候,会不会对数据库造成压力,有心者可以自行测试哦。
    2023-04-17 21:20:02下载
    积分:1
  • 文件夹复制VB6.0实例
    文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
    2022-03-05 20:29:32下载
    积分:1
  • VB Http proxy代理服务器
    Http proxy,由VB6.0编写的代理服务器的源码,要测试代理示例,请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2,此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后,它连接到真实服务器并传递标头数据。   打开程序后,可单击监听按钮,实现代码服务的监听功能,也可适时停止这个功能。   本源码来自于国外。
    2022-09-10 03:25:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载