我的目标:让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务。支持我,也为自己加油!
你没看错,上面这个就是用Excel做出来的,不过要用到窗体和控件。步骤如下:打开VBE界面,插入一个窗体,在窗体中插入WebBrowser控件,如下:可能你在工具箱里找不到这个控件,需要先到附加控件里把它添加到工具箱里。双击窗体,写入以下代码:Private Sub UserForm_Activate() Dim str As String str = "帮助说明:
1、本工具只适用于win7以上的系统
2、使用本工具前请确保已经安装OFFICE软件
3、请使用管理员身份运行本工具
4、请及时更新版本
5、如有建议请加本人微信反馈,微信号:527240310
"
WebBrowser1.Navigate "about:blank" WebBrowser1.Document.writeln "
" & str & "
"End Sub
向左滑动可以查看完整代码。
当窗体激活时触发以上事件,
WebBrowser1.Navigate "about:blank"表示先打开一个空白的网页。
WebBrowser1.Document.writeln方法表示向网页中写入内容网页代码。
具体网页代码如下:
style='' οncοntextmenu='return false'>……省略号代表变量str里的内容。不需要理解太深,只要掌握一些关键的属性,照猫画虎,就可以做出案例中的效果。html代码中关键标签及其属性的解释
bgcolor:网页的背景颜色,属性值可以修改。
style 中是一些相关的属性,比如边框,溢出,外边框距离。oncontextmenu='return false',表示网页中禁用右键。下面这一段是滚动字幕(跑马灯)的关键代码,……direction表示滚动方向,可以向上,向下,向左,向右scrollamount表示滚动速度,值越大滚动越快。看着挺复杂,其实只要搞清楚具体的原理以及html代码的结构,遇到不懂的属性百度下就可以做出自己想要的效果。本节的分享就到这里,祝大家每天都有进步。公众号后台资源库可获取更多资源:
1
在线课堂在逐渐完善中,欢迎您的光临!
点击下方“”即可进入云课堂学习!