Question

vb中怎样交换两张图像框中的图片 不使用变量 不实用第三个图像框 求高手

Answer 1

Private Sub Command1_Click()

Clipboard.Clear

Clipboard.SetData Picture1

Picture1 = Picture2

Picture2.Picture = Clipboard.GetData

End Sub

或

Private Sub Command1_Click()

Text1.Text = Text1.Text & Text2.Text

Text2.Text = Mid(Text1.Text, 1, Len(Text1.Text) - Len(Text2.Text))

Text1.Text = Mid(Text1.Text, Len(Text1.Text) - Len(Text2.Text), Len(Text1.Text))

End Sub

扩展资料：

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量：在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源:百度百科-Visual Basic

Answer 2

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1
Picture1 = Picture2
Picture2.Picture = Clipboard.GetData
End Sub