红糖水 白糖水 互换

1.打开VB软件

2.在工具箱窗口找到Label，在窗体中适当位置创建，在右侧窗口中找到“caption”一栏并将后面改为“红糖水”。在右侧窗口中，双击forecolor将后面字体颜色改为红色，双击 font将字体调整为适当大小，双击backcolor将背景颜色改为黑色。

3.在工具箱窗口找到Label，在窗体中适当位置创建，在右侧窗口中找到“caption”一栏并将后面改为“白糖水”。在右侧窗口中，双击forecolor将后面字体颜色改为白色，双击 font将字体调整为适当大小，双击backcolor将背景颜色改为黑色，

4.在工具箱窗口找到command button的图标，单击图标并在窗体的适当位置创建，在属性窗口中找到caption并把其后面改为“交换”。

5.在窗体中双击“交换”，并在弹出的对话框中输入

Dim s As String

Dim a As LoadPictureColorConstants

s = Label1.Caption

Label1.Caption = Label2.Caption

Label2.Caption = s

a =Label1.ForeColor

Label1.ForeColor = Label2.ForeColor

Label2.ForeColor = a

6. 单击“启动”，可看到颜色互换。