-- 作者：OKK
-- 发布时间：2018/12/21 14:23:00
-- [求助]ADDFOOT居中
| wb.AddPageTitle("page1","bp1","","") | | With wb.AddPanelGroup("page1","pg1","") | | With .Add("pn2","","","") | | .AddFoot("<div align=\'center\'><a href=\'" & "www.baidu.com" & "\'>打开百度</a></div>") | | End With | End With
| wb.AddPageTitle("page1","bp1","","") | | With wb.AddPanelGroup("page1","pg1","") | | With .Add("pn2","","","") | | .AddFoot("<div style=\'text-align:center\'><a style=\'text-align:center\' href=\'" & "www.baidu.com" & "\'>打开百度</a></div>") | | End With | | End With |
|
打开百度四个字无法居中，一直在显示在最左边 |
|
|
-- 作者：有点甜
-- 发布时间：2018/12/21 15:41:00
--
参考代码
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
wb.AddPageTitle("","bp1","","")
With wb.AddPanelGroup("","pg1","")
With .Add("pn2","","","")
.AddFoot("<div align=\'center\'><a href=\'" & "www.baidu.com" & "\'>打开百度</a></div>")
End With
End With
wb.InsertHTML("<style>.weui_media_box.weui_media_text .weui_media_info_meta{float: none;}</style>")
e.WriteString(wb.Build) \'生成网页
End Select
|