ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 21595|回复: 50

[原创]教大家设计精彩的程序说明窗体

[复制链接]

TA的精华主题

TA的得分主题

发表于 2008-2-1 09:23 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:窗体
本帖最后由 andysky 于 2014-4-13 09:16 编辑

VBA爱好者一定有过或多或少的程序面世吧?也一定在编完代码后需要加一个使用说明吧?
在内容完善的前提下,同时提升窗体的美观是很重要的。程序和窗体也需要审美。
我最初使用MSGBOX,简单易懂。见下图:

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体
然后用窗体配合一下图片与嵌入FLSAH,稍微漂亮点,但容量迅速增大。见下图:

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体
再之后用API制作个性的窗体标题和边框,配合网页代码设计滚动文字。见下图:

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

近期找到了更好的办法。不需要API,但窗体精彩许多。好处如下:
1.比API更易懂;
2.效果更生动,可以制计三维文字或者鼠标跟随文字与花絮、动态、跳跃字符等等;
3.网上有大量的漂亮网页模板供借用,方便新手复制;
4.占用内存极小;
5.文件体积极小。
先看看近期作品之一的效果

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-1 09:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
首先,您要必要懂得一些网页编程代码。
一定不懂?没关系,直接复制网页特效即可。
附件包括三个特效,您可以随意复制其代码。
具体操作骤如下:
1.将具有网页特效的htm文件用记事本打开,另存为txt文件;
2.打到<head>语句,这是网页代码中位于前段起始语句;
3.在其后加入以下语句,表示窗体的标题(如果已有则修改其文本)
<title>中秋快乐</title>
4.为了让窗体不显示滚动条、边框、菜单等等附件无素,您需要在前一句代码后面加入以下语句:
<hta:application sysmenu=no scroll=no border=none>
其中sysmenu=no 表示不显示右键菜单  scroll=no 表示不显示滚动条 border=none表示不显示边框与关闭按钮,您可以将None修改为yes.
5.为了让窗体在指定时间自动关闭,您需要在前句代码之后加入以下语句:
<script language="vbscript">
sub sub1
  me.close
end sub
window.settimeout "sub1",12000  '这是设置时间,单位为毫秒,我这里设置为12秒
</script>
表示12秒钟后自动关闭窗体。
6.如果需在定制窗体的大小和显示位置,那么您需要在前面的<script language="vbscript">程序修改为新的代码:
<script language="vbscript">
sub sub1
  me.close
end sub
me.resizeto 500,610  
me.moveto 260,100  
window.settimeout "sub1",12000
</script>
resizeto 500,610  表示窗体大小,您可以让它全屏显示,如“1024,768”或者“800,600”,请根据您的显示分辨率设定
me.moveto 260,100  表示窗体左上角的座标,您可以修改0,表示显示在左上角。
7.为了让窗体中显示程序使用说明,且以滚动方式出现,需要在网页代码中加入以下语句(可加到<body>语句之后):
<MARQUEE id=help onmouseover=help.stop()
style="FONT-WEIGHT: bold; COLOR: #00ff00; FONT-FAMILY: 宋体_GB2312"
onmouseout=help.start() scrollAmount=2 direction=up width=300
height=400>
<P></P> 工具简易说明
<P></P> 本程序包括以下功能
<P></P> ******************
<P></P> *****************
<P></P> 有何不足之处请Mail至:123@456.com
<P></P>祝各位工作愉快</MARQUEE>
其中scrollAmount=2表示文字滚动速度,onmouseover=help.stop() 表示鼠标移过时停止滚动,direction=up 表示从下向上滚..........
修改后的代码见附件2----hide.txt:
SMvOTHn3.rar (8.58 KB, 下载次数: 499)

7zR8w0Qk.rar

2.76 KB, 下载次数: 399

[原创]教大家设计精彩的程序说明窗体

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-1 09:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

网页修改完毕后,您需要将网页代码导入到工作表中。
重点:不能复制--粘贴到工作表的单元格,而是导入文本文件。
1.【数据】\【导入外部数据】\【导入数据】,找到hide.txt,然后导入。
2.导入时需要注意:

JGESJG3i.rar (11.75 KB, 下载次数: 330)


8.其实还可以用精美的Flash动画制作背景,让窗体锦上添花。留待下回分解。

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-1 09:45 | 显示全部楼层
本帖最后由 andysky 于 2014-4-13 09:17 编辑

先看看带有鼠标特效和Flash背景的窗体效果 

[原创]教大家设计精彩的程序说明窗体

[原创]教大家设计精彩的程序说明窗体

TA的精华主题

TA的得分主题

发表于 2008-2-1 10:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

以前用过窗体,后来也是因为容量的关系还是用回了MSGBOX.

罗版好贴,收藏学习.

不懂网页代码,先依样画葫芦吧.

TA的精华主题

TA的得分主题

发表于 2008-2-1 10:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-2-1 11:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

高手,高手,高高手!

TA的精华主题

TA的得分主题

发表于 2008-2-1 13:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-2-1 15:24 | 显示全部楼层
罗大师的好东西,原来以为一定要用web控件来播放html文件,原来可以直接显示html文件.但是不知道罗大师如何将这个网页与excel应用程序交互呢?在用web控件播放网页时,可以做到程序与网页交互的.如果不能交互,那就没有什么用处了.还请罗大师指点指点.

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-1 15:30 | 显示全部楼层
本帖最后由 andysky 于 2014-4-13 09:17 编辑

罗大师的好东西,原来以为一定要用web控件来播放html文件,原来可以直接显示html文件.但是不知道罗大师如何将这个网页与excel应用程序交互呢?在用web控件播放网页时,可以做到程序与网页交互的.如果不能交互,那就没有什么用处了.还请罗大师指点指点.

请看清楚标题:程序说明窗体

只是用来仅程序说明或者帮助文件的,根本不需要任何交互功能。

只要用户通过窗体明白你的程序是干什么的和用法,它的功能就已经充分展现出来。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 23:31 , Processed in 0.055553 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表