将容器对象Picture1的包容控件Command1变成容器对象Picture2的包容对象？
如何在代码中将容器对象Picture1的包容控件Command1变成容器对象Picture2的包容对象？？ 问题点数：20、回复次数：5Top
1 楼bary1980（碧眼狐狸）回复于 2003-01-07 22:55:03 得分 0
我愿意出200分Top
2 楼bary1980（碧眼狐狸）回复于 2003-01-07 22:56:06 得分 0
请写出源代码Top
3 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2003-01-08 07:02:41 得分 5
Container 属性
返回或设置 Form 上控件的容器。在设计时不能使用。
语法
Set object.Container [= container]
Container 属性的语法包含下面部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
container 一个对象表达式其值是能够作为别的控件容器使用的对象，按照说明的描述。
说明
下面的控件能够容纳别的控件：
Frame 控件
PictureBox 控件.
SSTab 控件
Container 属性示例
该例子演示在 Form 对象上把 CommandButton 控件从一个容器移动到另一个容器。要试用此例，先将以下代码粘贴到包含一个 Frame 控件、一个 PictureBox 控件和一个 CommandButton 控件的窗体的声明部分，然后按下 F5 键。
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
4 楼liangfang（良芳&不见亦钟情）回复于 2003-01-08 08:51:06 得分 15
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'鼠标不在窗口时按键盘
Set Command1.Container = Picture1
Command1.Top = 0
Command1.Left = 0
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
'鼠标不在窗口时放开键盘
Set Command1.Container = Picture2
Command1.Top = 0
Command1.Left = 0
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
Set Command1.Container = Form1
Command1.Top = Y
Command1.Left = X
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set Command1.Container = Form1
Command1.Top = Y
Command1.Left = X
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set Command1.Container = Picture1
Command1.Top = Y
Command1.Left = X
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set Command1.Container = Picture2
Command1.Top = Y
Command1.Left = X
End Sub
Top
5 楼litsnake1（litsnake）回复于 2003-01-08 09:01:07 得分 0
又来晚拉，只有同意的分儿拉
Top
