怎么自动为控件取名
如何自动为控件取名?
我想根据某变量值动态的创建一些控件,比如listview
思路:定义一个变量i,根据i值来动态的创建listview并自动为其命名
比如:dim i as intger
i=3
这时想定义3个listview控件并为其命名
i=4
......依次类推
该如何实现呢?这些动态生成的控件以后又怎么使用呢?比如想往某个listview里加东西,怎么写呢?
------解决方案--------------------
您可以用控件数组来做。
------解决方案--------------------
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim t As Integer = 3
Dim left As Integer = 12
Dim top As Integer = 12
Dim lb(t) As ListBox
For i As Integer = 0 To t - 1
lb(i) = New ListBox
With lb(i)
.Left = left
.Top = top + 100 * i
End With
Me.Controls.Add(lb(i))
Next
lb(0).Items.Add( "Item1 ")
lb(1).Items.Add( "Item1 in lb(1) ")
lb(2).Items.Add( "Another item ")
End Sub
End Class
我想根据某变量值动态的创建一些控件,比如listview
思路:定义一个变量i,根据i值来动态的创建listview并自动为其命名
比如:dim i as intger
i=3
这时想定义3个listview控件并为其命名
i=4
......依次类推
该如何实现呢?这些动态生成的控件以后又怎么使用呢?比如想往某个listview里加东西,怎么写呢?
------解决方案--------------------
您可以用控件数组来做。
------解决方案--------------------
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim t As Integer = 3
Dim left As Integer = 12
Dim top As Integer = 12
Dim lb(t) As ListBox
For i As Integer = 0 To t - 1
lb(i) = New ListBox
With lb(i)
.Left = left
.Top = top + 100 * i
End With
Me.Controls.Add(lb(i))
Next
lb(0).Items.Add( "Item1 ")
lb(1).Items.Add( "Item1 in lb(1) ")
lb(2).Items.Add( "Another item ")
End Sub
End Class