Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
.AddButton("btnOK","确定","edit.htm")
End With
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","图文组合列表")
.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接
With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("<a onclick=""show('dlg1')"" style='color:blue'>|其他信息</a>","")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2021/6/25 11:14:11编辑过]
加好友 
发短信
Post By：2021/6/25 10:47:00 [显示全部帖子]
