宽窄、数量、位置……等等属性。我们利用VBA语言进行编程，不外乎就是为了控制某个对像的某个属性值以方便我们的工作罢了！
对于对像、属性、方法、事件，我们先了解这么多，在实例六我们将继续对其进行学习。今天，我们先试试这些知识在窗体与控件上的运用吧！
一、界面制作
1、打开VBE，指向“插入”菜单，点击“插入用户窗体”命令（也可以在工具栏中做同样的动作。），窗体的名称默认为“UserForm1”，如图4—1。
2、点击控件工具箱按钮，打开控件工具箱，选中工具箱中的“按钮”控件，在窗体上“画”出一个按钮控件（“按钮控件”就是控件工具箱中的那个方形的小块。），按钮的名称默认为“CommandButton1”。
二、属性赋值方法之一：
注意，下面进入今天的关键知识点：
1、首先，双击做好的窗体或按钮，就会打开代码窗口。保证光标在窗体或按钮代码的正中间，按下F5键运行它，或在“运行”菜单中选择“运行用户窗体或子过程”命令运行它，看看效果。如图4-2左面。
这里需要注意两点：
A、如果光标不在代码中间，而您的模块中又还存在其它的代码的话，运行时，VBE会让您选择要运行的宏名称；
B、如果工程被锁定而不能运行的话，首先请在“工具——宏——安全性”对话框中把安全性设为“低”，然后删除VBE中所有存在的代码，并关闭Word，等一下再重新启动，重新开始本步的操作。当然，如果您VBE中以前的代码需要保存的话，最好把它剪切到其它文本中去，要用时再复制过来。最后，千万记得在本实例完成之后，把“安全性”改回为高，以避免宏病毒。
2、右击按钮CommandButton1，选“属性”，（如果“属性”对话框本来就的打开的，则选中按钮CommandButton1，然后直接修改属性就行了。）在“属性”对话框中选“Caption”，在右面的属性值中输入“开始运行”。保存后，再次运行，看看与第１步运行时相比，效果有什么不同？对，按钮上面的提示文字已经改变成“开始运行”了。对比效果如图4-2。 以上这两个步骤中，需要我们应该掌握的知识就是“怎样在属性对话框中，对控件的属性进行赋值”。下面，我们还要为控件的属性赋值，但赋值的方法有所不同，请注意体会以下赋值方法与上面的区别。
三、属性赋值方法之二
请撤消前面添加“开始运行”属性的操作，回到按钮表面提示文字仍然是“CommandButton1”时的状态，双击“CommandButton1”将打开“CommandButton1”的代码窗口，代码窗口已为我们生成了控件被单击时的空过程。现在，我们就在这个“CommandButton1”的Click事件（即按钮被单击的事件）空过程中，添加如下的代码：
’’’========用代码修改属性======== Private Sub CommandButton1_Click() CommandButton1.Caption = \开始运行\End Sub
本实例之初，我们学习了为对像的属性赋值的格式，那么，您看到代码“CommandButton1.Caption = \开始运行\应该不难理解吧？代码中的CommandButton1是指窗体上的那个按钮，如果有多个按钮的话，就会分别被命名为CommandButton2、CommandButton3……等等。如果要解释上面的程序，就应该是：当按钮被“Click”（单击）时，按钮的“Caption”（提示文字）就被改变为“开始运行”。
运行本程序并单击按钮看看出现了什么效果？在按钮被单击前，运行的效果与第1步一样（与图4-2左面相同。）；当按钮被单后，是不是与第2步运行时的情况一样？（与图4-2右面相同。）
第2步中，我们是“先设计好了”按钮的提示文字再运行；第3步中，我们根本没有“设计”按钮的提示文字，而是已经“在窗体运行的时候”利用了按钮的单击事件，改变了按钮表面的提示文字。对于第2步中的做法，我们称之为“设计时”修改控件，对于第三步中的做法，我们称之为“运行时”修改控件。 “设计时”修改控件的属性虽然更方便、更容量掌握，但它往往没有“运行时”修改控件属性那么灵活。下面我们再做一个例子，动态改变按钮与窗体的属性值。再体会体会“运行时”修改属性值的灵活性。将前面的代码修改如下：
‘==========利用单击按钮事件，动态改变按钮名与窗体颜色=========== Private Sub CommandButton1_Click()
If CommandButton1.Caption = \CommandButton1.Caption = \开始运行\
ElseIf CommandButton1.Caption = \开始运行\CommandButton1.Caption = \点我干嘛，别烦我！\
ElseIf CommandButton1.Caption = \点我干嘛，别烦我！\UserForm1.BackColor = RGB(255, 128, 128)
CommandButton1.Caption = \想让我给你点颜色吗？\
ElseIf CommandButton1.Caption = \想让我给你点颜色吗？\UserForm1.BackColor = RGB(0, 128, 64)
CommandButton1.Caption = \你真的不怕我变脸吗？\
ElseIf CommandButton1.Caption = \你真的不怕我变脸吗？\UserForm1.BackColor = RGB(128, 0, 255)
CommandButton1.Caption = \怕了你了，我逃！\
Else: CommandButton1.Caption = \怕了你了，我逃！\
Unload UserForm1’“Unload”是窗体的一个方法，其作用是卸载窗体。
End If End Sub
本程序中用到了窗体的颜色属性（BackColor）及其属性值（RGB）的知识，我们在利用VBA对Word中的文字进行修饰时，经常会用到颜色属性及其值的设置，这里正好学习一下。代码最后的“Unload”是窗体的一个方法，其作用是卸载窗体，与平时我们关闭窗体时按右上角最大、最小化按钮那里的“X”按钮等价。有卸载就有加载，加载并显示窗体的命令是“Show”，该命令的使用格式是“窗体名.Show”。 本实例的知识扩展：
1、朋友们在“设计时”属性设置中，下点功夫摸索摸索，尽快熟悉窗体、按钮的各种属性；
2、本例只用到了“控件工具箱”中的按钮控件，其它的控件虽然在作用上各不相同，但在使用的方法上与按钮控件没有什么大的区别，朋友们就自己尝试一下其它的控件吧；
3、请您制作一个窗体，上面加上两个按钮，一个按钮运行实例三中的游戏，另一个按钮退出游戏。
实例四到此结束，怎么样，有收获吗？下一个实例“Word版的媒体播放器”，将是我们前面知识的一个集中练习，也将是一个会让您很有“成就感”的练习。还等得及吗？——
从零开始，步入Word宏编程的世界（第五讲）
实例五：Word版的“媒体播放器”
知识点：1、进一步熟悉VBE的操作界面；
2、学习使用窗体与控件进行编程； 3、学习运用附加的控件进行编程。
通过以上四个实例的学习，今天，我们终于迎来了激动人心的时刻——编写一个“Word版的媒体播放器”！“媒体播放器”大家不会陌生吧？对，就是开始——程序——附件——娱乐中的“Media player播放器”！相信本实例会给您带来成就感！也算是对我们前四个实例辛苦学习的一点点回报吧！当然，在高兴之余，千万不要忘了对本实例中知识点的学习。其实，本实例中，理论知识上的难度几乎没有，但操作上的步骤却相当多，朋友们耐心一点。
步骤一：界面的制作
1、回忆实例四中的操作方法，在VBE中添加一个窗体，窗体上添加两个按钮。将窗体的“Caption”属性改为“Word版媒体播放器”，再分别将两个按钮的“Caption”属性改为“开始运行”与“结束程序”。 2、右击控件工具箱，选“附加控件”，将“附加控件”面板的滚动条拖动到最底端，然后选中“Windows Media player”控件。“确定”后，退出“附加控件”面板（图5-1）。这时控件工具箱最下面就多出了一个网格状的“Windows Media player”控件。
3、选中“Windows Media player”控件，在窗体上按您的需要和喜好“画”出它将要显示的范围。 4、现在，我们就可以利用“属性对话框”开始对整个窗体及窗体上所有的控件进行“美化”。“美化”的内容就按您自己的喜好看着办好了，反正是“设计时”修改控件，不会影响最终程序的运行。我修改了窗体和按钮的颜色，并修改了按钮上的字体以及字号和字色。最终的效果如图5-2。 准备工作已就绪，开始编写代码了吧！
步骤二：编写代码
1、双击“开始运行”按钮，在VBE自动生成的空过程中输入如下代码： Private Sub CommandButton1_Click()
MediaPlayer1.FileName = \龙珠2.mpg \End Sub
(注意: office2003及以上版本，上句代码应该是：WindowsMediaPlayer1.URL=\龙珠2.mpg \，这是因为在这些版本上，MediaPlayer控件的属性与方法已略有些变化了。)
代码解说：
关于“过程”，就不消多说了吧？“MediaPlayer1”就是我们在“设计时”所添加的“MediaPlayer控件”。它尾巴上的“1”，指它是在本窗体上的第一个“MediaPlayer控件”。“FileName”是“MediaPlayer1”的一个属性，这个属性的值就是将要播放的媒体文件的名称（还记得为属性赋值的格式吗？这整句代码可是一个标准的赋值语句。）。等号后面大家就很清楚了——是要播放的文件的路径与文件名。当然，您的电脑上恐怕不会有“D:\\MyMpg\\龙珠2.mpg”文件的，您可要根据自己电脑上的实际情况输入这部分的内容。
2、双击“结束程序”按钮，在打开空过程中输入—— Private Sub CommandButton2_Click() Unload UserForm1 End Sub
代码解说：
这段代码如果还需要解说的话，就请再看看实例四的后半部分内容。
完成前两步代码输入后，可以将光标定位于“开始运行”按钮的代码区正中间，然后按下F5键！！看到了什么？？怎么样，有成就感吧？？还没完呢！赶快“结束程序”编完最后的代码吧！
3、回到Word，指向工具——宏，打开“宏名”对话框（不要告诉我，你找不到这个对话框），在“宏名”中输入“我的播放器”（没有引号），点击“创建”按钮，在VBE所生成空过程中输入——
Sub 我的播放器() UserForm1.Show End Sub
本段代码与上段代码一样，也无需解说了吧？
4、回到Word，打开工具——自定义，拖动“命令”选项卡的滚动条到最底部，选中“类别”窗格中的“宏”，再找到右边“命令”窗格中的“我的播放器”宏，左键按住它，不要让它跑掉（？），拖动它到“任意”的“菜单栏”或“工具栏”上，好，松左键，它跑不掉了（图5-3）。保证它是被选中的，再回到“命令”选项卡上，点击正中间的“更改所选内容”，把它的名字“美化”一下，或者再给它添一个图标，怎么样，帅吧？！酷吧？！(图5-4)
WORD VBA编程 从零开始学VBA
