让Word XP“开口”讲笑话

home小枫叶

home小枫叶

2016-01-29 19:29

让Word XP“开口”讲笑话,让Word XP“开口”讲笑话
    Word算得上是使用最广泛的应用软件了,但是如果你仅仅用它来打打字、画画表,那就太平淡无奇了,也有些委屈了Word。Word不仅有强大的文字编辑能力,它还内嵌一个VBA(Visual Basic for Applications)编程环境,可以开发出满足个性需求的功能来。

    本人利用VBA编写了一个“Word讲笑话”,做出来后颇有成就感,现将开发过程和心得写出来与读者朋友分享。

    能实现的功能是:当每次启动Word时将自动运行“Word讲笑话”,能随机的显示一条笑话(当然,笑话得事先录入好并保存在一个文本文件中)。“Word讲笑话”的面板中一共有三个按钮,点击“下一条”可继续阅读其它笑话,点击“关于”可显示作者和帮助信息,点击“关闭”将关闭窗口。面板中还有一个复选框,可以让用户自由决定下次启动Word时是否显示笑话。

    开发过程主要有以下几个环节(以Word XP为例):

    一、建立窗体

    窗体是窗口和对话框的统称,它是Windows应用程序的用户界面的基础部分。窗体是控件的容器,用来放置文本框、命令按钮、复选框等各种控件。

    1、启动Word,单击菜单“工具→宏→Visual Basic编辑器”,也可以按快捷键[Alt+F11],切换到Visual Basic编辑器窗凇?p    2、单击菜单“插入→用户窗体”,系统建立一个默认样式的用户窗体。对窗体可拖动其右、下边的小方框来可改变大小,本例中根据功能需要将窗体拖为扁长形状。

    3、单击菜单“视图→属性窗口”,在属性窗口中修改窗体的几个主要属性值。在属性列表中选定“名称”属性,输入“Xiaohua”,然后选定“Caption”属性,输入“Word讲笑话”。现在,我们便能看到一个标题为“Word讲笑话”的窗体了。

    

    小提示:窗体中的点状物称为“网格”,它能在建立控件时起位置参考和智能对齐的作用,单击菜单“工具→选项”,选择“通用”选项卡,可修改网格的选项和网格块的大小,建议使用较小的网格设置,这样能使控件更靠近窗体边缘的位置,以达到美观的效果。

    二、建立控件

    建立了窗体就相当于打好了地基,下一步的工作就是“添砖加瓦”了,也就是建立控件。常用控件包括文本框、命令按钮、标签、复选框、滚动条等。建立控件的方法很简单,单击菜单“视图→工具箱”调出工具箱,在“工具箱”中选择控件类型,然后在窗体上单击或拖动即可。

    

    1、创建文本框:在“工具箱”中选择“AB|”样式的按钮,在窗体上拖动建立一个文本框,并用鼠标调整其位置、大小,若需精确调整,也可在属性窗口中调整“Height”、“Width”等属性值。很关键的一点是要将“MultiLine”属性值设为“True”,它的作用是使文本框能显示多行文本。

    2、创建命令按钮:在“工具箱”中选择命令按钮(鼠标悬停会显示“命令按钮”字样),在窗体上的文本框右边拖动建立一个命令按钮,调整好大小并修改其“Caption”属性值为“下一条”,接着依次建立“关闭”、“关于”按钮。

    3、创建复选框:在“工具箱”中选择复选框按钮,在窗体上的文本框下方单击鼠标左键,便创建了一个复选框,修改其“Caption”属性值为“下次启动时不显示”。

    4、创建标签:可在窗体的空余部分以“标签”的形式显示作者等信息。

    小提示:为了使窗体、控件看起来更美观、协调,可以使用“格式”菜单下的“统一尺寸”命令项使按钮大小相同,使用“对齐”、“水平间距”、“垂直间距”等命令项,使各控件均匀、合理的布置在窗体中。

    三、编写代码

    上面建立的窗体和控件还只是“徒有其表”,因为还没有为各个控件赋予具体的功能,接下来就需要编写VBA代码 ,通过代码告诉各控件在什么情况下该执行什么任务。编写代码的方法是:单击菜单“视图→代码”或按F7键,即切换到代码窗口,可在代码窗口的声明部分(顶端空白区域)开始录入代码。 [next]

    

    首先要编写的是公用Sub过程的代码,Sub过程是一系列由Sub和End Sub语句包含起来的 VBA 语句。以

展开更多 60%)
分享
qqQQ
qzoneQQ空间
weibo微博

猜你喜欢

让Word XP“开口”讲笑话

办公软件
让Word XP“开口”讲笑话

如何让Mac给自己讲笑话

电脑入门
如何让Mac给自己讲笑话

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

让Windows XP系统开口说话

windows 操作系统
让Windows XP系统开口说话

让你的Windows XP系统开口说话

windows 操作系统
让你的Windows XP系统开口说话

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

让 Word XP打印再无麻点

办公软件
让 Word XP打印再无麻点

心理健康:观博抗躁:打电话、听音乐、讲笑话

心理健康
心理健康:观博抗躁:打电话、听音乐、讲笑话

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Jaz-drive HOWTO -- 2. Jaz 磁碟机的硬件

Jaz-drive HOWTO -- 2. Jaz 磁碟机的硬件

LILO, Linux Crash Rescue HOWTO LILO 毁损,无法开机

LILO, Linux Crash Rescue HOWTO LILO 毁损,无法开机
下拉加载更多内容 ↓