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

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

在vb6的时候,很方便在设计的时候创建控件数组。

例如两个按钮控件(CommandButton),当修改其中一个控件名称与另外一个控件名称一样时,vb6编辑器会提示:

按下“是”就会创建控件数组了,两个按钮区别在于Index属性不同:

在实际代码中可以看到,事件参数中多了 Index as Integer,也就是通过Index指明了是哪个具体的按钮:

那么在vb.net中,如果输入了相同的名称:

也就是通过设计时候创建控件数组是行不通的。那么在代码中如何实现?

Public Class Form3

    Dim mybutton() As Button

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ReDim mybutton(3)
        For i As Integer = 0 To 3
            mybutton(i) = New Button
            mybutton(i).Size = New Size(100, 40)
            mybutton(i).Location = New Point(10 + i * 120, 100)
            mybutton(i).Text = "按钮" & i
            Me.Controls.Add(mybutton(i))
            AddHandler mybutton(i).Click, AddressOf buttonclick
        Next
    End Sub

    Private Sub buttonclick(sender As Object, e As EventArgs)
        Dim clickButton As Button = CType(sender, Button)
        MessageBox.Show("我按下了 " & clickButton.Text)
    End Sub

End Class

基本步骤如下:

1、创建一个窗体级控件数组

2、窗体载入时,实例化各个控件

3、设置各个控件的属性,不是每个属性都必要。

4、窗体上增加控件

5、添加控件事件

6、创建相应的事件

运行如图:

要区分具体哪个按钮,可以采用一个偷懒的方法,把按钮的index写入 tag 属性:

Public Class Form3

    Dim mybutton() As Button

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ReDim mybutton(3)
        For i As Integer = 0 To 3
            mybutton(i) = New Button
            mybutton(i).Size = New Size(100, 40)
            mybutton(i).Location = New Point(10 + i * 120, 100)
            mybutton(i).Text = "按钮" & i
            mybutton(i).Tag = i
            Me.Controls.Add(mybutton(i))
            AddHandler mybutton(i).Click, AddressOf buttonclick
        Next
    End Sub

    Private Sub buttonclick(sender As Object, e As EventArgs)
        Dim clickButton As Button = CType(sender, Button)
        MessageBox.Show("我按下了第 " & clickButton.Tag & " 个按钮!")
    End Sub

End Class

运行时如下:


 

 

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

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

 

 

 

 

 

 

 

 

 

 

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值