加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

vb.net 教程 3-13 动态创建控件2

发布时间:2020-12-16 22:34:46 所属栏目:大数据 来源:网络整理
导读:上一节讲了设计时创建控件,实际设计时候可以很方便地选择创建控件的事件代码, 本节讲一下不使用withevents,如何在运行时创建一个带有事件的控件。 主要用到 AddHandler 语句: AddHandler event,AddressOf eventhandler event : 要处理的事件的名称。 ev
上一节讲了设计时创建控件,实际设计时候可以很方便地选择创建控件的事件代码,
本节讲一下不使用withevents,如何在运行时创建一个带有事件的控件。

主要用到 AddHandler 语句:
AddHandler event,AddressOf eventhandler
event要处理的事件的名称。
eventhandler将处理事件的过程的名称。
这里需要强调一下,eventhandler过程的参数必须符合该控件事件对应的参数,如果不知道怎么写,不妨实际拖拽一个对应控件到设计窗体看看。

还是动态创建一个按钮:

Public Class Form2

    Dim mybutton As Button
    Private Sub Form2_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        mybutton = New Button
        mybutton.Size = New Size(200,70)
        mybutton.Location = New Point(100,100)
        mybutton.Text = "按钮"
        mybutton.Visible = True

        Me.Controls.Add(mybutton)
        AddHandler mybutton.Click,AddressOf buttonclick
    End Sub


    Private Sub buttonclick(sender As Object,e As EventArgs)
        MessageBox.Show("这是一个按钮")
    End Sub
End Class

运行时如图:


我们可以通过参数 sender 来获得这个按钮(或其他动态创建的控件)的相关属性,
    Private Sub buttonclick(sender As Object,e As EventArgs)
        'MessageBox.Show("这是一个按钮")
        Dim thisButton As Button = CType(sender,Button)
        MessageBox.Show("我们按下了 " & thisButton.Text)
    End Sub
运行时如下:


由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看vb.net 教程 目录

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读