# 如何将PaintPicture的图形存档或放到CLIPBOARD中

Posted by 陈春雨 on June 15, 1998 at 21:46:55:

各位网友好:
小弟现有一个需求如下:
1.要将9张图片依九宫格方式接在一起.
2.接好后的新图形可存档或放到CLIPBOARD中
但我始终抓不到(但执行看得到)接合后的图形???
程式约略如下:
Private Sub Command1_Click()
Dim pic1 As Object
Dim Pic2 As Object
Dim pic3 As Object

Set pic1 = LoadPicture("c:\vb\102.bmp")
Set Pic2 = LoadPicture("c:\vb\102.bmp")
Set pic3 = LoadPicture("c:\vb\102.bmp")

Picture1.AutoRedraw = True
Picture1.PaintPicture pic1, 0, 0
Picture1.PaintPicture Pic2, 0, 200
Picture1.PaintPicture pic3, 0, 400
SavePicture Picture1, "c:\103.bmp" '此行将因picture中无图像资料而出现错误讯息
Clipboard.SetData Picture1.Picture, 2 '执行后clipboard中空无一物
End Sub

为何用PAINTPICTURE所绘出的图形只能看而不能用呢???

Follow Ups:

- Picture 和 Image 属性要分清楚 小吴 18:04:16 6/16/98 (1)
  - Re: 解决了!! 谢谢您!! 陈春雨 00:05:50 6/17/98 (0)