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

如题所述

第1个回答 2022-11-16

先定义一个控件(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怎么用代码创建控件数组?答：先定义一个控件(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...

在VB中什么叫做控件数组?答：在VB中创建控件数组时，开发者首先需要在窗体上创建多个相同类型的控件，例如多个按钮或文本框。然后，通过在代码中为这些控件指定相同的名称，并将它们的索引属性设置为不同的值，将它们组合成一个控件数组。例如，可以创建五个按钮控件，并将它们的名称都设置为“Button1”，但将它们的索引值...

如何创建vb数组控件答：'添加按钮Command1，Command2，然后将Command2的名称改为Command1，然后在其它地方随便点一下，这时就会弹出一个框问是否创建控件数组，点是就行了，这时你会发现控件的index变成2了，这样就创建了一个按钮控件数组Command1，当然你也可以继续添加按钮然后将名字改为Command1，可用如下代码测试数组下标：Priva...

VB控件数组怎么定义?答：这就能建立控件数组，双击控件得到下面的过程名：Private Sub Check1_Click(Index As Integer)If Check1(Index).Value = 0 Then Me.BackColor = &H8000000F ElseIf Check1(Index).Value = 1 Then Me.BackColor = &H8000000D End If End Sub 你再试试 ...

vb如何定义控件数组?答：但是也得先画第一个控件啊。画一个Option1，把他的Index设置为0.再建一个Command1用于添加其他的.代码如下。＝＝＝ Private Sub Command1_Click()Load Option1(Option1.UBound + 1)Option1(Option1.UBound).Visible = True Option1(Option1.UBound).Move Option1(0).Left,Option1(Option1.UBoun...

VB用代码创建控件数组?答：以下程序能完成您的需求：DimnAsIntegerPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)n=n+1LoadPicture1(n) '加载第N个成员Picture1(n).MoveX,Y'设置要显示的位置 mousedown事件的x和yPicture1(n).Visible=TrueEndSub ...

大家正在搜

VB 动态创建控件数组画图实例如何创建控件数组 labview创建数组控件如果创建了命令按钮数组控件 VB6控件数组画图不显示 labview索引数组怎么用控件数组是什么 labview数组显示控件 vb控件数组