红糖水和白糖水的交换
2016-03-31 17:25
162 查看
打开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. 关闭窗体并在工具栏中单击“启动按钮”即可完成
相关文章推荐
- NSArray和NSMutableArray相互转换, 以及常用方法-备
- picturebox 图片自适应
- 出现15个数
- AngularJS 中的scope($scope)
- 写不对 = =
- jquery select取值,赋值操作
- 高德地图API笔记
- 如何用U盘安装CentOS7系统?U盘安装Centos
- 博弈论-囚徒困境与重复囚徒困境的启示
- 【BZOJ4236】JOIOJI【数学】【排序】【乱搞】
- APK极限压缩
- 线性表的链式表示和实现----循环(单)链表
- 国内各地图API坐标系统比较与转换
- plsql免客户端连接
- ReactiveCocoa - iOS开发的新框架
- 关于iPhone4s 设置手机铃声过程中的问题
- 通给给定旋转轴向量v,旋转角度ang,计算出旋转矩阵
- 【示例代码】 Tuple<T> Func<T>
- linux下修改tomcat内存大小
- KMCGeigerCounter——iOS动画帧速计算类库