红糖水白糖水的转换--郝汉森
2016-03-24 17:44
211 查看
Private Sub 变换_Click()
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
End Sub
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
End Sub
相关文章推荐
- 3个数比大小
- 比大小
- WM_PARENTNOTIFY的作用(不完全)
- POJ训练计划2777_Count Color(线段树/成段更新/区间染色)
- 《2015年中国邮件营销行业数据报告》
- SQL写法规范(创建,更新等)
- Litepal创建表时报错 an exception that indicates there was an error with sql parsing or execution
- 【Android】webview javascript 注入方法
- MySQL存储引擎--简介入门
- ZOJ 3846 GCD Reduce(数学)
- C++学习笔记2——对象数组与对象指针
- 20160324.2
- 比较15个数的大小
- vb作业
- 2016.3.24(2)
- 比较15个数的大小1
- 通知模式实现两个textField传值及模态视图——iOS开发
- 3个数排序
- RMAN Restore backup of lower version database to a higher version
- java对象传递小解析