使用Panel
Panel主要用于图文组合列表显示。
一个例子
Select
Case e.Path
Case "test.htm"
Dim wb
As New WeUI
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("|其他信息","http://www.foxtable.com")
End With
End With
With wb.AddPanelGroup("","pg2","文字组合列表")
.Add("pn1","标题一",txt)
'普通列表
.Add("pn1","标题
二",txt,"","http://www.foxtable.com")
'超链接
With .Add("pn2","标题三",txt)
'带有子链接
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
End With
.GroupFoot =
"查看更多"
'底部链接
.GroupHref =
"http://www.foxtable.com/"
End With
e.WriteString(wb.Build)
'生成网页
End
Select
这是在手机上的显示效果:
AddPanelGroup
AddPanelGroup用于增加组合列表组,语法:
AddPanelGroup(ParentID,ID,Text)
ParentID | 父容器的ID,如果是顶层对象,设置为""即可。 |
ID | 分组ID。 |
Text | 可选参数,用于指定分组标题。 |
GroupFoot和GroupHref
GroupFoot和GroupHref属性用于在列表组的结束位置显示一个超链接,上图中的"查看更多"链接就是通过这两个属性实现的。
Add
Add方法用于增加组合列表项,语法:
Add(ID, Text,
Content)
Add(ID, Text,
Content, Image)
Add(ID, Text, Content,
Image, Href)
ID | 列表ID。 |
Text | 列表标题。 |
Content | 列表内容 |
Image | 可选参数,列表图片。 |
Href | 可选参数,单击列表要跳转到的目标URL。 |
AddFoot
AddFoot方法用于在列表项的下方添加脚注,语法:
AddFoot(Text)
AddFoot(Text,Href)
Text | 脚注内容。 |
Href | 可选参数,单击脚注要跳转到的目标URL。 |