精华内容
下载资源
问答
  • vb中如何才能有手型的光标?

    千次阅读 2013-04-07 23:00:07
    各位搞过VB编程的同学肯定知道,vb默认是调不出手型光标(如网页上的链接光标)的,下面这个方法可以帮你做到。   Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private ...

    各位搞过VB编程的同学肯定知道,vb默认是调不出手型光标(如网页上的链接光标)的,下面这个方法可以帮你做到。

     

    Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
    Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then SetCursor 65581
    End Sub
    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 0 Then SetCursor 65581
    End Sub

    展开全文
  • 一般我们可能在 TextBox 的 MouseDown Event Check 是否按右键,若是,则设定出现 Popup Menu 程式如下: Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If ...

    一般我们可能在 TextBox 的 MouseDown Event 中 Check 是否按右键,若是,则设定出现 Popup Menu 程式如下:
       Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = 2 Then
         PopupMenu MyMenu
        End If
       End Sub
        可是出现的还是原先内定的 Popup Menu,之后再按一次右键,才出现我们自定的 menu。很奇怪吧?如果用 API 来解决,那便是要拦截 Mouse 的按键(使用 SubClassing 的技巧),但是有人发现了以下的方式便可以解决(也是一个十分实作性的经验):
       Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = 2 Then
         Text1.Enabled = False : Text1.Enabled = True
         PopupMenu MyMenu
        End If
       End Sub

    展开全文
  • 我们可以用控件的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。
    
    展开全文
  • VB中通用的方法如下:上述功能,需分两个步骤: 1. 利用VB的选单编辑器(Menu Editor)编辑你希望弹出的选单及子选单(PoPMenu),注意,要将选单的Visible属性设置为:False。 2. 在窗体(Form1)的MouseDown事件中...


    在VB中通用的方法如下:

    上述功能,需分两个步骤:
    1. 利用VB的选单编辑器(Menu Editor)编辑你希望弹出的选单及子选单(PoPMenu),注意,要将选单的Visible属性设置为:False。
    2. 在窗体(Form1)的MouseDown事件中编写程序,来激发编辑好的选单,假设选单名为PopMenu,程序源码如下:

     VB/VB.NET 代码 

    Private Sub Form-MouseDown  (Button As Integer, Shift As Integer,  X As Single, Y As Single
         If Button = vbRightButton Then 
              PopMenu.Visible = True 
              PopupMenu PopMenu 
          End If 
    End Sub



    上述方法是针对窗体的,我们也可以针对任意控件,用鼠标右键点击控件时,也弹出一个快捷选单。方法也很简单,只要把上述代码放到相应控件的MouseDown事件中,就可以了。

    --看实例学VB6.0--使用右键菜单的例子--

      右键菜单能让软件的使用者快捷的完成操作,那么如何把右键菜单用在自己写的程序中呢?在这个小程序中我们能看到编辑并使用右键菜单的方法。

      为了学习方便,提供的源码已经作了详细的中文注释,看看源码框中的代码:

    <textarea οnmοuseοver="this.focus()" οnfοcus="this.select()" name="textfield" rows="7" readonly="65535" cols="80">'-------------------------------------- ' 弹出鼠标右键菜单 '-------------------------------------- ' 洪恩在线 求知无限 '-------------------------------------- '------名称-------------作用------------ ' CmdCancel 退出按钮 ' mnublue “兰色”菜单项 ' mnured “红色”菜单项 ' RichTextBox1 文本框 ' PopupFrm 主窗体 ' mnufile 右键菜单的名字 '-------------------------------------- Private Sub CmdCancel_Click() Unload Me End Sub '当弹出式菜单的“红色”项被点击时 Private Sub mnured_Click() '把RichTextBox框中的背景色设置为红色 RichTextBox1.BackColor = vbRed End Sub '当弹出式菜单的“兰色”项被点击时 Private Sub mnublue_Click() '把RichTextBox框中的背景色设置为兰色 RichTextBox1.BackColor = vbBlue End Sub '当文本框上出现鼠标按下的事件时 Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'MouseDown事件各种语法包含下列部分: 'button 返回一个整数,用来标识该事件的产生是按下哪个按钮 '其中 左按钮(位 0),右按钮(位 2),以及中间按钮(位 4) 'shift 返回一个整数,标示是否同时有Shift,Ctrl,Alt键按下 'x, y 返回一个指定鼠标指针当前位置的数 'Button = 2 表示右键按下 If Button = 2 Then 'PopupMenu方法用来弹出一个菜单 '语法是 object.PopupMenu menuname, flags, X, Y 'mnufile是我们在菜单编辑器中设计好的菜单 'X,Y是弹出菜单的位置,可以为数字,如果直接写为X,Y则是在当前鼠标位置弹出菜单 PopupFrm.PopupMenu mnufile, 0, X, Y End If End Sub </textarea>


      我们先打开菜单编辑器(在工具菜单中),然后添加一个一级菜单Popmenu,将它的Visible属性设为“False”,这代表菜单在程序运行时是看不到的,由于一级菜单是二级菜单的上级菜单,所以二级菜单也是看不到的。然后我们来添加几个二级菜单,注意每个菜单都有Caption属性和Name属性,这两个属性是必须写的,Caption属性是显示在菜单项上的内容,而Name属性则是我们要在程序中引用菜单项的代号,类似与其它控件的Name属性。而菜单中分隔线是通过把Caption属性设为“-”来实现的。

    编辑菜单

      菜单编辑好后,就能在程序中引用并控制它,在本例中我们希望在文本框上点击鼠标右键时弹出这个右键菜单,则需要在文本框的MouseDown事件中加入控制语句:

     Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
     If Button = 2 Then          '如果是鼠标右键按下时
      Form1.PopupMenu mnufile, 0, X, Y  '弹出右键菜单
     End If
     End Sub

      其中MouseDown事件各个参数意义如下:

     button返回一个整数,用来标识该事件的产生是按下哪个按键,其中左键为0,右键为2,中间键为4
     shift 返回一个整数,标示是否同时有Shift,Ctrl,Alt键按下
     x, y 返回一个指定鼠标指针当前位置的数

      Popupmenu是一个方法:

     PopupMenu方法用来弹出一个菜单,语法是:object.PopupMenu menuname, flags, X, Y
     mnufile是我们在菜单编辑器中设计好的菜单的名称
     X,Y是弹出菜单的位置,可以为数字,如果直接写为X,Y则是在当前鼠标位置弹出菜单

      这样就能调出右键菜单,然后我们根据自己的需要,为每个菜单项的Click事件编写代码,完成一些特定的操作,右键菜单就可以使用了。最后效果如下图所示:

    效果演示

    展开全文
  • 使用VB6开发时Listbox使用右键事件的案例 这里的鼠标点击 Mouseclick API函数执行起来感觉有点慢, 感觉会先到cmdGoTo_Click那里, 顺序就乱了 开始的时候我使用Sleep函数, 发现一用系统就当机了, 好像连想延迟的...
  • vb.net的碎片发生器

    2006-02-23 09:05:59
    Option Strict OnImports System.MathPublic Class MandelbrotForm Inherits System.Windows.Forms.Form#Region " Windows Form Designer generated code " Public Sub New() MyBase.New() ‘This call is...
  • 在指示窗口拖动方框的程序如下: '用Form_Load、Map1_AfterLayerDraw、Map1_...'用Map1_MouseDown过程添加放大缩小功能,以检查指示窗口的连动功能; '实现在Map2拖动方框,改变Map1的功能; ...
  • “本节课程一起学习VB中常用的鼠标事件”VB是一种可视化编程语言,UI设计非常的方便。其用户交互中最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。鼠标常用...
  • vb6无标题栏窗口的拖动(非API可指定标题栏高度) Dim mX As Long, mY As Long Const titleHeight = 750 '标题栏高度 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As ...
  • VB.NET重画Button按钮

    千次阅读 2005-05-31 09:56:00
    Imports System.Drawing Imports System.ComponentModel Public Class winxpbutton Inherits System.Windows.Forms.Button Private my_mouseDown As Boolean = False 鼠标按下 Private my_mouseHover As B
  • vb编程 响应鼠标滚轮

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

    2012-11-21 21:21:34
    vb前台模拟键鼠,另类实现sleep延时,不卡机 keyup 弹起 keydown 按下 keypress 按键 MouseDown 鼠标按下 MouseUp 鼠标弹起 Click 左键单击 RightClick 右键单击 MoveToClick 移动并单击 MoveTo 移动 TurnWheel 转动...
  • ’txtList是textbox控件,pop2是自定菜单名 ...Private Sub txtList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)  If Button = vbRightButton Then  txtList.Enabled = False...
  • VB6 系统托盘控件

    2018-05-06 22:03:01
    vb中添加控件 ---------------------------------------------------------------------------------------------------------- 控件的属性和事件浅析: 该控件的InTray属性是用来设置是否显示在托盘中,True为...
  • VB6.0 创建一个右键菜单,为了便于用户使用“粘贴”功能,特此自定义了一个右键菜单,在这个右键菜单用户可选择粘贴,直接从剪帖板粘贴内容到本窗口。以下是相关的代码:  Private Sub Picture1_MouseDown...
  • vb钩子小试

    2008-04-15 22:34:00
    本来是因为要做一个小软件,其中要实现的一部分是用鼠标来定位一个座标,那么也就是说本身窗体的焦点可能会离开,就不能使用form的mousedown事件了,那么,使用钩子是可以实现的。基本想法就是,用钩子获取鼠标点击...
  • “ 本节课程一起学习VB中常用的鼠标事件” VB是一种可视化编程语言,UI设计非常的方便。其用户交互中最为重要的方式是鼠标,此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。 鼠标...
  • VB 消息钩子 详细解释

    2011-11-12 00:40:00
    本来是因为要做一个小软件,其中要实现的一部分是用鼠标来定位一个座标,那么也就是说本身窗体的焦点可能会离开,就不能使用form的mousedown事件了,那么,使用钩子是可以实现的。基本想法就是,用钩子获取鼠标点击...
  • VB做扫雷游戏的一个简单论文 1. For...Next循环应用 ...在本游戏,利用右键的MouseDown事件标示“已标示”方块,利用左键的MouseDown事件,标示使用者准备按下的方块,利用左键的MouseUp事件确定翻开的方块。
  • vb基础 (转)

    2007-11-13 11:12:24
    vb基础 (转)[@more@]''程序说明:'本例演示了怎样移动无标题栏的窗体的方法,程序涉'及到MouseDown、MouseMove、MouseUp三个鼠标事件的'使用,我们可以从中学习到它们的用法。'---------...
  • 然后在自己的VB程序添加改控件(工程-部件-浏览)。  最好把这个ocx放到C:\WINDOWS\system32。  改控件的属性InTray属性用来设置是否显示在托盘,True为显示在托盘,False为不显示。TrayIcon属性是在托盘...
  • VB 2010 (74)拖放操作

    2020-04-30 10:16:22
    通常,它开始于一个控件的MouseDown事件,终止于另一个控件的DragDrop事件。 首先要新建一个Windows应用程序。为窗体添加2个列表框,并使用Items属性设计器为第—个列表框添加3个列表项。该应用程序允许将一个列表...
  • Vb自定义右键菜单,调用保存、打开对话框,在菜单编辑器,创建一级菜单,菜单标题为PopupMenu 名称为b,创建三个二级菜单,标题为选项1,名称xuanxiang1,……在编辑菜单,将“可见”对勾去掉。  MouseDown事件...
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
  • VB实现拖放功能

    千次阅读 2001-08-16 14:55:00
    在图形操作过程,拖放是最常用的功能之一,下面我们来看看怎样用VB实现拖放功能。 首先介绍与拖放有关的控件: 1.属性:DragMode决定拖动操作的初始化是人工方式还是自动方式 DragIcon确定在拖动过程显示的...
  • VB.NET之旅(十二)―事宜驱动

    千次阅读 2012-01-05 14:51:27
    比如Mousedown事件,系统需要断定mouse的位置、判断是左右哪个键点击了、判断点击了几下品等,因此该e就必需是System.Windows.Forms.MouseEventArgs类的范例...... “足以这样说,你难道看不出VB.NET提供给我们的...
  • VB版数字排序拼图小游戏 Option Explicit Dim Label2X As Integer '记录标签控件数组要移动的标签控件左上角X的位置 Dim Label2Y As Integer '记录标签控件数组要移动的标签控件左上角Y的位置 '让标签数组...

空空如也

空空如也

1 2 3
收藏数 42
精华内容 16
关键字:

vb中mousedown