锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net二维动态数组 vba创建二维动态数组

IT技术数组

VB.NET 用二维数组的方式动态加控制 例如在窗体上动态添加GroupBox，然后再在GroupBox里动态添加控件下面这段代码完成 ， 在窗体上用语句添加2个 GroupBox控件，且在每个GroupBox控件中添加4个 RadioButton 控件 。
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) * (24020)20
MyGroupBox(i).Left = 20
'修改新加入控件的Text值
MyGroupBox(i).Text = "GroupBox"CStr(i)
【vb.net二维动态数组 vba创建二维动态数组】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) * (2020)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) * (2020)40
MyRadioButton2(i).Left = 20
'修改新加入控件的Text值
MyRadioButton2(i).Text = "RadioButton2_"CStr(i)
Next
End Sub
VB里面能不能定义公用的动态二维数组分类:电脑/网络程序设计其他编程语言
问题描述:
我知道能定义一维的，可是可以是二维的吗？
解析:
可以,在标准模块中定义:
要创建动态数组，请按照以下步骤执行：
（如果希望数组为公用数组，则）用 Public 语句声明数组，或者，（如果希望数组为模块级，则）在模块级用 Dim 语句声明数组，或者（如果希望数组为局部数组，则）在过程中用 Static 或 Dim 语句声明数组 。给数组附以一个空维数表，这样就将数组声明为动态数组 。
ReDim 语句用来定义或重定义原来已经用带空圆括号（没有维数下标）的 Private、Public 或 Dim 语句声明过的动态数组的大小 。
例:
标准模块
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 ^ 2j ^ 2
Next
Next
For i = 0 To 2
For j = 0 To 5
Print BL(i, j)
Next
Next
End Sub
VB.NET 动态二维数组如何循环赋值和取值for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
双重循环，赋值和读取一样
vb.net二维动态数组的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vba创建二维动态数组、vb.net二维动态数组的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何搭建聚石塔服务器？ 聚石塔服务器怎么做的

    下一篇：Java泛型开源代码，java 泛型实现