[原创]设计动态窗体另类方法

andysky

可弹出窗体----但不用Excel的窗体
动画效果----精彩纷呈
包括四种特效.下载后双击打开,可以看到新菜单
笑了: 包括鼠标跟随动画文字和一首动态<全国人民都笑了>歌词
送福: 一首祝福诗加动态文字(无边框且自动关闭)
旋转: 七彩文字\流光溢彩\精彩纷呈
祝福: 动态且多彩文字以及跳跃会说话的老人(如果你的WINDOWS是精减版则无法看到人物)

t1wC0CE0.rar (81.22 KB, 下载次数: 184)

2008-1-21 09:48 上传

点击文件名下载附件
[原创]设计动态窗体另类方法

[此贴子已经被作者于2008-1-21 10:56:20编辑过]

yangjia1980

菜单是看到了

但是完全没有效果

andysky

QUOTE:

以下是引用yangjia1980在2008-1-21 12:24:31的发言：

菜单是看到了

但是完全没有效果

预览一下

yangjia1980

我知道问题出在哪了

应该是要保存到本地再用才会有效果，对吧

andysky

宏代码在此

Sub 动画()
On Error Resume Next
Application.DisplayAlerts = False
Dim i As Integer, File As String, cell As Range, rng As Range
If Application.CommandBars.ActionControl.Caption = "送福" Then Set rng = ThisWorkbook.Sheets(1).Range("a1:a38")
If Application.CommandBars.ActionControl.Caption = "笑了" Then Set rng = ThisWorkbook.Sheets(1).Range("B1:B310")
If Application.CommandBars.ActionControl.Caption = "旋转" Then Set rng = ThisWorkbook.Sheets(2).Range("A1:A103")
If Application.CommandBars.ActionControl.Caption = "祝福" Then Set rng = ThisWorkbook.Sheets(3).Range("A1:A339")
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

andysky

利用这个技术设计个性化程序说明是最理想的。

以前都用API来设计说明窗体，占用内存大，且代码难懂。用这个网页式说明动画效果更精彩。占用内存小。

我的百宝箱6.0就是采用的这个说明窗体（包括鼠标跟随动态效果）。

02761752696

andysky 发表于 2008-1-21 12:37
QUOTE:以下是引用yangjia1980在2008-1-21 12:24:31的发言：菜单是看到了但是完全没有效果预览一下

罗老师您好，请问能分享一下这个鼠标文字跟随的动画的 示例或者网页代码嘛 ，想了解一下，主题附件无法下载，谢谢