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

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

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

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

Dim i As Integer

'添加2個GroupBox

Dim MyGroupBox(2) As GroupBox

For i = 1 To 2

'將一個GroupBox控件加入到Form上

MyGroupBox(i) = New GroupBox

Me.Controls.Add(MyGroupBox(i))

'設置該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

'每個GroupBox中添加4個單選按鈕

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)

'設置該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)

'設置該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里面能不能定義公用的動態(tài)二維數組

分類: 電腦/網絡 程序設計 其他編程語言

問題描述:

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

解析:

可以,在標準模塊中定義:

要創(chuàng)建動態(tài)數組，請按照以下步驟執(zhí)行：

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

ReDim 語句用來定義或重定義原來已經用帶空圓括號（沒有維數下標）的 Private、Public 或 Dim 語句聲明過的動態(tài)數組的大小。

例:

標準模塊

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 動態(tài)二維數組如何循環(huán)賦值和取值

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

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

本文題目：vb點虐 動態(tài)二維數組 vba創(chuàng)建二維動態(tài)數組
本文地址：http://sd-ha.com/article38/ddsippp.html

成都網站建設公司_創(chuàng)新互聯，為您提供移動網站建設、ChatGPT、做網站、網站導航、品牌網站設計、網頁設計公司

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