打开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. 最后直接“启动按钮”

vb6做了一个简单的activeX控件，还算是简单，在项目选择上选activeX控件，就会出现一个没有边框的form，随便放上一个label，设定是center（中间对齐），选择背景黑色，前景红色，字体24，和VC比起来，vb可以设定字号，背景和前景颜色，vc可以设定y方向上的center。
vc想在static上面设定颜色，需要在ctlcolor上做，不过也不难，问题是需要设定大小合适，否则会有白边。vc的边框更复杂一些。
当然vc也可以使用edit来做显示，只要不要编辑选项就是了。
add-in加入activeX控件接口工具，load，ok。add-in菜单中就有了一个activeX的借口助手（activeX contral interface wizard），选择很简单，把不相干的全去掉，免得麻烦，碍眼。单独加上my custom member，因为只有一个label1，随便定义一个“项目名称”就可以了，选择是property，当然还有method，event可选，以后再试方法和事件，和label1的caption对应好，此处是关键，也就是说对外来说是这个控件的项目名称属性就是对应着内部的label1的caption，所以外部的对控件的项目名称的改动就是对label1的caption的改动，如果只是期待作为一个显示的窗口来说，这个label的好处是不可被外部更改的，特定内容的显示器。
调用很简单，把这个窗体关掉，好了，在控件菜单里面就有了一个新的控件了，当然，真正的ocx控件，还是需要生成一下的，在file菜单下有个生成选项，而后再用regsvr32命令加载一下就是了，再添加部件就可以用了。很简单，就不多说了。
新建一个标准exe文件，把控件拉上来就是了，再加入一个按钮，按钮给这个控件的项目名称赋值就可以了，当然一般要用到format命令，好让这个项目名称一致，就像是固定长度的标准显示器，别看这个东西很简单，但是在vc里面实现同样的功能还有点麻烦呢，所以在vb里面生成几个遮掩多个东西，在vc里面去用的话，还是不错的呢。

 
实验名称：红糖水白糖水的交换



打开电脑桌面上的VB软件


在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击
 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。


在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“白糖水”。在属性窗口中，双击forecolor将后面字体颜色改为白色，双击
 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色，


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


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

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

6.在工具栏中单击“启动”即可出现效果。
15电气郄慧敏15050341023



实验名称：红糖水白糖水的交换



打开VB软件


在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击
 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。


在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“白糖水”。在属性窗口中，双击forecolor将后面字体颜色改为白色，双击
 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色，


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


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

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

6.在工具栏中单击“启动”即可出现效果

2016物理与电子信息学院
 15电气1班齐振昊15050341022