版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

上一节讲了设计时创建控件，实际设计时候可以很方便地选择创建控件的事件代码，

 

本节讲一下不使用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 教程 目录

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/78596816