你這是控件數(shù)組?你這明明就是9個不同的 TextBox 控件啊,只不過名字長得像而已。
站在用戶的角度思考問題,與客戶深入溝通,找到華龍網(wǎng)站設計與華龍網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站設計制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名注冊、網(wǎng)站空間、企業(yè)郵箱。業(yè)務覆蓋華龍地區(qū)。
我是VB.Net 2010,你看看能行不。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循環(huán)語句動態(tài)加入控件數(shù)組。
Dim FirstTextBox As New TextBox
'定義文本框?qū)ο?/p>
Me.Controls.Add(FirstTextBox)
'將一個文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'將文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默認文本。
Next
End Sub
End Class
vb.net和vb6.0不同,無法直接使用控件數(shù)組。不過可以通過其他方式變通一下。
比如現(xiàn)在有10個label,要將這10個label的text屬性統(tǒng)一設置為“這是第X個標簽”(X為1-10)。
1.建立10個label,名稱分別為label1、label2、label3。。label10
2.代碼:
For i = 1 To 10
Me.FindControl("label" i).Text = "這是第" i “個標簽”
Next i
關(guān)鍵點是Me.FindControl()的方法,在代碼中Me.FindControl("label1").text與label1.text是一樣的。