超傻瓜VB。。。有人没？

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:46:02
Private Sub Command1_Click(Index As Integer)
Label1.Caption = "成功了吗？"
Picture1 = Picture2
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Picture1_Click()

End Sub

怎样在按下command1时Picture1与Picture2对换图片？ 或着label1与label2对换？

刚学10分钟，大狭帮忙
谁能解释下二楼的回答每行的具体含义吗，确认可以用了。（虽然辛苦，但是没分了，帮忙？）比如Dim pic As OLE。。。
或着有不用创建第三张图片的方法有吗？

Private Sub Command1_Click() '交换pic图片
Set OLE = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = OLE
End Sub
Private Sub Command2_Click() '交换lab
Dim la As String
la = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = la
End Sub

Public path1 As String, path2 As String

Private Sub Command1_Click()

Dim t As String
t = path1
path1 = path2
path2 = t
Picture1.Picture = LoadPicture(path1)
Picture2.Picture = LoadPicture(path2)

End Sub

Private Sub Form_Load()
Form1.Show
path1 = "D:\我的图片\tusiji_mydown0206\兔斯基\1.gif"
path2 = "D:\我的图片\tusiji_mydown0206\兔斯基\2.gif"
Picture1.Picture = LoadPicture(path1)
Picture2.Picture = LoadPicture(path2)

End Sub

Private Sub Command1_Click()
Label1.Caption = "成功了吗？"
Picture1.Picture