vb.net 教程 3-13 动态创建控件3
来源:互联网 发布:网络连接错误 编辑:程序博客网 时间:2024/06/03 12:13
在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 SubEnd 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 SubEnd Class
运行时如下:
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
阅读全文
0 0
- vb.net 教程 3-13 动态创建控件3
- vb.net 教程 3-13 动态创建控件1
- vb.net 教程 3-13 动态创建控件2
- [VB.NET]控件:动态增加,动态创建?
- VB动态创建控件
- vb动态创建控件
- vb.net 教程 3-11 窗体控件综合编程 1
- VB中动态创建控件
- VB中动态创建控件
- VB中动态创建控件
- VB动态创建浏览器控件
- vb.net动态控件数组
- [VB.NET]反射问题,怎么通过动态创建的控件得到控件的方法!
- 动态创建和删除VB控件
- VB 动态创建ActiveX控件详解
- vb.net 教程 3-4 窗体编程 公共控件3 Listbox & NumericUpDown
- vb.net 教程 3-11 窗体控件综合编程 2-3
- vb.net 教程 3-4 窗体编程 公共控件9 ListView 3
- 判断在一个矩阵中是否存在一条包含某字符串所有字符的路径。(回溯法)
- 优先级队列
- DNS主从服务器配置及案例解析
- 新装MySQL的一系列问题
- android开发之路(1)-- 支付宝SDK集成
- vb.net 教程 3-13 动态创建控件3
- android studio 7.0 FileProvider问题详解及相机示例
- js模块化之sea.js
- Java多线程引发的性能问题以及调优策略
- CCF201709-5(树状数组单点更新区间求和)
- 一道来自华为的面试题 ---- 给定字符串,求出现次数最多的那个字母及次数,如有多个重复则都输出
- iOS开发之 一行命令统计iOS工程代码总行数
- 第十二周 项目(2)
- Spring.xml