在vb中如何实现任意两图像控件中的图像被点击后交换

实现任意两图像控件中的图像被点击后交换的代码：

Private Sub Picture1_Click()'

MePicture = Picture1Picture'

Picture1Picture = Picture2Picture'

Picture2Picture = MePicture'

MePicture = Nothing'

End Sub

扩展资料：

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

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

Sub swap(ByRef X As Integer, ByRef Y As Integer)

Dim temp As Integer

temp = X

X = Y

Y = temp

End Sub

在这个 SUB 过程中，我们首先声明了一个名为 temp 的整数变量，用于保存 X 的值。然后，我们将 Y 的值赋给 X，将 temp 的值赋给 Y，从而完成了两个变量的值交换。

Private Sub Command1_Click()

Text3Text = Text1Text

Text1Text = Text2Text

Text2Text = Text3Text

Text3Text = ""

End Sub

Private Sub Form_Load()

Command1Caption = "交换"

Text3Visible = False

End Sub

建3个文本 一个按钮 代码如上~ 可以将TEXT3设置为隐藏

============或者这样更简单 2个文本就可以了 一个按钮

Private Sub Command1_Click()

Text1Tag = Text1Text

Text1Text = Text2Text

Text2Text = Text1Tag

End Sub

Private Sub Form_Load()

Command1Caption = "交换"

End Sub

只有一种方法可以实现用SendMessage函数,这个函数就是处理windows里面的消息传递的这个函数超级强大当然也十分复杂你可以把X与Y值制成自定义消息再发给另外一个程序具体实现方法,你可以参考网上sendmessage函数用法实在不知就加我为好友,我慢慢教你!!!

以上就是关于在vb中如何实现任意两图像控件中的图像被点击后交换全部的内容，包括:在vb中如何实现任意两图像控件中的图像被点击后交换、用vb语言编写一个有两个整数X和Y的名为swap的SUB过程,功能是交换两个变量的、输入两个不同的数,交换数据,显示出来 (写代码,设计界面)用VB编写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！