精华内容
下载资源
问答
  • 我在给窗口的全局绑上两个监听事件后(mouseDown不绑也是一个效果) ```js function mouseLeave(event) { console.log("mouseLeave"); } function mouseDown(event) { console.log("mouseDown"); } window...
  • “ 本节课程一起学习VB中常用的鼠标事件” VB是一种可视化编程语言,UI设计非常的方便。其用户交互最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。 鼠标...

    “ 本节课程一起学习VB中常用的鼠标事件”

    VB是一种可视化编程语言,UI设计非常的方便。其用户交互中最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。

    鼠标常用事件包括:
    Click、DblClick、MouseMove、MouseDown、MouseUp。

    01

    鼠标事件的含义

    鼠标事件是指,用户使用鼠标发生的某个动作时触发的相应的事件。

    有时候一个动作会触发多个事件。

    例如:

    鼠标单击时,不仅会触发Click事件,还会引发 MouseDown、MouseUp事件。

    鼠标事件及动作对应关系如下:

    Click 鼠标单击
    DblClick 鼠标双击
    MouseMove 鼠标移动
    MouseDown 鼠标按下
    MouseUp 鼠标抬起

    鼠标事件过程的建立:

    在代码区域,首先选中一个控件,然后选中想要的事件类型,然后系统便会自动为我们创建一个事件过程的代码框架了。我们只需要在其中编写相应的代码即可。

    在这里插入图片描述

    02

    鼠标事件发生的顺序

    单击鼠标时:
    会依次发生MouseDown、MouseUp、Click事件

    双击鼠标时:
    会依次发生MouseDown、MouseUp、Click、DblClick、MouseUp事件

    简单做一个程序验证一下,如下:
    首先绘制一个界面,一个窗体、一个标签控件、一个按钮。

    图片

    然后编写代码,如下:

    Private Sub Command1_Click()  
      Me.Cls
    End Sub
    Private Sub Label1_Click()    
      Print "click"
    End Sub
    Private Sub Label1_DblClick()    
      Print "Dbclick"
    End Sub
    Private Sub Label1_MouseDown(Button  _
    As Integer, Shift As Integer, X As Single, Y As Single)    
      Print "MouseDown"
    End Sub
    Private Sub Label1_MouseUp(Button  _
    As Integer, Shift As Integer, X As Single, Y As Single)    
      Print "MouseUp"
    End Sub
    

    最后,运行程序,测试下单击和双击文本框的效果。

    单击标签
    在这里插入图片描述

    双击标签
    在这里插入图片描述

    03

    鼠标事件的参数

    以按钮的鼠标按下事件为例,其事件过程如下:
    Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    其中有4个参数,它们的含义分别为:
    Button:
    该参数用来区别用户是通过鼠标的左键、右键或中键中的哪一个按下的。Button=1时,是鼠标左键;Button=2时,是鼠标右键;Button=4时,是鼠标中键。
    Shift:
    该参数用于判断用户在单击鼠标的同时是否按下了功能按键,功能键为Shift、Ctrl、Alt,当按下Shift键时,Shift=1,当按下Ctrl键时,Shift=2,当按下Alt键时,Shift=4。如果用户同时按下其中多个功能键,则Shift参数值等于它们对应的值之和。例如按下Shift和Ctrl按键时,Shift参数值为3。
    X:
    当前鼠标的坐标x
    Y:
    当前鼠标的坐标y

    举例:

    图片

    代码如下:

    Private Sub Command1_MouseDown(Button  _
    As Integer, Shift As Integer, X As Single, Y As Single)    
      If Button = 1 Then Print "按了左键"    
      If Button = 2 Then Print "按了右键"    
      If Button = 4 Then Print "按了中键"    
      Print "Shift值:" & Shift    
      Print "鼠标位置:" & X & " " & Y    
      Print
    End Sub
    

    04

    实例操作

    需求:
    设计一个贱贱的《来抓我》游戏,游戏界面中只有两个按钮,玩家目标是用鼠标点击到按钮则算胜利。当然,游戏可不会这么简单,因为当鼠标移动到按钮时,按钮的位置就会改变,所以能不能点到鼠标就看你的毅力和运气啦。

    界面设计:

    图片

    代码设计:

    Private Sub Command1_Click()    
      MsgBox "你真厉害"
    End Sub
    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
      Command1.Left = Rnd * (Me.Width - Command1.Width)    
      Command1.Top = Rnd * (Me.Height - Command1.Height)
    End Sub
    Private Sub Command2_Click()    
      MsgBox "你真厉害"
    End Sub
    Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
      Command2.Left = Rnd * (Me.Width - Command2.Width)    
      Command2.Top = Rnd * (Me.Height - Command2.Height)
    End Sub
    
    展开全文
  • VB6.0 创建一个右键菜单,为了便于用户使用“粘贴”功能,特此自定义了一个右键菜单,在这个右键菜单用户可选择粘贴,直接从剪帖板粘贴内容到本窗口。以下是相关的代码:  Private Sub Picture1_MouseDown...
  • 然后在自己的VB程序添加改控件(工程-部件-浏览)。  最好把这个ocx放到C:\WINDOWS\system32。  改控件的属性InTray属性用来设置是否显示在托盘,True为显示在托盘,False为不显示。TrayIcon属性是在托盘...
  • vb中MSHFlexgrid控件小总结

    千次阅读 热门讨论 2018-08-12 20:49:16
    Tyxtmatrix(x,y):返回具体某一单元格的内容,x代表行,y代表列,x、y为数字 backcolorsel:选中单元格背景色 remouveitem:移除某一行内容 CellAlignment 单元内容对齐方式 ColAlignment 列内容对齐...

    MSHFlexgrid控件的属性有很多,现在我就简单写一些关于现在咱们正需要用到的属性,希望这些解释可以加深大家的理解。

    row :指表格的行       

    rows:  表格的总行数

    rowsel:选中行数,可以为一个范围多行

    col  指表格的列          

    cols 表格的总列数

    clowidth:列宽

    mouserow:鼠标所在行

    Tyxtmatrix(x,y):返回具体某一单元格中的内容,x代表行,y代表列,x、y为数字

    backcolorsel:选中单元格背景色

    remouveitem:移除某一行内容

    CellAlignment 单元内容对齐方式

    ColAlignment  列内容对齐方式

    事件

    mousedown,mouseup :当鼠标按下或弹起时的相应的操作

    clear:清除内容

    展开全文
  • vb 的对象,控件和事件说明

    热门讨论 2017-07-26 10:50:33
    VB中,所谓对象,就是VB程序系统提供给编程人员使用的各种“物体”,如:窗体(Form)、命令按(Command Button)、文本框(Text Box)等。 这些对象(Object) ,还可以由多个子对象构成。如电脑是一个对象,而...

    对象、属性、类

    1、对象(Object)

    在VB中,所谓对象,就是VB程序系统提供给编程人员使用的各种“物体”,如:窗体(Form)、命令按(Command Button)、文本框(Text Box)等。

    这些对象(Object) ,还可以由多个子对象构成。如电脑是一个对象,而电脑又是由CPU、内存、硬盘、主板、外设等多个部件(对象)组成,因此,电脑对象就由这多个子对象组成,“电脑”也可以称为这些子对象的一个“容器”(Container)对象。

     

    2、属性(Property)

    每个对象都有属于自己的特性,称为属性(Property)。如桌子,与之相关的属性有它的大小尺寸、颜色、材质质地等。在VB中,每个对象都有一组特定的属性,对这些属性进行描述的数据集合,称为属性栏。属性栏中记录的对象属性数据叫做属性值。对象属性设置的方法一般有两种:

    1. 预设法:在进行可视化程序界面设计时,利用属性窗口设置对象的属性。方法为:在属性窗口中选中要设置的属性,然后在窗口的右列中键入新的数值进行预设。

    2. 程序更改法:在程序设计中通过属性更改命令语句更改对象的某个属性。方法为:

      1. 对象名.属性名=属性值

      2.  “对象名.属性名”这种表达方式,是VB中引用对象属性的基本方法。

     

    3、类

    具有相同属性、或是大多数属性相同的对象,称为同一类对象。如气球,有红色的,黄色的;有圆的、扁的,但都是气球,这些不同形状或颜色的气球属于同一类对象。而电脑和气球就完全不能算是同一类对象,因为它们的属性区别太大。

     

    控件

    VB中的控件通常有3种类型

    第一种:内部控件。由VB系统提供的在默认条件下工具箱中显示的所有控件都是内部控件,如各种按钮控件、文本框、列表框等控件。这些控件被封装在VB的EXE文件中,不可以从工具箱中删除。编程人员可以直接将工具箱中显示的控件图标用鼠标拖到编辑平台上进行编辑

    第二种:ActiveX控件。这种类型的控件由VB系统单独保存在.ocx类型文件中,其中包括各种版本VB提供的控件,如数据绑定网格、数据绑定组合框等

    第三种:可插入对象。由编程人员根据需要插入到工具箱中的特殊对象,如Word文档、Excel工作表、Powerpoint幻灯片等,可以作为一个对象添加到工具箱中,供编程时随时使用。在工具箱中,每个控件都由一个特定形状的图标按钮表示

              事件说明

              Click                 单击鼠标事件

              DblClick           双击鼠标事件

              Load                加载窗体事件

              Unload             卸载窗体事件 

              Resize              控件大小改变事件

              Change            控件内容改变事件

              KeyDown          键盘按键按下事件

              KeyUp              键盘按键松开事件

              KeyPress         按下可显示字符键事件

              MouseDown     鼠标按下事件

              MouseUp         鼠标松开事件

              MouseMove     鼠标移动事件

          

     

    简做总结,如有不足,欢迎指出!

     
    展开全文
  • VB 失去焦点时触发的LostFocus事件
  • 我们可以用控件的MouseDown,MouseUp事件实现控件的拖动。例如图1,我们怎么实现窗口控件PictureBox1的拖动那? ![这里写图片描述]...
    在程序中有时可能需要控件能在程序窗口拖动,这时就需要拖动控件的代码。我们可以用控件的MouseDown,MouseUp事件实现控件的拖动。例如图1,我们怎么实现窗口中控件PictureBox1的拖动那?
    ![这里写图片描述](https://img-blog.csdn.net/2018072813552824?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3VzZXJs/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
    图中我们已经在窗体上放了一个控件Picture1,需要拖动的就是它,我们在上面加了一个Label来标注它的名字。
    我门现在在窗体代码中定义两个变量xPos,yPos,并在Picture1的MouseDown,MouseUp中添加如下代码:
    

    Dim xPos As Long
    Dim yPos As Long

    ‘注意要使用MouseDown,MouseUp,就不要设置控件的DropMode为1
    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    xPos = X
    yPos = Y
    End If
    End Sub

    Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    Picture1.Move Picture1.Left + (X - xPos), Picture1.Top + (Y - yPos)
    End If
    End Sub

    这下我们就可以实现运行时窗体上控件的拖动了。图中我们在Picture1上按下鼠标左键,然后移动一定距离,把控件Picture1移动到了另一位置。
    ![这里写图片描述](https://img-blog.csdn.net/20180728140116895?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3VzZXJs/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
    
    需要注意的是,使用MouseDown,MouseUp,就不要设置控件的DropMode为属性为1-Automatic。
    
    展开全文
  • GraphicsWindow.MouseDown = OnMouseDown Sub OnMouseDown GraphicsWindow.ShowMessage("You Clicked.", "Hello") EndSub 上面程序一个有意思的部分是我们将一个子例程指派到 GraphicsWindow 对象的 MouseDown...
  • MSFlexGrid1.CellBackColor = vbWhite MSFlexGrid1.CellForeColor = vbBlue End Sub Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Text1.SetFocus End Sub ...
  • VB 使用VsMenu控件创建漂亮菜单,是一个很不错的VsMenu控件用法演示实例,在窗体上单击右键,可以看到弹出式菜单效果。  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As ...
  • 可以实现鼠标悬停、MouseDown、MouseUp 的图片切换
  • VC按钮的MouseDown和MouseUp事件捕捉

    千次阅读 2015-10-24 16:46:57
    然而,MouseDown和MouseUp也是我们较常用的事件。它们分别对应 WM_LBUTTONDOWN和WM_LBUTTONUP消息,却没有被发送到父窗口,因此无法在添加了它们的窗口直接捕获。 有很多文 章介绍了通过继承CButton
  • VB中一个Image控件叠在PictureBox控件的上边,怎样在单机图像框控件(PictureBox)区域时,触发Image控件的MouseDown、MouseMove、MouseUp等事件? Private Sub Image1_Click() MsgBox Image1.Name End Sub Private ...
  • Mouse Down是鼠标按下触发的动作;Mouse Up是鼠标抬起触发的动作;Mouse Click就是按下又抬起的动作;click是激活,包含了MouseClick,MouseClick是鼠标点击; click不只是鼠标点击,当焦点在该控件上,按回车时也...
  • VB中PictureBox控件使用教程

    千次阅读 2016-09-01 12:58:00
    它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去...
  • 很多书介绍的方法是在MOUSEDOWN或CLICK事件移动TEXTBOX,然后,再在LeaveCell事件写入. 本文的方法与其有类似之处,但亦有小许不同,主要在写入网格时,在TEXTBOX的Change事件写入. 2)网格内容的保存与加载 对于...
  • VB6实现动态多行增加和删除控件 Option Explicit Dim S1GlngMaxCharactor As Long Dim ChoiceRemove As Long '选择角色移除对象 Private Sub CmdAdd() Dim i As Long, n As Long Dim MaxCharactor As Long ...
  • vb 读取网页数据

    2021-06-12 04:50:02
    MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If Button = 2 Then Me.List1.RemoveItem Me.List1.ListIndex End Sub '每一分钟随机打开list的一个连接 ...
  • VB6 系统托盘控件

    2018-05-06 22:03:01
    vb中添加控件 ---------------------------------------------------------------------------------------------------------- 控件的属性和事件浅析: 该控件的InTray属性是用来设置是否显示在托盘,True为...
  • PrivateSubForm_Load()@H_301_75@'ListView1.SmallIcons=ImageList1.Object'把ImageList1图标列表控件绑定到ListView1列表控件来。ListView1.ListItems.Clear'清空列表@H_301_75@ListView1.ColumnHeaders.Clear'...
  • 【学生】vb中的各种限制

    热门讨论 2019-08-12 18:35:56
    在学生信息管理系统会遇到输入姓名、学号、联系电话和日期的时候,这个时候为了方便使用,往往是需要限制一下文本框的输入信息的。 【正文】 限制文本框只能输入数字和删除键 Private Sub txtClassno_KeyPress...
  • 匿名用户1级2008-07-01 回答我没有2000系统的那个计算器,但是我有我自己写的一个,源码给你吧!Option ExplicitConst PI = 3.14159265358979Const e = 2.71828182845905Dim Express As StringDim expr As String...
  • vb编程 响应鼠标滚轮

    2018-06-25 18:42:09
    使用VB6.0编程过程可以使用自带的MouseDown、MouseMove等事件的Button响应鼠标左右键,却不能响应鼠标滚轮事件。如果你需要处理鼠标滚轮事件,本资源正是你需要的。
  • VB.NET实现拖放操作

    千次阅读 2016-05-10 15:44:35
    VB.NET实现拖放操作  绪论  Windows用户一般分为两类:一类习惯用键盘操作,一类习惯用鼠标操作。程序员们在编程时一般会提供快捷键(在命令或字母中加下划线)或快捷方式(用CTRL加字母的组合)来...
  • Vb中VSFlexGrid控件的应用

    千次阅读 2015-03-10 18:15:48
    将数据库的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor)   CausesValidation 目标事件确认 O.A = False|True   Cell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, Col2) = ...
  • mousedown 当鼠标指针移动到元素上方,并按下鼠标按键(左、右键均可)时,会发生mousedown事件。 与click事件不同,mousedown事件仅需要按键被按下,而不需要松开即可发生。 mouseup 当在元素上松开鼠标按键(左...
  • vb语言程序设计简介以vb程序设计语言为工具,对特定的问题进行分析,并设计出解题的算法,根据得到的算法,用vb语言编写出源程序的过程就是vb程序设计。编写计算机程序需要使用计算机编程语言。计算机编程语言是人和...
  • 拖动无边框窗体的例子,演示了具体的实现方法,基于VB6.0编写,一个很实用的移动无标题栏窗体的例子,拖动无边框窗体其实现方法简单,很值得借鉴。以下是关键部分的代码:  Sub Form_MouseDown(Button As Integer, ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,860
精华内容 744
关键字:

vb中mousedown