[已解决]走马灯的几个问题希望大神帮我解决一下

大灰狼1976 · 发表于 2021-12-9 14:09

07版也是残废版，估计还是webbrowser控件的兼容性不好，好像版本挺老的。

天门白云 · 发表于 2021-12-9 20:56

大灰狼1976 发表于 2021-12-9 14:09
07版也是残废版，估计还是webbrowser控件的兼容性不好，好像版本挺老的。

昨天的这个代码，如果要加字体大小和字体形状在里面应该还要加一些什么呢

大灰狼1976 · 发表于 2021-12-9 21:12

你试试：

Private Sub UserForm_Activate()
Dim str As String
str = "帮助说明： 1、本工具只适用于win7以上的系统 2、使用本工具前请确保已经安装OFFICE软件 3、请使用管理员身份运行本工具 4、请及时更新版本 5、如有建议请加本人微信反馈 "
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.writeln "<html><body bgcolor='#CCFF66' style='border:none;overflow:hidden;margin:0;font-size:40;font-family:simHei' oncontextmenu='return false'><marquee direction=up height=100 scrollamount='2' onMouseOver=this.stop(); onMouseOut=this.start();>" & str & "</marquee></body></html>"
End Sub

复制代码

大灰狼1976 · 发表于 2021-12-9 21:18

设置行距的方法也找到了。

Private Sub UserForm_Activate()
Dim str As String
str = "帮助说明： 1、本工具只适用于win7以上的系统 2、使用本工具前请确保已经安装OFFICE软件 3、请使用管理员身份运行本工具 4、请及时更新版本 5、如有建议请加本人微信反馈 "
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.writeln "<html><body bgcolor='#CCFF66' style='border:none;overflow:hidden;margin:0;font-size:16;font-family:simHei;line-height:30px' oncontextmenu='return false'><marquee direction=up height=100 scrollamount='2' onMouseOver=this.stop(); onMouseOut=this.start();>" & str & "</marquee></body></html>"
End Sub

复制代码

天门白云 · 发表于 2021-12-11 11:12

大灰狼1976 发表于 2021-12-9 21:18
设置行距的方法也找到了。

太厉害了

天门白云 · 发表于 2022-1-14 22:23

大灰狼1976 发表于 2021-12-9 21:18
设置行距的方法也找到了。

你的这个代码，我想改成在控件的顶端上面从右向左跑的那种，麻烦帮我改一下

大灰狼1976 · 发表于 2022-1-15 13:44

天门白云发表于 2022-1-14 22:23
你的这个代码，我想改成在控件的顶端上面从右向左跑的那种，麻烦帮我改一下

可以的

天门白云 · 发表于 2022-1-15 17:05

大灰狼1976 发表于 2022-1-15 13:44
可以的

晚上可以帮我改好的吗，谢谢你了

大灰狼1976 · 发表于 2022-1-15 19:33

Private Sub UserForm_Activate()
Dim str As String
str = "帮助说明： 1、本工具只适用于win7以上的系统 2、使用本工具前请确保已经安装OFFICE软件 3、请使用管理员身份运行本工具 4、请及时更新版本 5、如有建议请加本人微信反馈 "
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.writeln "<html><body bgcolor='#CCFF66' style='border:none;overflow:hidden;margin:0;font-size:16;font-family:simHei;line-height:30px' oncontextmenu='return false'><marquee direction=left height=100 scrollamount='2' onMouseOver=this.stop(); onMouseOut=this.start();>" & str & "</marquee></body></html>"
End Sub

复制代码

天门白云 · 发表于 2022-1-15 22:41

大灰狼1976 发表于 2022-1-15 19:33

谢谢

		自动登录	找回密码
密码			注册