RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
vb.net创建控件数组 vb 控件组

vb2022可以创建控件数组吗

创建“Windows应用程序”类型的工程,添加名为ButtonArray的类,并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类,通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。

目前创新互联公司已为上千的企业提供了网站建设、域名、虚拟空间、绵阳服务器托管、企业网站设计、镇宁网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

2、为ButtonArray类添加ParentForm属性,即控件组所在窗体,创建初始化函数(构造函数);

3、为控件数组类增加AddItem方法,该方法在控件数组类中添加成员;

4、为控件数组类增加RemoveItem方法,该方法在控件数组中删除一个成员。

vb.net2013中创建控件数组

我是VB.Net 2010,你看看能行不。

Public Class Form1

Private MyTextBoxArray As New ArrayList

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

Dim i As Integer

For i = 0 To 8 '利用循环语句动态加入控件数组。

Dim FirstTextBox As New TextBox

'定义文本框对象

Me.Controls.Add(FirstTextBox)

'将一个文本框控件加入到Form上

MyTextBoxArray.Add(FirstTextBox)

'将文本框控件加入到例表集合中

MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置

MyTextBoxArray.Item(i).left = 100

FirstTextBox.TabIndex = i

'修改新加入控件的TabIndex值

MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默认文本。

Next

End Sub

End Class

VB怎么用代码创建控件数组?

先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) 这句是关键,,,,,\x0d\x0a Option1(i).Top = Option1(0).Top\x0d\x0a Option1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200\x0d\x0a Option1(i).Visible = True\x0d\x0a Next\x0d\x0a Option1(0).Caption = "10"\x0d\x0a Option1(1).Caption = "15"\x0d\x0a Option1(2).Caption = "20"\x0d\x0a Option1(3).Caption = "30"\x0d\x0a End Sub\x0d\x0a\x0d\x0aPrivate Sub Option1_Click(Index As Integer)\x0d\x0a Text1.FontSize = Val(Option1(Index).Caption)\x0d\x0aEnd Sub

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


网页标题:vb.net创建控件数组 vb 控件组
转载注明:http://lswzjz.com/article/dohshho.html