Question

跪求高手帮忙解决VB问题

VB如何交换两个图片框中的内容，Picture1中放入图片1，picture2中放入图片2，单击命令按钮，使得两图片框交换图片，不得使用变量，不得使用第三个图片框
注：我使用的picture1.picture=loadpicture("图片2路径及文件名")
picture2.picture=loadpicture("图片1路径及文件名")
交换文件，但显示文件不存在
请求代码
哦，谢谢回答，不过这是一道考试题，希望有满足题意的答案，希望大家帮帮忙，不得使用变量，不得使用第三个图片框

Answer 1

哈哈哈，既然不可以用变量也不可以用第三个框，那就只可以用窗体来当中转了哈：

建一个Command
Private Sub Command1_Click()
Set Picture = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Me.Picture
Set Picture = Nothing
end sub

Answer 2

答案补充：按照你的要求，这个题目无法实现。另谋高人吧。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim p As IPictureDisp
Set p = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = p
Set p = Nothing
End Sub

Answer 3

private command1_click()
SavePicture Picture1, lujing1
SavePicture Picture2, lujing2
picture2.picture = loadpicture(lujing1)
picture1.picture = loadpicture(lujing2)
end sub

你也可以放在剪贴板里
clipboard.senddate

不要直接复制 我是手写的没运行过
自己看着办吧

Answer 4

Private Sub Command1_Click()
ClipBoard.SetData pic1.Picture
pic1.Picture = pic2.Picture
pic2.Picture = ClipBoard.GetData()
End Sub
调用剪贴板可以吧