当前位置:首页?>>?资源中心?>>?开卷有益?>>?用PowerPoint中的VB实现课件中的智能交互
  ??
网站导航
 校园动态
 今日秀中
 学校管理
 园丁之家
 校园天地
 资源中心
 校园论坛
 校友天地
? 双击自动滚屏 ?
用PowerPoint中的VB实现课件中的智能交互

发表日期:2011年1月22日??作者:福建东侨中学 姜春铃??本页面已被访问 8639 次

我们使用PPT的目的只有一个,即更好地达成“沟通、演说、汇报、讲解、展示等”的预期效果,而非“秀”这个工具本身,尽管PPT可以做的看上去地很花哨。 既然使用PPT的目标并非PPT本身,而是其背后的沟通呈现目的,因此,我们更愿意定义这门为“管理沟通”课程,属“沟通呈现技能”的分支之一。

????一名合格的教师,必须要具备熟练的PPT使用技能,方能在需要呈现的关键时刻一显身手。联想柳传志说,“能练会说才是好把式”,而PPT正是帮助教师在诸多场合完美表达的致胜利器。
  然而,效率低下、制作呆板、千篇一律的PPT随处可见,成功的、能够充分协助工作、的PPT却非常难得。不会应用模板、不会应用母版、无法实现智能互动等等,使得PPT的使用变得低效

PowerPoint中的VB可以实现很多复杂的交互,但很多老师面对VB编程,都会觉得无从下手。因此使的我们用PPT进行课件制作就没有什么交互,制作出来的课件也就水平低下,所以本期我为大家安排了一个关于PowerPointVB的小专题,以后在课件中实现交互就不会那么费劲了。

?

  1VB基础

?

  说到VB编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。并且使用前需将“工具”/宏/安全性/选择低 这样我们才能正常使用控健

?

  1 显示控件工具箱

   PowerPoint中选择菜单“视图/工具栏/控件工具箱”。

?

  2 控件工具箱(如图1)中常用控件的介绍

?

?

1)复选框(CheckBox):可以选择多个选项,常用来设计多选题;

2)文本框(TextBox):可以输入文本,常用来设计填空题或者用来显示文字信息;

3)命令按钮(CommandButton):用来确定选择或输入;

4)单选框(OptionButton):只能选中一个选项,常用来设计单选题或判断题;

?

  3 PPT中插入控件的方法

单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。

  4 进入VB进行编写代码的方法

  ??? 双击幻灯片中的控件或用菜单命令“工具//Visual basic编辑器”即可进入VB编程状态。

?

  5 控件的主要属性及设置方法

  ??? 进入VB后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。下面我们就不同的控件,来说明常用属性的设置方法。

?

1)复选框

AutoSize:有两个值,True表示根据字的多少调整复选框的大小,False表示复选框为固定大小;

BackColor:设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;

Caption:控件的名称,把默认值删除再重新输入新名称;

Font:设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中设置;

Forecolor:设置字的颜色,设置方法同BackColor

Height:复选框的高度,直接输入数字即可;

Width:复选框的宽度,直接输入数字即可;

Value:复选框的值,True复选框为选中,False复选框没被选中。

?

2)文本框

AutoSizeBackColorFontForeColorHeightWidth等属性的设置方法同复选框;Value:文本框的值,用来保存输入的文本

TextAlign:设置文本对齐方式。

?

3)单选框

  属性设置同复选框。其中常用的是value:单选框的值,True为选中,False没被选中。

?

4)命令按钮

主要用Caption:控件的名称,把默认值删除再重新输入新名称;

?

5)设置控件属性的两种方法

l??????? 在属性窗口中修改相应的数值

l??????? 在程序代码中修改,格式是:控件名称.属性名=值,如checkbox1.value=true 表示复选框被选中。

6条件语句

如果你学过任何一种编程的话,都会知道在程序里控制其流程的有两种语句,条件与循环,VB自然也不例外,其实不管哪种语言,条件和循环的样子都差不多,只不过各有各的规矩罢了。

在条件语句里,我们先来学习“If……Then……”语句。

?

它的一般语法是:

If <条件成立> Then

<语句1>
<
语句2>

………

End If

有时我们还会用到

If <条件成立> Then

? <语句1>
Else
? <语句2>

End If

7、消息框MsgBox的功能

   我们常用消息框显示一些交互的信息,如图2所示的消息框用下面的语句可实现:

?

Msgbox("这是一个例题")

?

8、单选题的制作

  例如我们要设计PPT所示的单选选择题。

?

  1 输入题目

  用文本框,直接输入文本即可。再根据需要修改其他属性(如颜色等)。

?

  2 单选框选项

  插入1个单选框,修改其Caption属性为“A”,其他属性可自行修改。其他的单选项可复制制作好的单选框,粘贴,然后再修改它们的Caption属性,依次是BCD

?

3 编写控件程序代码

 我们可根据单选框的Value属性的值来判断答案,因为正确选项(单选框)的Value的值为True,则为该题选择正确,否则为选择错误,我们根据选择正误来给出信息,有两种方法。

?

  (1)方法1

   用MsgBox(),如果选择正确,显示信息“Very Good!请继续!”,错误则显示“Sorry,你选错了!请继续努力。”

?

  操作步骤:双击单选框进入VB,在编辑窗口中完成以下操作:

  A. 在编辑窗口中找到如下两条语句://以下两条语句是自动生成的,只要找到相应的控件就可以了。

  Private Sub OptionButton2_Click()

