动态生成控件并定位
来源:互联网 发布:轻淘客cms网站 编辑:程序博客网 时间:2024/05/16 10:44
Public Class form1
Private a(0 To 8) As Control
Private b(0 To 8) As Object
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
For i As Int16 = 0 To 8
If i < 3 Then
b(i) = New Int16
b(i) = 5
Debug.WriteLine(CType(b(i), Integer) & " 是" & TypeName(b(i)), ToString)
ElseIf i < 6 Then
b(i) = New String(CType("Welcome", Char()))
b(i) = "Welcome"
Debug.WriteLine(CType("Welcome", Char()) & " 是" & TypeName(b(i)), ToString)
ElseIf i < 7 Then
b(i) = New Label With {.BorderStyle = BorderStyle.Fixed3D, .Size = New Size(60, 60), .Location = New Point(60, 220)}
Controls.Add(CType(b(i), Control))
If TypeOf b(i) Is Label Then
Debug.WriteLine(TypeName(b(i)) & "是标签", ToString)
End If
End If
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReDim a(0 To 8)
For i As Int16 = 0 To 8
If i < 3 Then
a(i) = New Label With {.BorderStyle = BorderStyle.Fixed3D, .Size = New Size(60, 60), .Location = New Point(i * 60, 0)}
Controls.Add(a(i))
ElseIf i < 6 Then
a(i) = New Button With {.Size = New Size(60, 60), .Location = New Point((i - 3) * 60, 70)}
Controls.Add(a(i))
ElseIf i < 9 Then
a(i) = New TextBox With {.Size = New Size(60, 60), .Location = New Point((i - 6) * 60, 150)}
Controls.Add(a(i))
End If
Next
End Sub
End Class
本程序在 Visual Basic.net 2010下设计通过
- 动态生成控件并定位
- 动态生成控件 并捕捉事件
- 动态生成控件并取值
- vb.net动态生成控件并排版
- 动态生成控件并设置布局参数
- asp.net动态生成控件,并为控件绑定事件
- c#动态生成控件,并为控件注册事件
- 如何动态生成页面控件,并取到值?(.net)
- JS创建HTML控件并动态生成页面的写法
- layout中的控件动态生成并自动换行
- Android 动态生成多个控件并实现点击
- 树控件的动态定位
- 动态生成控件
- VB 动态生成控件
- 动态生成控件
- 动态生成自定义控件
- 动态生成控件
- 动态生成控件web
- 编程题--任意给出一个四位数, 把它重新组成一个四位的最大数和一个最小数, 算出两者间的差
- Java Web服务器开发概述 一
- 黑马程序员--内部类与异常
- 单片机c51例程——不断更新中。。。
- 蓝光刻录的几点体会
- 动态生成控件并定位
- svm经典论文
- 修改完Linux内核后,如何发布自己的补丁文件【图解】
- 反向代理
- AC自动机
- C# datagridviewcomboxcolumn数据的绑定与值的显示
- Effective C++ 慎用private继承
- Like 运算符的用法
- twilio开发