红糖水与白糖水的交换
2016-03-27 10:26
197 查看
打开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. 关闭窗体并在工具栏中单击“启动按钮”即可完成
在左侧工具箱窗口找到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. 关闭窗体并在工具栏中单击“启动按钮”即可完成
相关文章推荐
- Vmware中为Mac Os安装vmtools
- Python中threading的join和setDaemon的区别及用法[例子]
- [面试] C/C++ —— MFC
- [leetcode] 122.Best Time to Buy and Sell Stock II 动归 or 贪心
- leetcode 30. Substring with Concatenation of All Words
- bzoj 2631 tree
- 几种进程间的通信方式
- DNS过程
- android四大组件学习笔记--Activity
- Java学习笔记之多线程
- Linux虚拟机安装
- Volley框架的下载及源码报错解决
- spring MVC原理
- 关于opencv编译出现importerror:../../lib/libopencv_core.so cannot share or open问题
- 大数取余
- CentOS 7安装MYSQL5.7(access denied问题解决方法)
- 在C语言中解析JSON配置文件
- Android为什么要设计出Bundle而不是直接使用HashMap来进行数据传递?
- Memcached
- bzoj1005(prufer+组合+高精度)