就是在代码里点击某个按纽的时候,在点击事件里复制一个在界面上已经存在的第三方控件
根据你的描述 只能用控件数组才能实现
先在窗体上建立一个 List1(0)
Private Sub Command1_Click()
Load List1(1) 'Load List1(1).......Load List1(n) 可以复制n个都没问题
With List1(1)
.Left = List1(0).Left + List1(0).Width
.Top = List1(0).Top
.Visible = True
.AddItem "2"
End With
End Sub
Private Sub Form_Load()
List1(0).AddItem "1"
End Sub
先在窗体上建立一个 List1(0)
Private Sub Command1_Click()
Load List1(1) 'Load List1(1).......Load List1(n) 可以复制n个都没问题
With List1(1)
.Left = List1(0).Left + List1(0).Width
.Top = List1(0).Top
.Visible = True
.AddItem "2"
End With
End Sub
Private Sub Form_Load()
List1(0).AddItem "1"
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-07-20
可以事先复制好向这个控件,并且使这个控件不可见,然后在单机这个按钮的事件中设置相应属性使之可见。
第2个回答 2011-07-20
Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton ", "Cmd ", Form1
With Form1!cmd
.Visible = True
.Width = 2000
.Height = 500
.Left = 2000
.Top = 1000
.Caption = "成了 "
End With
End Sub
运行它。追问
Form1.Controls.Add "VB.CommandButton ", "Cmd ", Form1
With Form1!cmd
.Visible = True
.Width = 2000
.Height = 500
.Left = 2000
.Top = 1000
.Caption = "成了 "
End With
End Sub
运行它。追问
是复制一个控件,你这样好像是动态的创建控件,臂如我界面上已经有一个名为 EjunTreeGrid1 的第三方控件,我要复制一个
追答这样啊,我再搞