发布网友 发布时间:2022-04-22 05:50
共1个回答
热心网友 时间:2024-02-29 09:00
是可以的。
步骤1
按【Alt+F11】组合键打开VBE窗口,选择菜单“插入”—“用户窗体”。
步骤2
在窗体左边根据个人喜好可以对自己的软件做简要说明,以及加入软件Logo、官网地址、版本号等。然后在中间添加一个关闭按钮,在右边添加一个Web控件,用于显示彩蛋的其他项目。窗体及各控件的布局如下图所示。
步骤3
双击窗体进入窗体的事件代码窗口,并输入以下代码。
'声明APT函数, 用于调用默认的邮件程序
Private Declare Function shellexecute Lib "shell32.dll" Alias "shellexecutsa" ()
(byval hwnd as Long, byval lpoperation as String, byval lpfie as String,
ByVal lpparamenters as String, byval lpdirectory as String, byval nshwocmd
As Long) As Long
'当鼠标弹出时触发事件
Private Sub CommandButtion1_MouseUp(ByVal Button As Integer,ByVal Shift
As Integer,ByVal X As Single, ByVal Y As Single)
If Button = 1 And Shift = 2 Then '如果按住【Ctrl】键同时单击左键
WebBrowser1.Left = 0 '将Web控件移到左边
WebBrowser1.Navigate "about:blank" '将网页初始化,其首页为空白页
WebBrowser1.Document.Open '打开网页,以下三句用于写入滚动位子代码
WebBrowser1.Document.WriteLn "<body style='border:none;overflow:hidden;"
margin:0 ' oncontextmenu='return false'> "
WebBrowser1.Document.WriteLn "<marquee direction=up scrollamount=2"
id= 'help' height='150' onmouseover='help.stop()' onmouseunt='help.
start()'< Font style='filter:glow(color=#FF8000,strength=2);height:
150 px: padding: lpx '" & ">Excel百宝箱8.0是利用VBA (Visual Basic for
Applications)语言编写的增强型插件.它包括79个菜单功能和26个自定义函数, 集105
个工具于一身 , 但体积小于2MB.当安装百宝箱后, 如果您使用Excel2003, 则将产生【百
宝箱】 菜单, 包括70多个子菜单: 如果您使用Excel2007获知2010 , 将产生【百宝箱】功
能区.根据各功能区特点 , 对子菜单做了9个分类, 而在函数向导对话框中也生成26个新的
函数, 用于扩展Excel的计算功能. 且所有功能都通用于Excel2002、2003和2007、2010.
</marquee></p>" '核心代码, scrollamount控制速度
WebBrowser1.Document.WriteLn "</BODY>"
ElseIf Buton = 2 And Shift = 2 Then '如果按住【Ctrl】键,同时单击鼠标右键
On Error Resume Next '错误时继续执行
Dim MyMail As String
'调用邮件程序像作者发送邮件
MyMail = "mailto(Err.Number@163.com?subject=反馈&body=关于 《Excel百宝箱8.0》"
& Error(Err.Number) & "%OA我有以下三项提议: %OA%OA" + Space(20) +
"用户: " + Application.UserName & "%OA" + Space(20) & Date
shellexecute 0&, vbNullString, MyMail, vbNllString, vbNullString, 1
Else '否则关闭窗体
End
End If
End Sub
Private Sub UserForm_Actinate() '激活窗体时, 设置窗体的宽度
Me.Width = 181
End Sub
End Sub
步骤4
关标置于代码中任意位置,并按【F5】键显示窗体,窗体的默认显示效果如图。
步骤5
单击窗体中的“关闭”按钮,其功能和其他按钮一致,可以关闭当前窗体。但如果按住Ctrl键的同时单击“关闭”按钮,那么窗体将显示一个滚动的文字,用于描述软件到功能,如下图。
步骤6
按住【Ctrl】键单击鼠标右键,将弹出如图所示的窗口,可以通过它收集用户对软件的反馈信息。