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

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

于 2022-02-28 发布 文件大小:2.44 kB
0 123
下载积分: 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 Seek语句设置随机访问文件的读取位置
    VB 设置随机访问文件的读取位置,本例中是使用Seek语句来设置随机访问文件的读取位置,代码编写方面,主要是掌握Seek的用法,以下代码将用户的单击行为作为触发Seek的事件条件:   Private Sub Command1_Click()    Dim str As String * 10    Open App.Path & "MyFile.txt" For Binary As #1    Seek #1, 5    Get #1, , str    Text1.Text = str    Close #1   End Sub   当用户单击按钮后,执行seek语句。
    2022-03-24 08:37:41下载
    积分:1
  • VB将程序图标添加到托盘
    VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
    2022-03-24 10:49:35下载
    积分:1
  • vb.NET模拟扑克牌出牌功能
    vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
    2022-03-22 04:23:34下载
    积分:1
  • VB写的一个轻型仿写字板文档编辑器
    VB6.0编写的一个轻型仿写字板的多功能文档编辑器源码,具备新建、打开、保存、打英剪切、复制、粘贴、粗体、斜体、下划线、左对齐、置中、右对齐等功能,界面还是挺友好的,文件格式支持DOC格式 (*.doc)|*.doc|RTF格式 (*.rtf)|*.rtf|文本文件 (*.txt)。   注:如果这个工程没有帮助文件,显示消息给用户,可以在“工程属性”对话框中为应用程序设置帮助文件。完整源码请下载查看。
    2022-03-15 05:13:20下载
    积分:1
  • VB生成圆形图表,圆饼百分比图表
    VB成绩统计饼图,生成圆形图表,圆饼百分比图表的例子,这种图表相信大家见多了,这个例子介绍了VB简单生成圆饼图的方法,对初学VB的朋友会有帮助,通过这个图表,你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的,用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例,各个比例用不同的颜色填充,让结果一清二楚,源代码运行于VB6.0环境 ,运行效果如下图所示。
    2022-05-15 05:38:34下载
    积分:1
  • VB 6.0 将数组中的数据利用图表分析
    VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:   Private Sub Form_Load()   Dim i   i = Array(1, 2, 3, 4, 5, 6, 7)   Dim j   For j = 0 To UBound(i)    With MSChart1    .RowCount = UBound(i) + 1    .Row = j + 1    .ColumnCount = 1    .Data = i(j)    .RowLabel = i(j)    End With   Next j   End Sub
    2022-01-25 18:47:19下载
    积分:1
  • 国外的VB版跳棋游戏
    一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释,不过注释都是英文。这款跳棋感觉和国内的不一样,走棋方法不同,试着玩了,按照国内的走棋方法,棋子并不走动,不知道如何玩。但是源代码在VB6.0下可顺利编译成功,有兴趣的可下载源代码参考学习。运行效果如下图所示。
    2022-04-21 21:15:12下载
    积分:1
  • VB 6.0 对字符串进行加、减、乘、除计算
    VB 6.0 对字符串进行加、减、乘、除计算,如何对字符串进行加、减、乘、除计算呢,本示例演示了这个功能,其实就是数学表达式的计算,运算式中可以有括号,程序将按照运算规则,按照括号优先、乘除优先的原则进行运算,计算出结果并显示在Textbox中,最终运行效果如示例图所示。
    2022-03-02 02:18:41下载
    积分:1
  • VB6.0 如何计算加权平均值
    VB6.0 代码演示如何计算加权平均值,计算加权平均值可编写以下代码实现:   Private Sub Command1_Click()    Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)   End Sub   Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)    Dim sum As Integer    sum = (a * b + c * d + e * f) / (b + d + f)    sum = Round(sum, 2)    jiaquan = sum   End Function
    2022-02-25 12:19:27下载
    积分:1
  • 磁性窗体 VB简单实现方法举例
    VB简单实现磁性窗体,将窗体粘合,子窗体连接的任何窗体都粘合上,获取所有窗体的矩形区域,并重新设置粘合,连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中,比如播放列表快接近播放主窗口时,自动吸附到主窗口上,紧贴主窗口边缘,像是有种磁性一样吸附在一起,本窗口中的三个子窗口,都具有自动吸附的磁性感觉,有兴趣可下载本源码学习测试。
    2022-01-21 20:24:46下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载