不知不觉间本期迷你记账系统制作系列经验已经来到了终结篇:详解制作如下图所示的欢迎界面及每次伴随程序的启动运行而自动弹出此欢迎界面功能的实现方法。
工具/原料
1
Excel2003
2
VBA
方法/步骤
1
ALT+F11打开VBE编辑器,新建一个用户窗体,名称改为:欢迎使用,caption属性改为:欢迎使用迷你记账系统1.0版。其他属性如图示。
2
在窗体如图示位置拖拉出4个标签控件,caption属性随意设置。
3
利用控件工具箱上的图像控件拖拉出一个图像控件,利用属性窗口上的Picture属性边上的下拉框点选导入一张合适的图片,效果如图示。
4
拖拉出一个命令按钮,caption属性改为:帮助,名称设为:CommandButton2。
5
拖拉出一个命令按钮,caption属性改为:关闭,名称设为:CommandButton1。
6
将我们上一篇经验介绍制作的帮助文件放在迷你记账系统程序同目录下,然后在帮助按钮上右键-查看代码,在弹出的代码窗口输入如下代码:Private Sub CommandButton2_Click()Dim f As Stringf = ThisWorkbook.Path & '\迷你记账系统帮助.chm'Shell 'hh.exe ' & f, vbNormalFocusEnd Sub
7
在关闭按钮上右键-查看代码,在弹出的代码窗口输入如下代码:Private Sub CommandButton1_Click()Unload MeEnd Sub
8
为了实现伴随程序的启动运行而自动弹出欢迎界面,可以在ThisWorkbook的代码窗口输入如下代码:Private Sub Workbook_Open()欢迎使用.ShowEnd Sub
注意事项
本迷你记账系统制作系列经验已经全部完成,有需求的朋友可以至我的百度网盘下载源文件,地址:http://pan.baidu.com/share/link?shareid=941018959&uk=1996803567 密码:u5yn