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 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 教程 目录

原文地址：https://www.jb51.cc/vb/256301.html