VB.NET 用二維數(shù)組的方式動(dòng)態(tài)加控制 例如在窗體上動(dòng)態(tài)添加GroupBox，然后再在GroupBox里動(dòng)態(tài)添加控件

下面這段代碼完成，在窗體上用語句添加2個(gè) GroupBox控件，且在每個(gè)GroupBox控件中添加4個(gè) RadioButton 控件。

創(chuàng)新互聯(lián)建站專注于企業(yè)網(wǎng)絡(luò)營銷推廣、網(wǎng)站重做改版、裕安網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、成都h5網(wǎng)站建設(shè)、商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為裕安等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

'添加2個(gè)GroupBox

Dim MyGroupBox(2) As GroupBox

For i = 1 To 2

'將一個(gè)GroupBox控件加入到Form上

MyGroupBox(i) = New GroupBox

Me.Controls.Add(MyGroupBox(i))

'設(shè)置該GroupBox控件的屬性

MyGroupBox(i).Height = 240

MyGroupBox(i).Width = 600

MyGroupBox(i).Top = (i - 1) * (240 + 20) + 20

MyGroupBox(i).Left = 20

'修改新加入控件的Text值

MyGroupBox(i).Text = "GroupBox" CStr(i)

Next

'每個(gè)GroupBox中添加4個(gè)單選按鈕

Dim MyRadioButton1(4) As RadioButton

Dim MyRadioButton2(4) As RadioButton

For i = 1 To 4

MyRadioButton1(i) = New RadioButton

Me.Controls.Add(MyRadioButton1(i))

MyRadioButton1(i).Parent = MyGroupBox(1)

'設(shè)置該GroupBox控件的屬性

MyRadioButton1(i).Height = 20

MyRadioButton1(i).Width = 120

MyRadioButton1(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton1(i).Left = 20

'修改新加入控件的Text值

MyRadioButton1(i).Text = "RadioButton1_" CStr(i)

Next

For i = 1 To 4

MyRadioButton2(i) = New RadioButton

Me.Controls.Add(MyRadioButton2(i))

MyRadioButton2(i).Parent = MyGroupBox(2)

'設(shè)置該GroupBox控件的屬性

MyRadioButton2(i).Height = 20

MyRadioButton2(i).Width = 120

MyRadioButton2(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton2(i).Left = 20

'修改新加入控件的Text值

MyRadioButton2(i).Text = "RadioButton2_" CStr(i)

Next

End Sub

VB里面能不能定義公用的動(dòng)態(tài)二維數(shù)組

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

問題描述:

我知道能定義一維的，可是可以是二維的嗎？

解析:

可以,在標(biāo)準(zhǔn)模塊中定義:

要?jiǎng)?chuàng)建動(dòng)態(tài)數(shù)組，請(qǐng)按照以下步驟執(zhí)行：

（如果希望數(shù)組為公用數(shù)組，則）用 Public 語句聲明數(shù)組，或者，（如果希望數(shù)組為模塊級(jí)，則）在模塊級(jí)用 Dim 語句聲明數(shù)組，或者（如果希望數(shù)組為局部數(shù)組，則）在過程中用 Static 或 Dim 語句聲明數(shù)組。給數(shù)組附以一個(gè)空維數(shù)表，這樣就將數(shù)組聲明為動(dòng)態(tài)數(shù)組。

ReDim 語句用來定義或重定義原來已經(jīng)用帶空?qǐng)A括號(hào)（沒有維數(shù)下標(biāo)）的 Private、Public 或 Dim 語句聲明過的動(dòng)態(tài)數(shù)組的大小。

例:

標(biāo)準(zhǔn)模塊

Option Explicit

Public BL() As String

窗體部分

Option Explicit

Dim i As Integer

Dim j As Integer

Private Sub Command1_Click()

ReDim BL(5, 10) As String

For i = 0 To 2

For j = 0 To 5

BL(i, j) = i ^ 2 + j ^ 2

Next

Next

For i = 0 To 2

For j = 0 To 5

Print BL(i, j)

Next

Next

End Sub

VB.NET 動(dòng)態(tài)二維數(shù)組如何循環(huán)賦值和取值

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

雙重循環(huán)，賦值和讀取一樣

本文題目：vb點(diǎn)虐 動(dòng)態(tài)二維數(shù)組 vba創(chuàng)建二維動(dòng)態(tài)數(shù)組
本文地址：http://vcdvsql.cn/article38/ddsippp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、ChatGPT、做網(wǎng)站、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)公司

廣告

聲明：本網(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í)需注明來源： 創(chuàng)新互聯(lián)