开发工具让PPT具更强大功能

Posted 2021-04-25 菜鸟IT人

上期回顾：

在PPT中不仅可以通过点击鼠标实现交互响应，还可以输入内容实现交互，本文介绍几种文本框和其他控件组合使用的例子。

先来了解一下文本框控件的属性。

图1：文本框控件

选择文本框控件之后在页面上拖画出矩形区域，在此区域中点击鼠标右键选择“属性表”，可以设置其属性。

图2：文本框控件属性

“Font”属性是字体样式及大小设置，“Text”属性是初始显示在文本框内的内容，默认可以在放映时编辑，如可以在初始显示提示：“请输入数字”，则在“Text”属性中输入“请输入数字”（引号内文字）。

一、计算

通过文本框控件可以实现PPT在放映时输入数据，结合一些代码即可实现计算。例：在前两个文本框中输入数字，点击按钮计算出两数之和显示在第三个文本框中。

图3：利用文本框等控件实现计算

方法：

1、插入3个文本框控件，设置字体属性（默认字号太小）

图4：设置文本框属性

2、插入一个标签控件，放置在前两个文本框中间，设置“Caption”属性为“+”，设置“Font”属性将字号放大。

图5：设置标签控件属性

3、插入一个命令按钮，放置在后两个文本框中间，设置“Caption”属性为“=”，设置字体大小。

图6：设置命令按钮属性

4、双击命令按钮打开代码窗口，输入代码：

---

Private Sub CommandButton1_Click()

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

---

图7：命令代码

注：

（1）按照此方法，修改其中一些属性及代码也可以进行其他运算，如乘法。

（2）标签控件可以用普通文本框代替。

（3）如控件名称修改了，需在代码中做对应的修改。

二、判断

例：在两个文本框中数据数据，点击标签控件判断其大小。

图8：利用文本框等控件实现判断大小

方法：

1、添加两个文本框控件，设置“Font”属性增大字体大小。

2、在两个文本框中间添加一个标签控件，设置“Font”属性增大字体大小，设置“Caption”属性为“判断大小”

图9：设置标签控件属性

3、双击标签打开代码窗口，输入代码：

---

Private Sub Label1_Click()

If Val(TextBox1.Text) > Val(TextBox2.Text) Then

Label1.Caption = ">"

ElseIf Val(TextBox1.Text) < Val(TextBox2.Text) Then

Label1.Caption = "<"

Else

Label1.Caption = "="

End If

End Sub

---

图10：设置标签控件代码

总结：用几种简单的控件结合一些代码就可以使PPT具有强大的交互功能，实现“1+1>3”的效果。