用PowerPoint中的VB实现课件中的智能交互
http://www.duxiushan.net/index.asp?xAction=xReadNews&NewsID=294
我们使用PPT的目的只有一个,即更好地达成“沟通、演说、汇报、讲解、展示等”的预期效果,而非“秀”这个工具本身,尽管PPT可以做的看上去地很花哨。 既然使用PPT的目标并非PPT本身,而是其背后的沟通呈现目的,因此,我们更愿意定义这门为“管理沟通”课程,属“沟通呈现技能”的分支之一。
一名合格的教师,必须要具备熟练的PPT使用技能,方能在需要呈现的关键时刻一显身手。联想柳传志说,“能练会说才是好把式”,而PPT正是帮助教师在诸多场合完美表达的致胜利器。
然而,效率低下、制作呆板、千篇一律的PPT随处可见,成功的、能够充分协助工作、的PPT却非常难得。不会应用模板、不会应用母版、无法实现智能互动等等,使得PPT的使用变得低效。
PowerPoint中的VB可以实现很多复杂的交互,但很多老师面对VB编程,都会觉得无从下手。因此使的我们用PPT进行课件制作就没有什么交互,制作出来的课件也就水平低下,所以本期我为大家安排了一个关于PowerPoint中VB的小专题,以后在课件中实现交互就不会那么费劲了。
1、VB基础
说到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)文本框
AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框;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
用PowerPoint中的VB实现课件中的智能交互的更多相关文章
- 使用Microsoft Roslyn提取C#和VB.NET源代码中的字符串常量
Microsoft Roslyn是微软.NET“编译器即服务(Compiler as a Service)”的主要产品,它提供了开放的编译器API,并为源代码产生.分析和重构提供了新一代的语言对象模型 ...
- PowerPoint 打开文档发现.pptx中胡内容有问题
一.问题的提出 有一个文件,在window 7操作系统中通过邮箱地址保存到本地,结果打开的时候出现[PowerPoint 打开文档发现 文件.pptx中胡内容有问题] 然后提示[如果您信任此演示文稿的 ...
- C#中实现VB中的CreateObject方法
经常看到有些VB的例子中直接用个CreateObject就可调用系统功能(大多是COM对象),像用户设定,网络设定等等.虽然C#中可以通过使用VB的命名空间的方法来调用CreateObject函数,但 ...
- C语言程序设计(翁恺)--第二周课件中的两个遗留点
看完课件,发现其中有几个点是老师上课没点破的,或者是留到讨论区的,自己想了想答案,总结一下这些问题 第二周:计算 1.关于const的描述中提到:“如果试图对常量做修改,把它放在赋值运算符的左边,就会 ...
- ActiveX数据对象之事务控制在VB和DELPHI中的应用
本文发表在中国人民解放军"信息工程大学"学报 2001年第3期. ActiveX数据对象之事务控制在VB和DELPHI中的应用 ...
- js_html_input中autocomplete="off"在chrom中失效的解决办法 使用JS模拟锚点跳转 js如何获取url参数 C#模拟httpwebrequest请求_向服务器模拟cookie发送 实习期学到的技术(一) LinqPad的变量比较功能 ASP.NET EF 使用LinqPad 快速学习Linq
js_html_input中autocomplete="off"在chrom中失效的解决办法 分享网上的2种办法: 1-可以在不需要默认填写的input框中设置 autocompl ...
- 地图四叉树一般用在GIS中,在游戏寻路中2D游戏中一般用2维数组就够了
地图四叉树一般用在GIS中,在游戏寻路中2D游戏中一般用2维数组就够了 四叉树对于区域查询,效率比较高. 原理图
- sqlserver 中数据导入到mysql中的方法以及注意事项
数据导入从sql server 到mysql (将数据以文本格式从sqlserver中导出,注意编码格式,再将文本文件导入mysql中): 1.若从slqserver中导出的表中不包含中文采用: bc ...
- 在Myeclipse中提交代码到GitHub中
这需要借助插件Egit,首先就是先下载该插件了,可以再eclipse中下载,也可以在外面下载,下载就不说了.下载地址git://github.com/houyongchao/plugin-Egit.g ...
随机推荐
- 暴力/进制转换 Codeforces Round #308 (Div. 2) C. Vanya and Scales
题目传送门 /* 题意:问是否能用质量为w^0,w^1,...,w^100的砝码各1个称出重量m,砝码放左边或在右边 暴力/进制转换:假设可以称出,用w进制表示,每一位是0,1,w-1.w-1表示砝码 ...
- 关于python深度学习网站
大数据文摘作品,转载要求见文末 编译团队|姚佳灵 裴迅 简介 ▼ 深度学习,是人工智能领域的一个突出的话题,被众人关注已经有相当长的一段时间了.它备受关注是因为在计算机视觉(Computer Vi ...
- strings命令的实现 2014-06-02 00:17 355人阅读 评论(0) 收藏
本程序实现从文件中提取连续4个以上的可打印字符.模仿linux中string命令 #include <stdio.h> #include<stdlib.h> #include ...
- synchronized(1)用法简介:修饰方法,修饰语句块
注意: 同一个对象或方法在不同线程中才出现同步问题,不同对象在不同线程互相不干扰. synchronized方法有2种用法:修饰方法,修饰语句块 1.synchronized方法 是某个对象实例内,s ...
- Java实现三角形计数
题: 解: 这道题考的是穷举的算法. 一开始看到这道题的时候,本能的想到用递归实现.但使用递归的话数据少没问题,数据多了之后会抛栈溢出的异常.我查了一下,原因是使用递归创建了太多的变量, 每个变量创建 ...
- 教你如何在实战项目中使用WCF
我们都知道调用WCF直接在Service References中引用可以远程调用的WCF Url就行了. 但是我们想过没,在Development环境中可以这样做,但是QA.UAT.Productio ...
- WPF学习11:基于MVVM Light 制作图形编辑工具(2)
本文是WPF学习10:基于MVVM Light 制作图形编辑工具(1)的后续 这一次的目标是完成 两个任务. 画布 效果: 画布上,选择的方案是:直接以Image作为画布,使用RenderTarget ...
- ie浏览器和火狐浏览器对对容器宽度定义的差异
首先我们说说firefox和IE对CSS的宽度显示有什么不同: 其实CSS ’width’ 指的是标准CSS中所指的width的宽度,在firefox中的宽度就是这个宽度.它只包含容器中内容的宽度.而 ...
- 使用Glide加载Android图片
一.概述 Glide是一个在Android端非常好的图片缓冲工具,总体上来说,他有以下优点 使用简单 自适应程度高 支持常见的图片格式,如jpg,png等 支持多种数据源,网络,本地,资源,Asset ...
- elasticsearch学习笔记-倒排索引以及中文分词
我们使用数据库的时候,如果查询条件太复杂,则会涉及到很多问题 1.无法维护,各种嵌套查询,各种复杂的查询,想要优化都无从下手 2.效率低下,一般语句复杂了之后,比如使用or,like %,,%查询之后 ...