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://blog.csdn.net/uruseibest/article/details/78596816

栏目列表