主题：图片的复制与粘贴问题
ashihama2008
[专家分：100] 发布于 2009-02-06 11:18:00
谁能帮我解决这个问题吗？
能将picturebox中的图片复制到剪贴板后 可以 粘贴 到 其他程序（如word）中。
要代码。万分感激！
sundy656565@163.com
回复列表 （共9个回复）
沙发
一江秋水 [专家分：9680] 发布于 2009-02-06 13:57:00
只能粘贴到自身程序的窗口中（例如RTF文档的RichTextBox 控件），其它程序的粘贴是管不到的。
3 楼
tanchuhan [专家分：15140] 发布于 2009-02-06 14:56:00
Private Sub Form_Click()
Picture1.AutoRedraw = True
Picture1.Line (0, 0)-(1000, 1000)
Clipboard.Clear
Clipboard.SetData Picture1.Image
End Sub
4 楼
bcahzvip [专家分：6040] 发布于 2009-02-07 00:35:00
Private Sub Picture2_Click()
Dim oPic As StdPicture
Set oPic = Clipboard.GetData()
If Not (oPic Is Nothing) Then
Set Picture2.Picture = oPic
End If
End Sub
'这是读取剪贴板里的图片,并打印在 Picture2 上面. 可以接上面!~
5 楼
ashihama2008 [专家分：100] 发布于 2009-02-08 15:10:00
万分感谢两位大师！！
6 楼
bcahzvip [专家分：6040] 发布于 2009-02-09 06:20:00
但,你说的是"他程序"吧!~
可以用?
7 楼
wwc7654321 [专家分：1590] 发布于 2009-02-10 22:49:00
[quote]但,你说的是"他程序"吧!~
可以用?[/quote]
"他程序"?
8 楼
bcahzvip [专家分：6040] 发布于 2009-02-11 00:13:00
复制少了个字 = =;
"其他程序"
9 楼
ashihama2008 [专家分：100] 发布于 2009-02-11 11:08:00
可以粘贴到其他程序
我来回复
您所在位置：