教大家设计精彩的程序说明窗体

楼主罗刚君	VBA爱好者一定有过或多或少的程序面世吧？也一定在编完代码后需要加一个使用说明吧？在内容完善的前提下，同时提升窗体的美观是很重要的。程序和窗体也需要审美。我最初使用MSGBOX，简单易懂。见下图：然后用窗体配合一下图片与嵌入FLSAH，稍微漂亮点，但容量迅速增大。见下图：再之后用API制作个性的窗体标题和边框，配合网页代码设计滚动文字。见下图：近期找到了更好的办法。不需要API，但窗体精彩许多。好处如下： 1.比API更易懂； 2.效果更生动，可以制计三维文字或者鼠标跟随文字与花絮、动态、跳跃字符等等； 3.网上有大量的漂亮网页模板供借用，方便新手复制； 4.占用内存极小； 5.文件体积极小。先看看近期作品之一的效果1.gif
2楼罗刚君	首先，您要必要懂得一些网页编程代码。一定不懂？没关系，直接复制网页特效即可。附件包括三个特效，您可以随意复制其代码。具体操作骤如下： 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： hide.rar 特效.rar
3楼罗刚君	网页修改完毕后，您需要将网页代码导入到工作表中。重点：不能复制--粘贴到工作表的单元格，而是导入文本文件。 1.【数据】\【导入外部数据】\【导入数据】，找到hide.txt,然后导入。 2.导入时需要注意： 3.导入数据后，按下Alt+F11进入VBE窗口； 4.单击【插入】\【模块】，在模块窗口中输入以下代码： Sub Auto_open() On Error Resume Next Application.DisplayAlerts = False Dim i As Integer, File As String, cell As Range, rng As Range Set rng = ThisWorkbook.Sheets(1).UsedRange File = "c:\hide.hta" i = FreeFile Open File For Output Access Write As #i For Each cell In rng Print #i, cell.Text Next cell Close (i) Shell Environ$("comspec") & " /c """ & File & """", vbHide Application.DisplayAlerts = True End Sub 这段代码是将网页代码生成可直接播放的网页，关开启网页。 5.为了删除临时文件，再加入以下代码： Sub Auto_close() On Error Resume Next Kill "c:\hide.hta" End Sub 6.保存工作表为加载宏： 7.再打开工作表，并通过【工具】\【加载宏】找到您刚才制作的文件并打开，是否漂亮的窗体已经产生？ 8.其实还可以用精美的Flash动画制作背景，让窗体锦上添花。留待下回分解。 andysky作品.rar
4楼 wnianzhong	罗老师又出大作了,谢谢.
5楼 wangqilong1980	无论如何也要顶一下喽，收了好好用。
6楼跑跑	谢谢老师，下了
7楼 david7289	学学!O(∩_∩)O谢谢
8楼 gdzjccbyt	谢谢楼主，高手还是高手！
9楼 m_sampdoria	拜读，太强了
10楼 jam889889	太难了，仰视。
11楼 bensonlei	多谢分享！
12楼罗刚君	有人照做吗
13楼 bishunbiao	收藏，正需要
14楼 sharkzhou	好厉害啊
15楼资深乞丐	学习了！
16楼现在都在线	有点看懂，有点不懂
17楼 jeep2700	谢谢分享 !
18楼 rongyun	学习一下，让自己也成为高手。