使用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。

 

 


本页地址:http://www.foxtable.com/mobilehelp/topics/0078.htm