-
打开VB软件
-
在左侧工具箱窗口找到Label,在窗体中适当位置创建一个图标,在右侧属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中,双击forecolor将字体颜色改为红色,双击font将后面的字体调整为适当大小,双击backcolor选择适当背景颜色。
-
在左侧工具箱窗口找到Label,在窗体中适当位置创建一个图标,在右侧属性窗口中找到“caption”一栏并将后面改为“白糖水”。在属性窗口中,双击forecolor将后面字体颜色改为白色,双击font将后面的字体调整为适当大小,双击backcolor选择适当背景颜色。
-
在左侧工具箱窗口找到command button的图标,在窗体中适当位置创建一个图标,在右侧属性窗口中找到caption并把其后面改为“交换”。
-
双击交换
-
cls
-
me.font.size=50
-
Dim a As String
-
a = Me.Label1.Caption
-
Me.Label1.Caption = Me.Label2.Caption
Me.Label2.Caption = a
Dim b As String
b = Me.Label1.ForeColor
Me.Label1.ForeColor= Me.Label2.ForeColor
Me.Label2.ForeColor = b
11. 最后直接“启动按钮”