怎样可以复制对象？？？

Question

Private Sub Command1_Click()
Dim aaa As New Form1
aaa.Visible = True
End Sub仅供参考

Answer 1

Picture(0).PaintPicture Picture(1).Picture, 0, 0

Answer 2

我要进步!
这样也通不过！我在1上用line画了条线,一运行就提示我图片无效！

Answer 3

    Picture2.AutoRedraw = True
    Picture2.Line (0, 0)-(200, 200)
    Picture1.PaintPicture Picture2.Image, 0, 0

Answer 4

大家看看：都是些什么东些？
这就是所谓的高手！！！回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 10:58:04)  得0分 
Private Sub Command1_Click()
Dim aaa As New Form1
aaa.Visible = True
End Sub不就是一行代码吗？
Set picturebox(0).picture=picturebox(Index).pivture
仅供参考  回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 11:03:34)  得0分 
用另外的一个窗体来显示啊  

Answer 5

大家看看：都是些什么东些？
这就是所谓的高手！！！回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 10:58:04)  得0分 
Private Sub Command1_Click()
Dim aaa As New Form1
aaa.Visible = True
End Sub仅供参考  回复人：　dbcontrols(泰山__帮助你使我感到快乐.)　(2002-1-25 11:03:34)  得0分 
用另外的一个窗体来显示啊  
不就是一行代码吗？
Set picturebox(0).picture=picturebox(Index).pivture

Answer 6

Bardo(巴顿):我哪个帖子说我是高手了？
Bardo(巴顿):我不去搭理你就算了，何必象疯狗那样没完没了？ 
Bardo(巴顿):以后我们大路朝天，各走一边，别以为我好惹！我不愿意搭理你这种不耻于人类的狗屎堆！ 

Answer 7

picturebox(0).picture=picturebox(index).picture 或
picturebox(0).image=picturebox(index).image
都可以

Answer 8

picturebox(0).picture=picturebox(index).picture 

Answer 9

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Sub Command1_Click()
Dim x As Long
Picture1.Cls
Picture1.Line (0, 0)-(100, 500)x = BitBlt(Picture2.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy)
End Sub

Answer 10

picturebox(0).picture=picturebox(index).Image
应该用Picturebox(index)的Image属性
而且,Picturebox(index)的AutoReDraw应设为True

Answer 11

同意楼上的
还不明白可以查autoredraw在msdn中的帮助
写的很清楚

Answer 12

上面的代码已经调试过，在copy之前的图片所有修改都会复制过去的