精华内容
下载资源
问答
  • “ 本节课程一起学习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
    
    展开全文
  • 我有btnStart.Click事件的以下函数,但我如何实际告诉Visual Basic’假装有人点击了按钮并触发此事件’?我试过非常简单,基本上可行.但是,Visual Studio给我一个警告变量’sender’在被赋值之前被使用,所以我猜这不是...

    我有一个具有开始按钮的表单(允许用户根据需要反复运行进程),并且我想在表单加载时发送btnStart.Click事件,以便进程自动启动.

    我有btnStart.Click事件的以下函数,但我如何实际告诉Visual Basic’假装有人点击了按钮并触发此事件’?

    我试过非常简单,基本上可行.但是,Visual Studio给我一个警告变量’sender’在被赋值之前被使用,所以我猜这不是真正的方法:

    Dim sender As Object

    btnStart_Click(sender, New EventArgs())

    我也尝试过使用RaiseEvent btnStart.Click,但是会出现以下错误:

    ‘btnStart’ is not an event of ‘MyProject.MyFormClass

    Imports System.ComponentModel

    Partial Public Class frmProgress

    Private bw As BackgroundWorker = New BackgroundWorker

    Public Sub New()

    InitializeComponent()

    ' Set up the BackgroundWorker

    bw.WorkerReportsProgress = True

    bw.WorkerSupportsCancellation = True

    AddHandler bw.DoWork, AddressOf bw_DoWork

    AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged

    AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted

    ' Fire the 'btnStart.click' event when the form loads

    Dim sender As Object

    btnStart_Click(sender, New EventArgs())

    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click

    If Not bw.IsBusy = True Then

    ' Enable the 'More >>' button on the form, as there will now be details for users to view

    Me.btnMore.Enabled = True

    ' Update the form control settings so that they correctly formatted when the processing starts

    set_form_on_start()

    bw.RunWorkerAsync()

    End If

    End Sub

    ' Other functions exist here

    End Class

    展开全文
  • 我想点击改变入出力的值,点击初始化时的入出力会变成1,再点击变成女数值2,还要使 入出力一行的checkbox可以点击选择和取消。怎样做到datagridview中header数值的变化和checkbox的选中与取消
  • Public Class Form1 Private WithEvents aaa As New Button Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Me.Controls.Add(aaa) ...
    Public Class Form1 
        Private WithEvents aaa As New Button 
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
     Handles Button1.Click 
             
            Me.Controls.Add(aaa) 
    
        End Sub 
         
        Private Sub aaa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aaa.Click 
            MsgBox("!!!") 
        End Sub 
    End Class 

    新建一个带有一个按钮<button1>的form1窗体,复制代码并替换。

    展开全文
  • VB.Net窗体控件响应键盘回车等事件的实例 乐博网原创文章以下实例演示了VB.Net窗体控件Textbox1响应键盘回车事件Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms....

    VB.Net窗体控件响应键盘回车等事件的实例  乐博网原创文章

    以下实例演示了VB.Net窗体控件Textbox1响应键盘回车事件

    Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

    If e.KeyCode = Keys.Enter Then

    Msgbox("乐博网提示你:你按了回车啦")

    End If

    End Sub

    KeyCode中 Keys属性 可以有多种选择 当我们按到Keys.位置时 将会出现可选的属性,你可以选择响应其他键盘事件如用户按了F1或者ESC退出等。

    如图:

    2871834_1.jpg

    而当我们在选取属性的时候  会发现旁边有个小提示窗,如图:

    2871834_2.jpg

    我们能看到Enter 对应了一个数值 =13 ,那是否意味着也可以通过键盘事件的返回数值判断用户按了什么键?

    没错的,调整e的属性就可以实现这个转变,实例如下:

    Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

    If e.KeyValue = 13 Then   ' 13代表了Enter回车键的对应数值

    MsgBox("乐博网提示你:你按了回车啦")

    End If

    End Sub

    展开全文
  • 49. 捕获 WebBrowser 控件的鼠标事件VB 的网页浏览控件 WebBrowser 没有 MouseDown、MouseMove、MouseUp 等鼠标事件,要在程序中捕获这些事件,必须另想办法。本文使用注入 java 脚本的方法来捕获控件的鼠标事件。另...
  • 日期:2020-03-24 / 浏览:157 / 评论:0visualbasic(vb.net)中按下键盘上某个按键事件触发(以回车键为例)的应用场景最近写程序遇到一个问题,几个查询条件+一个按钮,用户在选好(填好)查询条件后都需要点击按钮才能...
  • VB.net点击表格

    2021-06-24 02:11:15
    我从这个代码项目帖子中删除了代码:http://www.codeproject.com/Articles/12877/Transparent-Click-Through-Forms这是一个复杂的版本,包含所有评论 – 优点:Imports System.Runtime.InteropServicesPublic Class ...
  • 满意答案ywwlg2013.04.26采纳率:42%等级:13已帮助:9064人想做个程序让它自动点击网页中的提交按钮,我已经从网上找了很久,虽然找到了一个方法是可以找到按钮并提交的,代码如下:Dim Dov As ObjectDim Tag As ...
  • vb文本框字体加粗 vb字体加粗代码

    千次阅读 2021-01-13 18:06:15
    怎么改变VB中文本框字体颜色?为所选颜色上色。要使用此属性,必须首先将flags属性设置为cdlccfeffects。Fontbold是否选择了粗体。Fontitalics是否选择了斜体。Fontstrikethru是否选择了删除线。Fontunderline是否...
  • (1)点击“Add Root(添加根)”按钮,则在结点编辑框中出现了一个结点(默认名为NodeN),可根据树型的需要,将其他结点添加到这棵树上。如果你是windowsxp用户,进入桌面“开始”>“控制面板”菜单>“添加或删除...
  • 当单选按钮的value设为true时,相当于进行click事件。 [程序演示] [程序下载] Select Case语句是VB提供的又一种条件语句,用来实现多分支选择(见教材第三章)。 Select Case语句的一般格式如下: Select Case 变量 ...
  • A.Caption B.Value C.Name D.Index 3、单选按钮的Click事件是在下列任种情况下才会被触发。() A.单击选中时B.单击取消时C.只要单击时D.单击命令按钮 三、编写一个简单的个人情况表单,界面如下: 界面1 ...
  • 现在学VB编程还有前途吗?目前,没有必要使用VB进行应用程序开发。与VB相关的唯一市场可能是officevba相关的开发,这是office软件(如word、Excel和PowerPoint)的二次开发,但VBA也是VB的一个子集。不建议以特殊的...
  • VB与JAVA交互

    2021-04-18 02:16:42
    VB与JAVA交互Private Sub Command1_Click()Dim dso As New XMLDSOControlDim doc As IXMLDOMDocumentSet doc = dso.XMLDocumentDim rel As IXMLDOMNodeListSet x = CreateObject("Microsoft.XMLHTTP")x.Open "GET", ...
  • 1、VB期末考试试题及答案一、 填空题1、VB程序设计的主要特点是 可视化设计 和 事件编程 。2、在VB中,最主要的两种对象是窗体(form)和控件。3、工程是构成应用程序文件的集合。4、方法是VB提供的一种特殊子程序,...
  • VB连接Mysql数据库

    2021-02-11 22:07:16
    然后下载安装MysqL,odbc驱动需要... 或者简单点找到ado控件 扔到窗口上 再删除 也行在vb中连接数据库的代码:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 定义数据库连接字符串变量Dim strCn A...
  • VB中,所有的程序错误都是用数字表示的,如53则表示未找到文件的错误码,其实要知道哪个错误码表示哪种错误也并不难,当你在VB中运行这个程序时,如果出现了错误,会有一个错误的提示框,在该提示框中则有该错误...
  • 在每年的全国计算机二级考试中,有哪些vb相关的真题呢?下面是学习啦小编给大家整理的计算机历年全国计算机vb二级考试真题,供大家参阅!计算机vb二级考试真题一基本操作题请根据以下各小题的要求设计Visual Basic...
  • 题库-vb程序题 |编写一个复制字符串的程序,如图所示。界面要求:使用文本框、命令按钮完成。运行要求:、点击“清除”按钮,将所有的文本框内容清空;、点击“复制”按钮,如上面文本框有选中的文本,则将选中的...
  • vb小程序(用vb编写简单小程序实例)

    千次阅读 2021-08-01 03:13:52
    如何用VB6.0版编写一个变色的程序?在窗体添加一个标签,一个计时器控件,Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = "字体随机变色" End Sub Private Sub .用VB...
  • radio取消选中时触发事件android radiobutton点击后一直是选中状态,怎么再Radiobutton既单选框,多个单选框中必须有一个是选中的,如果你想选择之后又取消,那么要使用CheckBox来实现改变它的状态,方式有三种:XML中...
  • VB程序设计基础题

    千次阅读 2021-06-04 12:02:40
    文章目录 前言 本文是一些基础题给同学们练习练习,认为太简单的同学可以点击我头像看其他VB题。 内容
  • VB中listview控件

    2021-07-02 14:05:37
    选中ListView控件,单击右键,选择“ListViewCtrl Properties”,在General页面框中选中下列复选框: LabelWrap:文本可换行 Checkboxes:显示复选框 FullRowSelect:整行选定 清除FlatScrollBar的选定,控件将显示...
  • VB判断整除并求和

    2021-08-03 01:08:38
    Private Sub Command1_Click()Dim m As Integer, n As Integer, d As IntegerDim s As Longm = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)s = 0Sum m, n, d, sLabel4.Caption = m &...
  • vb计算机实验报告.doc

    2021-07-17 03:27:35
    vb计算机实验报告vb计算机实验报告篇一:vb实验报告范本.doc福建农林大学计算机与信息学院课程名称:姓 名:系:专 业:年 级:学 号:指导教师:职 称:(程序设计类课程)实验报告Visual Basic程序设计教程 洪景泉...
  • Option Explicit Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const LB_ITEMFROMPOINT ...
  • 11计算机专业VB试题(二)11年级计算机专业VB试题(二)出题人:马玉辉选择题:下列操作不能向工程中添加窗体的是( )A:执行“工程”菜单中的“添加窗体”命令B:单击工具栏中的“添加窗体”按钮C:用鼠标右键单击窗体,...
  • 科学计算器vb代码

    2021-07-29 03:45:17
    《科学计算器vb代码》由会员分享,可在线阅读,更多相关《科学计算器vb代码(30页珍藏版)》请在人人文库网上搜索。1、用VB写计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本计算器的基础上,加入...
  • vb基本操作

    2021-06-30 00:33:37
    单击交换图片。 P1.Picture = LoadPicture("pic2.jpg") P2.Picture = LoadPicture("pic1.bmp") 5.通过复选框选课.Private Sub C1_Click() Dim s1 As String s1 = "我选的课是" If Ch1.Value = 1 And Ch2.Value = 0 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 54,025
精华内容 21,610
关键字:

vb单击事件