?

  End Sub

?

  然后在上面这两条语句中间插入以下语句:?

  ?? MsgBox("Very Good!请继续努力。")

?

  B. 同理,找到如下两条语句:

  Private Sub OptionButton1_Click()

?

  End Sub

  在这两条语句中间插入语句:

  MsgBox" Sorry,你选错了!请继续努力。"

?

  C. 找到如下两条语句

  Private Sub OptionButton3_Click()

?

  End Sub

  在这两条语句中间插入语句 

MsgBox" Sorry,你选错了!请继续努力。"

?

D. 找到如下两条语句

  Private Sub OptionButton4_Click()

?

  End Sub

  在这两条语句中间插入语句 

  MsgBox" Sorry,你选错了!请继续努力。"

?

2)方法2

??   在幻灯片适当的地方插入一命令按钮,修改其CAPTION属性为“提交答案”,

双击命令按钮,在编辑窗口中的Private Sub CommandButton1_Click()End Sub语句间插入:

??? If OptionButton1.Value = False And OptionButton2.Value = True And OptionButton3.Value = False And OptionButton4.Value = False Then

??? MsgBox ("选择正确。")

??? Else

??? MsgBox ("Sorry,你选错了!请继续努力。")

??? End If

?其中:Private Sub CommandButton1_Click()表示命令按钮被单击后要做的事情,这里要做的是判断答案是否正确。

?4、重新选择命令按钮

  在幻灯片适当的地方插入一命令按钮,修改其Caption属性为“重新选择”,在编辑窗口中的Private Sub CommandButton1_Click()End Sub语句间插入:

  OptionButton1.Value = False

  OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

?

?

2、 多选题的制作

  1. 题目的设计同单选题

  2. 多选框选项:用复选框(CheckBox),其他设置同单选题。

  3. [查看答案]命令按钮:因为是多选题,答案有多个,所以要书写多个条件,条件之间用and连接,表示同时满足这几个条件,例如第一、三、四的选项是正确的,则需要输入如下语句:

?? Private Sub CommandButton1_Click()

If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True ?Then

Msgbox(“恭喜你!答对了,哈哈”) 给出正确的提示信息

  else

msgbox(“答错了,请继续努力,按“重置”按钮继续答题!”)  

end if

end sub

4、重置命令按钮代码

  在幻灯片适当的地方插入一命令按钮,修改其Caption属性为“重置”,在编辑窗口中的Private Sub CommandButton2_Click()End Sub语句间插入:

  OptionButton1.Value = False

  OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

?

3、填空题的制作

 1. 题目的设置同单选题,填空的地方用文本框。

2. 判断正误:因为是填空题,所填答案是文本,正确的文本一定要用半角双引号括起来,如几个填空一起判断,则条件书写为:

?

l??????? [提交答案]命令按钮需要完成如下语句的设置:

Private Sub CommandButton1_Click( )

If TextBox1.Value = "寻常" And TextBox2.Value = "花针" And TextBox3.Value = "慢慢" And TextBox4.Value = "小路" Then

?? ?????????MsgBox ("恭喜同学们答对了!")

??? Else

MsgBox ("其中有答错了噢,再想想,然后按订正错误按钮!")

?

??? End If

?

End Sub

l??????? [订正错误]命令按钮需要完成如下语句的设置:

?

Private Sub CommandButton2_Click()

If ?TextBox1.Value <> "寻常" ?Then

TextBox1.Value = "请双击后填入你的答案!"

End If

If TextBox2.Value <> "花针" Then

TextBox2.Value = "请双击后填入你的答案!"

End If

If TextBox3.Value <> "慢慢" Then

TextBox3.Value = "请双击后填入你的答案!"

End If

If TextBox4.Value <> "小路" Then

TextBox4.Value = "请双击后填入你的答案!"

End If

End Sub

?

l??????? 双击文本框后输入答案代码

Private Sub TextBox1_dbclick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1.Value = ""

End Sub

?

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox2.Value = ""

End Sub

?

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox3.Value = ""

End Sub

?

Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox4.Value = ""

End Sub

     

9、判断题的制作

所有的设置与单选题类似,只不过是设计两个选项“√”和“×”,这两个符号可先在Word中插入,然后再复制过来。

?

10、互动地图制作示范

?? 1、先在图形处放上文本框控件,然后可以修改其backcolor属性即背景色,再在代码编辑窗口中进行编写代码。

?? 鼠标单击地图相应位置后显示地名,因此执行的过程是文本框单击所要执行的事件,其程序代码如下:

???

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox1.Text = "乌鲁木齐"

End Sub

?

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox2.Text = "海南"

End Sub

?

Private Sub TextBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox3.Text = "湖南"

End Sub

?

Private Sub TextBox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox4.Text = "四川"

End Sub



? 双击自动滚屏 ?
  相关评论:    

?没有相关评论

  发表评论:    

用?户?名:
电子邮件:
评论内容:
(最多评论字数:500)

|?安徽省怀宁县365bet平台投注_英国365bet_365bet注册网址?|?设为首页?|?加入收藏?|?联系我们?|?进入管理?|

联系人:365bet平台投注_英国365bet_365bet注册网址 | 校办电话:0556-8866200 | 邮编 :246113
备案序号:皖ICP备05018292号