精华内容
下载资源
问答
  • 作品展越来越近了,我们的作品《文件管理专家》也已经成形了,正在努力完善,也在期待着作品选拔~~~ 作品里有很多精华的东西,算是整个作品的亮点功能。比如说:界面图标的切换(当鼠标移动到图标上时,图标变大...
    作品展越来越近了,我们的作品《文件管理专家》也已经成形了,正在努力完善中,也在期待着作品选拔~~~
    

    作品里有很多精华的东西,算是整个作品的亮点功能。比如说:界面图标的切换(当鼠标移动到图标上时,图标变大,反之,鼠标离开后,图标变回原来大小)

    效果如下:



    (一)首先,添加Image控件,在Image控件里添加自己所需要的图片;其次,在Image控件上面覆盖一层Picture控件;最后,通过代码实现二者的切换。

    在Image的MouseMove事件里编写如下代码:


    Picture1(index).Top = Image1(index).Top - 100

    Picture1(index).Left = Image1(index).Left - 100

    Picture1(index).Picture = Image1(index).Picture

    Picture1(index).Visible = True


    (二)通过装载Image控件的容器的MouseMove事件和Form的MouseMove事件让图标轻松切换

    Image1(index).Visible=True

    Picture1(index).Visible=False


    (三)如图2所示,当鼠标移动到图标上时,会有ToolTipList弹出,但是为了让弹出的文字更加好看,我们使用了“气泡提示”

    的方式,修改了Picture的ToolTipList的形状,让界面更加美观。


    一点一滴的积累,为了做出完美的作品,更是为了更深入的学习。




    展开全文
  • “本节课程一起学习VB中常用的鼠标事件”VB是一种可视化编程语言,UI设计非常的方便。其用户交互中最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。鼠标常用...
     本节课程一起学习VB中常用的鼠标事件VB是一种可视化编程语言,UI设计非常的方便。其用户交互中最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。鼠标常用事件包括:Click、DblClick、MouseMove、MouseDown、MouseUp。01鼠标事件的含义鼠标事件是指,用户使用鼠标发生的某个动作时触发的相应的事件。有时候一个动作会触发多个事件。例如:鼠标单击时,不仅会触发Click事件,还会引发 MouseDown、MouseUp事件。鼠标事件及动作对应关系如下:Click 鼠标单击DblClick 鼠标双击MouseMove 鼠标移动MouseDown 鼠标按下MouseUp 鼠标抬起鼠标事件过程的建立:在代码区域,首先选中一个控件,然后选中想要的事件类型,然后系统便会自动为我们创建一个事件过程的代码框架了。我们只需要在其中编写相应的代码即可。05197fa46e6f638b835285253a2825e8.png02鼠标事件发生的顺序单击鼠标时:会依次发生MouseDownMouseUpClick事件双击鼠标时:会依次发生MouseDown、MouseUp、Click、DblClickMouseUp事件简单做一个程序验证一下,如下:首先绘制一个界面,一个窗体、一个标签控件、一个按钮。aca47b2e8c763486a51c9542ff3feceb.png然后编写代码,如下:
    Private Sub Command1_Click()    Me.ClsEnd SubPrivate Sub Label1_Click()      Print "click"End SubPrivate Sub Label1_DblClick()      Print "Dbclick"End SubPrivate Sub Label1_MouseDown(Button  _As Integer, Shift As Integer, X As Single, Y As Single)      Print "MouseDown"End SubPrivate Sub Label1_MouseUp(Button  _As Integer, Shift As Integer, X As Single, Y As Single)      Print "MouseUp"End Sub
    最后,运行程序,测试下单击和双击文本框的效果。

    单击标签

    2699bcc79bf8c77171520ff34d14521e.png

     双击标签

    adace65a8eb0d4eb92dd9044ca06376c.png03鼠标事件的参数以按钮的鼠标按下事件为例,其事件过程如下:

    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:当前鼠标的坐标xY:当前鼠标的坐标y举例:30ae7db4bc4bfb74823f35f9c9d318c2.png代码如下:
    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      PrintEnd Sub
    04实例操作需求:设计一个贱贱的《来抓我》游戏,游戏界面中只有两个按钮,玩家目标是用鼠标点击到按钮则算胜利。当然,游戏可不会这么简单,因为当鼠标移动到按钮时,按钮的位置就会改变,所以能不能点到鼠标就看你的毅力和运气啦。界面设计:6b48fed4a3148a5ead59a419225768be.png代码设计:
    Private Sub Command1_Click()      MsgBox "你真厉害"End SubPrivate 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 SubPrivate Sub Command2_Click()      MsgBox "你真厉害"End SubPrivate 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
    运行效果:c1b7b1fd7e3d917bacb8a244d064281d.pngc1b7b1fd7e3d917bacb8a244d064281d.pngc1b7b1fd7e3d917bacb8a244d064281d.png醉了,抓了几分钟还没抓到,我要砸鼠标啦~~
    展开全文
  • “ 本节课程一起学习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
    
    展开全文
  • VB中实现窗体自动隐藏 (转)OICQ聊天时的窗体自动隐藏功能,用vc 或CBC都可以很简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,...
    VB中实现窗体自动隐藏 (转)

    OICQ聊天时的窗体自动隐藏功能,用vc 或CBC都可以很简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下的笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。大伙如有好的意见,不妨贴出来,让我学习学习。

    Option Explicit

    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTapi) As Long
    Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

    Private Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
    End Type
    Private Type POINTAPI
      X As Long
      Y As Long
    End Type

    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const HWND_TOP = 0
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_SHOWWINDOW = &H40


    Private Sub Form_Load()
    '窗体放在最前面
      SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End Sub

    Private Sub Timer1_Timer()
      Dim p As POINTAPI
      Dim f As RECT
      GetCursorPos p  '得到MOUSE位置
      GetWindowRect Me.hwnd, f  '得到窗体的位置
      If Me.windowstate <> 1 Then
      If p.X > f.Left And p.X < f.Right And p.Y > f.Top And p.Y < f.Bottom Then
      'MOUSE 在窗体上
      If Me.Top < 0 Then
      Me.Top = -10
      Me.Show
      ElseIf Me.Left < 0 Then
      Me.Left = -10
      Me.Show
      ElseIf Me.Left + Me.Width >= Screen.Width Then
      Me.Left = Screen.Width - Me.Width + 10
      Me.Show
      End If
     
      Else
      If f.Top <= 4 Then
      Me.Top = 40 - Me.Height
      ElseIf f.Left <= 4 Then
      Me.Left = 40 - Me.Width
      ElseIf Me.Left + Me.Width >= Screen.Width - 4 Then
      Me.Left = Screen.Width - 40
      End If
      End If
      End If

    End Sub


    来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10797429/viewspace-101579/,如需转载,请注明出处,否则将追究法律责任。

    转载于:http://blog.itpub.net/10797429/viewspace-101579/

    展开全文
  • VB中实现窗体自动隐藏

    千次阅读 2001-12-12 09:46:00
    OICQ聊天时的窗体自动隐藏功能,用VC 或CBC都可以很简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下的笨办法,现把...
  • vb编程 响应鼠标滚轮

    2018-06-25 18:42:09
    使用VB6.0编程过程可以使用自带的MouseDown、MouseMove事件中的Button响应鼠标左右键,却不能响应鼠标滚轮事件。如果你需要处理鼠标滚轮事件,本资源正是你需要的。
  • 祝你考试成功2003年9月全国计算机等级考试二级VB语言笔试试卷 (含参考答案) ... C)移动鼠标时,会触发MouseMove事件 D)控件的名称可以由编程人员设定 (4)以下不属于Visua l Basic系统的文件类型是
  • C++的事件

    2009-06-17 09:43:00
    我们在一个窗口上移动鼠标指针,系统就会产生WM_MOUSEMOVE消息(在vb中就是激发mousemove事件),只要我们告诉系统一个函数指针,系统就会通过这个回调函数通知我们,这是Windows窗口编程中的“事件”。C#中的事件的...
  • VB6.0语言,控件缺少一些事件,比如菜单条缺少mousemove事件,而toolbar也缺少mouseenter控件,怎么扩展这些事件呢?
  • VB下获得鼠标位置

    千次阅读 2007-01-18 16:29:00
    vb里获得鼠标位置目前我知道两个方法,一个是:Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 在MouseMove事件中获得当前鼠标的位置.还有一个就是用API函数了,具体...
  • vb基础 (转)

    2007-11-13 11:12:24
    vb基础 (转)[@more@]''程序说明:'本例演示了怎样移动无标题栏的窗体的方法,程序涉'及到MouseDown、MouseMove、MouseUp三个鼠标事件的'使用,我们可以从中学习到它们的用法。'---------...
  • 教你如何用VB做控件*.ocx

    万次阅读 2009-11-05 11:00:00
    教你如何用VB做控件*.ocx 一个控件有很多事件如:Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的...
  • 捕获 WebBrowser 控件的鼠标事件

    千次阅读 2011-04-02 07:26:00
     捕获 WebBrowser 控件的鼠标事件  VB 的网页浏览控件 WebBrowser 没有 MouseDown、MouseMove、MouseUp 等鼠标事件,要在程序捕获这些事件,必须另想办法。本文使用注入 java 脚本的方法来捕获控件的...
  • [C#.NET][VB.NET] 程式執行時拖曳控制項

    千次阅读 2013-08-30 10:51:08
    在Form的每一個控制項需要 MouseMove 事件,所以我們用Code為每個控制項加事件 C# private void Form1_Load(object sender, EventArgs e) { //為每個控制項加事件 foreach (Control ctrl in Controls) {
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • 形考任务三答案.zip

    2019-12-30 20:56:18
    国开电大VisualBasic程序设计形考任务三答案 请同学选择课程实验栏目“实验4 菜单设计”或“实验5鼠标MouseMove事件应用”的其中之一,在VB集成开发环境认真完成实验
  • 形考任务三请同学选择课程【第4章】-【实战演练】“实验4 菜单设计”或【第5章】-【实战演练】“实验5鼠标MouseMove事件应用”的其中之一,在VB集成开发环境认真完成实验。
  • 这个大家都会觉得很简单了,无非就是mousedown, mousemove, mouseup这些事件的组合了。但是如果只是这么简单的编写代码的话,当页面上元素都有自己的mousedown, mousemove, mouseup时,在拖动的时候就会受到干扰。...
  • 2.3.5 MouseDown、MouseUp和 MouseMove事件35 2.4 Form对象37 2.4.1基本的Form属性37 2.4.2微调窗体的性能38 2.4.3 Form的生存期39 2.4.4 Controls集合43 2.4.5 Screen对象44 2.4.6打印文本45 2.4.7图形方法48 2.4.8...
  • 2.3.5 MouseDown、MouseUp和 MouseMove事件35 2.4 Form对象37 2.4.1基本的Form属性37 2.4.2微调窗体的性能38 2.4.3 Form的生存期39 2.4.4 Controls集合43 2.4.5 Screen对象44 2.4.6打印文本45 2.4.7图形方法48 2.4.8...
  • 运行时改变控件大小运行时移动控件MINICAR版VS2005.net编写,网上找了找,见别人写得挺复杂,自己写了一个. 附件居然不能上传....如MOUSEMOVE事件你必须新建工程,拖个PICTUREBOX控件出来,双击PICTUREBOX,再找到MOUSEMOV
  • 当然这个ListView是支持多选的了,在测试的过程发现只有鼠标在Listview上MouseMove的时候才能显示出来选中的数目,后来查看了一下Code,发现原来是vb6的Listview不提供选中事件,所以就在MouseMove里边写代码了。...

空空如也

空空如也

1 2
收藏数 35
精华内容 14
关键字:

vb中mousemove事件