Foxtable(狐表)用户栏目专家坐堂 → 发现一个bug,exweui框架的标签页Tabs放入weui框架的TabBar中时,第二个page中的标签页导航会竖排,另外,exweui框架的标签页导航能否固定在最上方或最下边不随滚动条移动,再改进一下


  共有3572人关注过本帖平板打印复制链接

主题:发现一个bug,exweui框架的标签页Tabs放入weui框架的TabBar中时,第二个page中的标签页导航会竖排,另外,exweui框架的标签页导航能否固定在最上方或最下边不随滚动条移动,再改进一下

帅哥哟,离线,有人找我吗?
百灵
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:740 积分:7700 威望:0 精华:0 注册:2015/3/3 14:34:00
发现一个bug,exweui框架的标签页Tabs放入weui框架的TabBar中时,第二个page中的标签页导航会竖排,另外,exweui框架的标签页导航能否固定在最上方或最下边不随滚动条移动,再改进一下  发帖心情 Post By:2022/2/7 8:44:00 [只看该作者]

发现一个bug,exweui框架的标签页Tabs放入weui框架的TabBar中时,第二个page中的标签页导航会竖排,另外,exweui框架的标签页导航能否固定在最上方或最下边不随滚动条移动,再改进一下。测试代码:

Dim wb As New weui

With wb.AddTabBar("", "tb1", 1)

    .AddPage("page1","微信","")

    .AddPage("page2","通讯录","")

    .AddPage("page3","发现","")

    .AddButton("bt1","我","")

End With

wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)

wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)

With ExWeUI.WebUI.AddTabsGroup("","tg01",True)

    With .AddPage("tab01","标签一")

        .C

    End With

    With .AddPage("tab02","标签二")

        .C

    End With

    With .AddPage("tab03","标签三")

        .C

    End With

    With .AddPage("tab04","标签四")

        .C

    End With

    With .AddPage("tab05","标签五")

        .C

    End With

    wb.InsertHTML("page1",.BuildHtml)   

End With

With ExWeUI.WebUI.AddTabsGroup("","tg02",True)

    With .AddPage("tab06","标签1")

        .C

    End With

    With .AddPage("tab07","标签2")

        .C

    End With

    With .AddPage("tab08","标签3")

        .C

    End With

    With .AddPage("tab09","标签4")

        .C

    End With

    With .AddPage("tab10","标签5")

        .C

    End With    

    wb.InsertHTML("page2",.BuildHtml)

End With

wb.AppendHTML("<script>initExWeUI()</script>") '用于初始化可滚动标签的宽度,如果没有设置可滚动标签,可以不用调用此函数  

output.show(wb.Build)

e.WriteString(wb.Build)  

[此贴子已经被作者于2022/2/7 8:46:25编辑过]

 回到顶部
总数 11 1 2 下一页