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

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

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