vb.net数字控件,VB net

vb.net 怎样创建控件数组？

Dim Str(20) As String '20数据元素

Dim Text(20) As TextBox

Dim n As Integer = 0

For Each i In Text

i = New TextBox '实例化

i.Location = New Point(50, n * 20)

Me.Controls.Add(i) '添加窗体

Dim Index As Integer = i.TabIndex '没index属性

Str(n) = Index

i.Text = Str(n) 'str数组值赋值给文本框

n += 1

Next

相关问答

Q1: VB.NET有什么控件可以像EXCEL表格那样直观地显示数组数据的？

VB中表格控件有很多，如MSFlexGrid，DataGrid，MSHFlexGrid等等

使用的多的是微软的FlexGrid控件。

通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。

Q2: VB.NET 怎么获取控件后面的数字

如果你能确保你的label空间名称是以label开头，并且后面是数字的话，可以通过Sender.Name的方式来获取控件名称，再用Substring来截取后面的数字。

Private

Sub

Label1_MouseEnter(sender

As

Object,

e

As

EventArgs)

Handles

Label1.MouseEnter,

Label2.MouseEnter

'sender.name就是用来获取当前触发事件的控件的名称

Dim

n

As

Integer

n

=

Int(sender.name.ToString.Substring(5))

Call

Menter(n)

End

Sub