|
PowerPoint2000是美国Microsoft公司的办公自动化软件Office2000家族中专门用于制作演示文稿的优秀工具软件,它以简洁明快的风格成为用户制作在学术交流、工作汇报、产品展示等场合使用的演示文稿的常用软件之一。用户使用其中的一般功能（如编辑幻灯演示文稿的基本方法、多媒体对象的添加、动画制作、超级链接等）就能制作出具有多媒体对象、操作方便的演示文稿，但美中不足的是演示内容与过程过于呆板，缺乏良好的人机交互界面。针对这一问题，使用PowerPoint2000自身提供的ActiveX 控件，就可以以一种精细的方式在幻灯片放映过程中与用户交换信息，建立良好的交互关系。
PowerPoint中的ActiveX 控件与在VBA（Visual Basic for Applications）之类的编程语言中的控件很相似，它包括用来创建自定义程序、开关按钮、对话框、文本框和其他控件等。它们存放于“控件工具箱”中，以下是几种主要的控件：
控件类型 说明
|
|
复选框 |
可以通过选择或者清除来打开或者关闭的选项 |
|
文本框 |
可以键入文本的框 |
|
命令按钮 |
单击时可激活某个动作的按钮 |
|
选项按钮 |
用来从一组选项中选择其中某个选项的按钮 |
|
列表框 |
包含项目列表的框 |
|
组合框 |
具有组合框文本框 |
|
切换按钮 |
单击这类按钮时，它会保持按下状态，再次单击时还原 |
|
数值调节钮 |
可附加到文本框的按钮，如果要增加或者减少数值，单击相应的箭头 |
|
滚动条 |
当单击滚动肩头或者拖动滚动框是，可以滚动数值列表的控件 |
|
标签 |
另外添加的文本，用于提供有关幻灯片或幻灯片上控件的信息 |
|
图像 |
嵌入图片或图形的控件 |
|
其他控件 |
附加的ActiveX控件列表 |
在PowerPoint2000中应用ActiveX控件的一般过程如下：
1、 打开要添加ActiveX控件的演示文稿；
2、 将鼠标指向“视图”菜单中的“工具栏”，再单击“控件工具箱”；
在“控件工具箱”中选择要添加的控件按钮；
在幻灯片上将控件拖动成所需的大小；
如果要设置控件的属性，则在控件上单击鼠标右键选择“属性”，并进行各选项的设置；
单击快捷菜单中的“查看代码”，然后在“Visual Basic编辑器”中写入自定义ActiveX控件行为的宏代码，以便对刚才设定的各ActiveX控件进行激活；
放映幻灯片，可发现在同一张幻灯片所呈现的内容更加丰富，用户通过操作各控件，方便自如地实现了人机交互。
下面举例说明ActiveX 控件在PowerPoint2000中的应用：
针对汇编语言教学中讲解标志寄存器各标志时比较抽象，制作了介绍标志寄存器的幻灯片，如图：
其中使用了9个命令按钮控件、1个文本框控件和1个标签控件，通过选择不同的标志位对应的按钮，在文本框中将显示相应的介绍。添加的自定义宏代码如下：
Dim CHOICE As Integer
Private Sub CommandButton1_Click()
TextBox1.Text = ""
CHOICE = 0
TextBox1_GotFocus
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
CHOICE = 1
TextBox1_GotFocus
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = ""
CHOICE = 2
TextBox1_GotFocus
End Sub
Private Sub CommandButton4_Click()
TextBox1.Text = ""
CHOICE = 3
TextBox1_GotFocus
End Sub
Private Sub CommandButton5_Click()
TextBox1.Text = ""
CHOICE = 4
TextBox1_GotFocus
End Sub
Private Sub CommandButton6_Click()
TextBox1.Text = ""
CHOICE = 5
TextBox1_GotFocus
End Sub
Private Sub CommandButton7_Click()
TextBox1.Text = ""
CHOICE = 6
TextBox1_GotFocus
End Sub
Private Sub CommandButton8_Click()
TextBox1.Text = ""
CHOICE = 7
TextBox1_GotFocus
End Sub
Private Sub CommandButton9_Click()
TextBox1.Text = ""
CHOICE = 8
TextBox1_GotFocus
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = ""
End Sub
Private Sub TextBox1_GotFocus()
TextBox1.Visible = True
Select Case CHOICE%
Case 0
TextBox1.Text = "溢出标志，超出目的操作数的范围溢出为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：表示带符号数的溢出"
Case 1
TextBox1.Text = "符号标志，负时为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：根据运算结果的正负来改变程序的流程"
Case 2
TextBox1.Text = "零标志，结果是零为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：根据运算结果为0否来改变程序流程"
Case 3
TextBox1.Text = "辅助进位标志，低4位向高4位产生进位为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：只用于十进制调整指令，即压缩BCD码的"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + " 加减调整指令"
Case 8
TextBox1.Text = "奇偶标志，1的个数是偶数为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：用来检查ASCII符号的奇偶性是否正确"
Case 4
TextBox1.Text = "进位标志，最高有效位产生进位/借位为1，否则为0"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "最高有效位：8位数为第7位；16位数为第15位"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "作用：
（1）表示无符号数的溢出"
TextBox1.Text = TextBox1.Text + Chr(10) + Chr(13) + "
（2）实现多字节的加、减运算"
Case 5
TextBox1.Text = "方向标志，为1时SI、DI减量，否则增量"
Case 6
TextBox1.Text = "中断标志，为1时允许中断，否则关闭中断"
Case 7
TextBox1.Text = "陷阱标志，为1时单步方式操作，否则正常"
End Select
End Sub
以上程序在Window 98和PowerPoint2000环境下通过。
参考文献
1 东箭工作室编著。Visual Basic 5.0中文版程序设计。北京：清华大学出版社，1997
2 何弘、刘伟华编著。Office 2000中文版即学即会。北京：中国城市出版社，1999
|
