VB2008控件数组全解(绝对经典,代码为本人自行设计并调试运行成功~~)
2011-11-20 16:13
316 查看
VB2008控件数组(绝对经典~~)
1.VB2008控件数组不再支持(但还可引用vb6中的数组,并按vb6规则处理)
在 Visual Basic 6.0 中,控件数组可用于管理窗体上的控件;它们提供的功能可共享事件处理程序、循环访问控件组以及在运行时添加控件;
Visual Basic 2008 中不再支持控件数组。对事件模型的更改使控件数组不再必需.
2.vb6与vb2008控制数组差异
在 Visual Basic 6.0 中,可使用 Load 语句在运行时向控件数组添加控件。控件必须和控件数组是同一类型,并且控件数组必须在设计时创建,且必须带有至少一个元素。添加
控件后,必须将 Visible 属性设置为 True;
在 Visual Basic 2008 中,通过在 Dim 语句中使用 New 关键字,然后将 Add 方法用于要添加控件的容器,可在运行时添加控件.
3.vb2008控件数组(还按vb6说法,vb2008不再使用控件数组)
以下一段程序代码是在窗体上生成10个TextBox,并让他执行同一段代码的程序代码;
在窗体上放置一个Button控件(该控制名使用默认值);
在程序代码窗口中粘贴如下代码:
运行后就可以看到窗体上显示的10个Txtbox
点击各个txtbox,就会调用txtclick过程,在相应的txtbox中输入不同的内容;
代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer, Txtbox As TextBox
For i = 1 To 10
Txtbox = New TextBox
Txtbox.Left = 100
Txtbox.Top = (Txtbox.Height + 3) * (i - 1)
Txtbox.Width = 200
Txtbox.Name = "txtbox" & i
Txtbox.Tag = i
Me.Controls.Add(Txtbox)
AddHandler Txtbox.Click, AddressOf TxtClick
Next
End Sub
Private Sub TxtClick(ByVal Sender As TextBox, ByVal e As System.EventArgs)
Select Case Sender.Name
Case "txtbox1" To "txtbox5"
Sender.Text = Sender.Name & "前面五个窗口,程序开发:张绪军QQ:258020191"
Case Else
Sender.Text = Sender.Name & "后面五个窗口"
End Select
End Sub
End Class
1.VB2008控件数组不再支持(但还可引用vb6中的数组,并按vb6规则处理)
在 Visual Basic 6.0 中,控件数组可用于管理窗体上的控件;它们提供的功能可共享事件处理程序、循环访问控件组以及在运行时添加控件;
Visual Basic 2008 中不再支持控件数组。对事件模型的更改使控件数组不再必需.
2.vb6与vb2008控制数组差异
在 Visual Basic 6.0 中,可使用 Load 语句在运行时向控件数组添加控件。控件必须和控件数组是同一类型,并且控件数组必须在设计时创建,且必须带有至少一个元素。添加
控件后,必须将 Visible 属性设置为 True;
在 Visual Basic 2008 中,通过在 Dim 语句中使用 New 关键字,然后将 Add 方法用于要添加控件的容器,可在运行时添加控件.
3.vb2008控件数组(还按vb6说法,vb2008不再使用控件数组)
以下一段程序代码是在窗体上生成10个TextBox,并让他执行同一段代码的程序代码;
在窗体上放置一个Button控件(该控制名使用默认值);
在程序代码窗口中粘贴如下代码:
运行后就可以看到窗体上显示的10个Txtbox
点击各个txtbox,就会调用txtclick过程,在相应的txtbox中输入不同的内容;
代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer, Txtbox As TextBox
For i = 1 To 10
Txtbox = New TextBox
Txtbox.Left = 100
Txtbox.Top = (Txtbox.Height + 3) * (i - 1)
Txtbox.Width = 200
Txtbox.Name = "txtbox" & i
Txtbox.Tag = i
Me.Controls.Add(Txtbox)
AddHandler Txtbox.Click, AddressOf TxtClick
Next
End Sub
Private Sub TxtClick(ByVal Sender As TextBox, ByVal e As System.EventArgs)
Select Case Sender.Name
Case "txtbox1" To "txtbox5"
Sender.Text = Sender.Name & "前面五个窗口,程序开发:张绪军QQ:258020191"
Case Else
Sender.Text = Sender.Name & "后面五个窗口"
End Select
End Sub
End Class
相关文章推荐
- 视频播放代码 正在做 还没有调试 成功
- iphone IPhone开源代码 绝对经典!
- 绝对经典的滑动门特效代码
- 调试查看CLR运行代码
- 到现在为止,成功调试完成我的第一个Java程序,意味着我也要进行Java这一行了,请看我的代码!
- IPhone开源代码 绝对经典!
- Swift学习笔记(一)搭配环境以及代码运行成功
- 仅三行代码的按键扫描程序,绝对够经典(秒杀郭天祥讲解的按键扫描)
- 如何调用一个程序,等待运行结束,并知晓程序运行成功与否:ShellExecuteEx;WaitForSingleObject;GetExitCodeProcess(C代码)
- 如何在学习openGL时单步调试时,直观看到当前代码的运行结果
- 重构:改善既有代码的设计(软件开发的不朽经典)
- 超搞笑的设计模式诠释(绝对经典)
- VS编程代码调试运行
- 网页注册机运行成功了!!!那个激动啊!!(VC下纯C代码) 记下我编写注册机的全过程
- 超搞笑的设计模式诠释(绝对经典)
- Tensorflow学习笔记(对MNIST经典例程的)的代码运行
- 研究QDir类的一个经典调试代码
- 本站点 头文件 本人代码由centos6.5虚拟机运行
- 运行成功的最新进度条代码
- iphone 开源代码 绝对经典!