Button.performclick()[通俗易懂]

Button.performclick()[通俗易懂] (1)WinForm中,Button按钮有PerformClick()方法,可以模拟用户单击鼠标.即button.PerformClick()生成按钮的事件。相关网站为:http://msdn2.microsoft.com/zh-cn/library/system.windows.forms.button.performclick(VS.80).aspx(2)在一些事件处理程序中,比如Fo

大家好,又见面了,我是你们的朋友全栈君。

 (1)WinForm中,Button按钮有PerformClick()方法,可以模拟用户单击鼠标. 即button.PerformClick()生成按钮的事件。相关网站为:http://msdn2.microsoft.com/zh-cn/library/system.windows.forms.button.performclick(VS.80).aspx

(2)在一些事件处理程序中,比如Form窗体的Click事件 Form_Click(parameter1,parameter2 )、Button按钮的Click事件Button_Click()等等,可以直接调用相应的按钮代码在其相应的事件处理程序中执行。先看下面两例:

事例1:Visual Basic

Private Sub button1_Click(sender As Object, e As EventArgs)
    ‘ If myVar is an even number, click Button2.
    If myVar Mod 2 = 0 Then
        button2.PerformClick()
        ‘ Display the status of Button2’s Click event.
        MessageBox.Show(“button2 was clicked “)
    Else
        ‘ Display the status of Button2’s Click event.
        MessageBox.Show(“button2 was NOT clicked”)
    End If
    ‘ Increment myVar.  
    myVar = myVar + 1
End Sub ‘button1_Click

