Dim Str(20) As String '20數(shù)據(jù)元素
成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),阿榮網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:阿榮等地區(qū)。阿榮做網(wǎng)站價(jià)格咨詢:18980820575
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '實(shí)例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗體
Dim Index As Integer = i.TabIndex '沒(méi)index屬性
Str(n) = Index
i.Text = Str(n) 'str數(shù)組值賦值給文本框
n += 1
Next
VB.net中沒(méi)有控件數(shù)組的說(shuō)法。
替代方法:
·創(chuàng)建一個(gè)控件的類型數(shù)組: Button[],將所有的button控件創(chuàng)建好后存進(jìn)去,可以遍歷它;
·或?qū)⑺幸闅v的控件放在一個(gè)容器如Panel中,以后遍歷這個(gè)容器的子控件即可。
----------
你的情況,推薦放在容器中。比如下面就是一個(gè)遍歷容器的控件,然后找出所有的文本框并修改內(nèi)容的程序:
//pn 是個(gè) Panel 控件
foreach (Control item in pn.Controls)
{
if (typeof(TextBox) == item.GetType())
{
((TextBox)item).Text = "我是動(dòng)態(tài)修改的!";
}
}
1、vb.net的
數(shù)組定義與變量定義差不多??梢杂?/p>
dim
來(lái)定義
比如:
dim
a(100)
as
integer。
也可以不定義下標(biāo)
在程序中
用
redim
來(lái)定義。
如:
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定義數(shù)組可以直接賦值。
如:
dim
a()
as
integer
={1,
2,
3,4}
文章標(biāo)題:關(guān)于vb.net實(shí)例化數(shù)組的信息
URL鏈接:http://aaarwkj.com/article48/dssgsep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供虛擬主機(jī)、自適應(yīng)網(wǎng)站、營(yíng)銷型網(wǎng)站建設(shè)、商城網(wǎng)站、響應(yīng)式網(wǎng)站、網(wǎng)站內(nèi)鏈
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)