1,451
社区成员
发帖
与我相关
我的任务
分享如何动态创建数组控件，高手请进
下面的代码可以自动创建控件，但不能是数组控件
Option Explicit
Dim oControl As Object '窗体级变量
Private Sub Command1_Click()
Set oControl = Controls.Add("VB.TextBox", "MyButton")
oControl.Move 10, 10, 2000, 380
oControl.Visible = True '使控件可见
End Sub
Option Explicit
Dim oControl As Object '窗体级变量
Private Sub Command1_Click()
Set oControl = Controls.Add("VB.TextBox", "MyButton")
oControl.Move 10, 10, 2000, 380
oControl.Visible = True '使控件可见
End Sub
...全文
请发表友善的回复…
发表回复
wingchi 2003-09-15
- 打赏
- 举报
up
hxy1982 2003-09-15
- 打赏
- 举报
up!!
jshyjyw 2003-09-15
- 打赏
- 举报
学习中。。。
northwolves 2003-09-11
- 打赏
- 举报
'add a commandbutton whose name is "newbutton"and index is 0,visiable is false
Option Explicit
Private Sub Form_Click()
addcmdline
End Sub
Sub addcmdline()
Me.WindowState = 2
On Error Resume Next
Dim i As Long
For i = 0 To 99
Load newbutton(i)
newbutton(i).Left = (i Mod 10) * 1000 + 1050
newbutton(i).Top = (i \ 10) * 500 + 550
newbutton(i).Caption = "cmd" & i
newbutton(i).Width = 900
newbutton(i).Height = 400
newbutton(i).Visible = True
Next
Me.ForeColor = vbRed
Me.DrawWidth = 3
For i = 0 To 10
Me.Line (1000, 500 + i * 500)-(11000, 500 + 500 * i)
Me.Line (1000 + i * 1000, 500)-(1000 + 1000 * i, 5500)
Next
End Sub
Private Sub newbutton_Click(Index As Integer)
MsgBox " You have clicked " & newbutton(Index).Caption, 64
End Sub
Option Explicit
Private Sub Form_Click()
addcmdline
End Sub
Sub addcmdline()
Me.WindowState = 2
On Error Resume Next
Dim i As Long
For i = 0 To 99
Load newbutton(i)
newbutton(i).Left = (i Mod 10) * 1000 + 1050
newbutton(i).Top = (i \ 10) * 500 + 550
newbutton(i).Caption = "cmd" & i
newbutton(i).Width = 900
newbutton(i).Height = 400
newbutton(i).Visible = True
Next
Me.ForeColor = vbRed
Me.DrawWidth = 3
For i = 0 To 10
Me.Line (1000, 500 + i * 500)-(11000, 500 + 500 * i)
Me.Line (1000 + i * 1000, 500)-(1000 + 1000 * i, 5500)
Next
End Sub
Private Sub newbutton_Click(Index As Integer)
MsgBox " You have clicked " & newbutton(Index).Caption, 64
End Sub
sysmaster 2003-09-11
- 打赏
- 举报
要求不要太高哦,这已是最好的了,你只要放一个就行了,别的都动态生成!
danielinbiti 2003-09-11
- 打赏
- 举报
楼主的方法没法创建控件数组，应该只能用lihonggen0的方法
lilaclone 2003-09-11
- 打赏
- 举报
将控件的初始的可见属性设为False不就行了，还是用Load的方法方便一些
liuli263 2003-09-11
- 打赏
- 举报
问题是不用Load的话怎么动态生成，Load我会，但是这样的话就必须现在Frm上摆控件
lihonggen0 2003-09-11
- 打赏
- 举报
'先有form1上加一个text1 (0)
Private Sub Form_Load()
For i = 1 To 10
Load Text1(i)
Text1(i).Top = 400 * i + 200
Text1(i).Left = 20
Text1(i).Visible = True
Next
End Sub
Private Sub Form_Load()
For i = 1 To 10
Load Text1(i)
Text1(i).Top = 400 * i + 200
Text1(i).Left = 20
Text1(i).Visible = True
Next
End Sub