事例2:
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cust As Customer
        cust.Company = “Bottom-Dollar Markets”
        cust.Manager = “Elizabeth Lincoln”
        cust.Address = “23 Tsawassen Blvd.”
        cust.City = “Tsawassen”
        cust.Country = “Canada”
        cust.CustomerSince = #10/20/1996#
        cust.Balance = 33500
        Customers(0) = cust

        cust = New Customer()
        cust.Company = “Drachenblut Delikatessen”
        cust.Manager = “Sven Ottlieb”
        cust.Address = “Walserweg 21”
        cust.City = “Aachen”
        cust.Country = “Germany”
        cust.CustomerSince = #1/2/1994#
        cust.Balance = 2400
        Customers(1) = cust

        cust = New Customer()
        cust.Company = “Furia Bacalhau e Frutos do Mar”
        cust.Manager = “Lino Rodriguez “
        cust.Address = “Jardim das rosas n. 32”
        cust.City = “Lisboa”
        cust.Country = “Portugal”
        cust.CustomerSince = #12/22/1998#
        cust.Balance = 300
        Customers(2) = cust

        cust = New Customer()
        cust.Company = “Great Lakes Food Market”
        cust.Manager = “Howard Snyder”
        cust.Address = “2732 Baker Blvd.”
        cust.City = “Eugene, OR”
        cust.Country = “USA”
        cust.CustomerSince = #1/3/1998#
        cust.Balance = 6500
        Customers(3) = cust

        cust = New Customer()
        cust.Company = “QUICK-Stop”
        cust.Manager = “Horst Kloss”
        cust.Address = “Taucherstra遝 10”
        cust.City = “Cunewalde”
        cust.Country = “Germany”
        cust.CustomerSince = #1/1/1989#
        cust.Balance = 23400
        Customers(4) = cust

        cust = New Customer()
        cust.Company = “The Cracker Box”
        cust.Manager = “Liu Wong”
        cust.Address = “55 Grizzly Peak Rd.”
        cust.City = “Butte”
        cust.Country = “USA”
        cust.CustomerSince = #1/1/1999#
        cust.Balance = 23400
        Customers(5) = cust

        cust = New Customer()
        cust.Company = “White Clover Markets”
        cust.Manager = “Karl Jablonski”
        cust.Address = “305 – 14th Ave. S.”
        cust.City = “Seattle, WA”
        cust.Country = “USA”
        cust.CustomerSince = #5/11/1994#
        cust.Balance = 12000
        Customers(6) = cust

        cust = New Customer()
        cust.Company = “Wilman Kala”
        cust.Manager = “Matti Karttunen”
        cust.Address = “Keskuskatu 45”
        cust.City = “Helsinki”
        cust.Country = “Finland”
        cust.CustomerSince = #1/3/2000#
        cust.Balance = 2500
        Customers(7) = cust

        bttnNext.PerformClick()       执行bttnNext_Click()的功能
    End Sub

     Private Sub bttnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnNext.Click
        If currentIndex = CountCustomers() Then currentIndex = 0   把当前索引的值与Customers数组里的元素数量相比,如果它们相等,就把currentIndex = 0  
        Dim aCustomer As Customer
        aCustomer = GetCustomer(currentIndex)
        ShowCustomer(currentIndex)
        currentIndex = currentIndex + 1
    End Sub                  

    Function GetCustomer(ByVal idx As Integer) As Customer
        Return (Customers(idx))
    End Function            自定义函数,此函数返回当前记录值

    Function CountCustomers() As Integer
        Return (Customers.Length)
    End Function            自定义函数,此函数返回Customers数组里的记录数量

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/150165.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • javaScript的基本语法结构「建议收藏」

    javaScript的基本语法结构「建议收藏」javaScript的基本语法结构一、javascript程序带的文本二、javascript中的注释三、字面量四、标识符和保留字标识符保留字五:可选的分号一、javascript程序带的文本vascript区分大小写。这就意味着他的关键字,变量,函数名和其他标识符必须始终保持一致的大小写格式二、javascript中的注释//这是单行注释/*这也是注释*///而这是另一个注释/**这是多行注释*每行开头的*字符不是必要的,只是为了美观*/三、字面量字面量(litera

  • django 聚合函数_python聚合函数

    django 聚合函数_python聚合函数前言orm模型中的聚合函数跟MySQL中的聚合函数作用是一致的,也有像Sum、Avg、Count、Max、Min,接下来我们逐个介绍聚合函数所有的聚合函数都是放在django.db.models

  • vue使用富文本编辑器tynimce并实现图片上传_富文本编辑器有什么用

    vue使用富文本编辑器tynimce并实现图片上传_富文本编辑器有什么用vue-富文本编辑器Vue-Quill-Editor使用官网文档,可以参照文档进行使用https://www.kancloud.cn/liuwave/quill/1434140简单的使用:首先安装依赖:npminstallvue-quill-editor–save然后可以在全局挂载或者在单页面挂载单页面挂载示例:importVuefrom’vue’importVueQuillEditorfrom’vue-quill-editor’//requirestyles

    2022年10月14日
  • c语言—数组详解(建议收藏)

    c语言—数组详解(建议收藏)文章目录一、一维数组1.一维数组的创建和初始化(1).数组的创建(2).数组的初始化2.一维数组的使用3.一维数组在内存中的存储二、二维数组1.二维数组的创建和初始化(1).二维数组的创建(2).二维数组的初始化2.二维数组的使用3.二维数组在内存中的存储三、数组作为函数参数1.一维数组2.二维数组四、数组指针和指针数组1.指针数组2.数组指针一、一维数组1.一维数组的创建和初始化(1).数组的创建数组是一组相同类型元素的集合。数组的创建方式:type_tarr_name[const

  • Linux中,常常会用到 vim ,其中 q ,wq wq!的区别,以及 vim -r 的作用[通俗易懂]

    w->表示保存退出wq!->表示强制保存退出,可以保存”readonly”只读文件q->在vim中表示退出q!->表示强制不保存退出,不对文件进行保存wq和wq!的区别如下:有些文件设置了只读,一般不是修改文件的,但是如果你是文件的owner或者root的话,通过wq!还是能保存文件退出如果文件设置为只读了的话,用:wq命令是不能保存并退出的,但是最高权限者可通过wq!来进行文件的保存并退出文件。已设定选项‘readonly’(请加!强制执行)!.

  • 内网IP和公网IP的区别及作用

    内网IP和公网IP的区别及作用说明:本文仅是针对网络知识懵懂人事的一篇白话解说文,并非技术探讨及进阶文章,各位看官自行甄选;本文仅以ipv4为基础。使用网络的人必然会接触IP地址,ip地址又分内网(私有)ip和公网(外网)ip地址,那么他们之间的区别是什么?为什么要分为内网和外网ip?何时使用哪种ip今天我就用大白话的形式,给大家举一个例子,希望能对各位对于ip有一个初步的了解。拿一个家庭来举例,一般你的路由器以内,就是内网,并且路由器内连接的所有设备或终端都会被分配一个内网ip;反之,路由器及以外就是外网ip,这个外网ip通常

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号