求教,怎样动态改变一个对象的所属容器?
怎样动态改变一个对象的所属容器。如一个label1在一个picturebox1中,要在程序运行时,将它换到另一个picturebox2中,如何实现? 问题点数:40、回复次数:1Top
1 楼blp(★★★)回复于 2001-12-31 16:46:39 得分 40
Private Sub Form_Click()
Static intX As Integer
Select Case intX
Case 0
Set Command1.Container = Picture1
Command1.Top= 0
Command1.Left= 0
Case 1
Set Command1.Container = Frame1
Command1.Top= 0
Command1.Left= 0
Case 2
Set Command1.Container = Form1
Command1.Top= 0
Command1.Left= 0
End Select
intX = intX + 1
End Sub
Top




