- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现狐表网站上BUG收集处理网页，把搜索栏固定在顶端？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187180)
-- 发布时间：2023/6/29 8:56:00
-- 如何实现狐表网站上BUG收集处理网页，把搜索栏固定在顶端？
看了狐表网站上BUG收集处理网页，可以固定项端与底端，中间数据上下移动，要怎么实现，我下面这段代码只能固定底端，顶端的搜索栏随着中间的数据往下，被隐藏掉了。
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
\'定义底端导航
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1", "首页", "./images/home.png")
.AddButton("page2", "办公", "./images/help.png", "index.htm")
.AddPage("page3", "退出", "./images/exit.png")
End With
\'设置首页数据加载
With ExWeUI.WebUI.AddSearchBar("bar01") \'添加一个搜索条
.DataFunc = "test" \'绑定js的查询函数test
.CancelFunc = "testcancel" \'绑定js的取消函数testcancel
wb.InsertHTML("page1",.BuildHtml) \'添加到page1
End With
wb.InsertHTML("page1", "<div id=\'p1\' style=\'margin:0.5em\'>")
With ExWeUI.WebUI.AddListGroup("", "lst01", 1)
Dim docdrs As List(Of DataRow)
docdrs = DataTables("sy_files").Select("", "cjdate desc")
For Each docdr As DataRow In docdrs
With .AddList(docdr("Abstract"), docdr("listbg"), "artpage.htm/?artid=" & docdr("id"))
With .LeftFooter
.AddFoot(docdr("cjdate")).Attribute = "style=\'color:#00698C;font-size:12px\'"
.AddFoot(docdr("cjuser")).Attribute = "style=\'color:#00698C;font-size:12px\'"
End With
End With
Next
wb.InsertHTML("page1",.BuildHtml)
End With
wb.InsertHTML("page1", "</div>")
wb.AppendHTML("<script src=\'./lib/test.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script>initExWeUI()</script>")
e.WriteString(wb.Build)
-- 发布时间：2023/6/29 9:03:00
--
这里就有同样的用法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94825
需要比较多的额外处理，仔细理解一下
-- 发布时间：2023/6/29 11:43:00
--
参照示例研究，现在是固定了，但是列表宽度成这样子了：
此主题相关图片如下：微信图片_20230629114036.png
代码如下，不知是哪个环节错了？
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<style> #tb1_pages{display: flex;overflow: auto;flex:1}</style>", True) \'设置页面的布局方式
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1", "订单", "./images/HOME.png")
.AddPage("page2", "下单", "./images/YSS.png")
.AddPage("page3", "商品", "./images/DDH.png")
.AddPage("page4", "我", "./images/WO.png")
End With
Dim p1Div = ExWeUI.WebUI.AddHtmlTag("", "", "div") \'用于放置导航条和筛选条件
Dim p1Div1 = ExWeUI.WebUI.AddHtmlTag("", "", "div", , "style=\'display: flex;flex-direction: column;height:100%;\'") \'把page1内容都放到一个div中,使用flex布局,否则滚动组件底部会被TabBar遮挡
\'信息页导航
With ExWeUI.WebUI.AddNavBar("", "navbar01")
.Attribute = "style=\'background-color: var(--blue);color: var(--white)\'"
With .LeftGroup.AddItem("nvi01", "")
.image = "./images/00.png"
End With
.CenterGroup.Text = "订单列表"
With .RightGroup.AddItem("nvi04", "")
.image = "./images/01.png"
End With
With .RightGroup.AddItem("nvi03", "")
.image = "./images/00.png"
.Attribute = "" style = \'padding-right:10px\' "
End With
p1Div.InnerHtml = p1Div.InnerHtml & .BuildHtml
End With
With ExWeUI.WebUI.AddSearchBar("sbar01") \'添加一个搜索条
.class = "exui-displaynone"
.DataFunc = "BarSearchNewOrder" \'绑定js的查询函数test
.CancelFunc = "closeSbar01" \'绑定js的取消函数testcancel
p1Div.InnerHtml = p1Div.InnerHtml & .BuildHtml
End With
p1Div1.InnerHtml = p1Div.buildhtml
With ExWeUI.WebUI.AddListGroup("", "lst01", 1)
For i As Integer = 1 To 15
With .AddList("Foxtable数据库应用开发宝典 数据管理", "images/zyxcl.png")
.TextStyle = "style=\'color:block;font-size:12px\'"
.AutoHeight = True
.ImageWidth = 60
With .LeftFooter
.AddFoot("发布时间").Attribute = "style=\'color:#00698C;font-size:12px\'"
.AddFoot("作者").Attribute = "style=\'color:#00698C;font-size:12px\'"
End With
.RightFooter.AddFoot("帮助说明").Attribute = " style=\'color:blue;font-size:12px\'"
End With
Next
p1Div1.InnerHtml = p1Div.InnerHtml & ExWeUI.WebUI.AddHtmlTag("", "", "div", .BuildHtml & ExWeUI.WebUI.AddBackTop("bt01").BuildHtml , "class=""exui-scrollview""").buildhtml
End With
wb.InsertHTML("page1", p1Div1.buildhtml)
e.WriteString(wb.Build)
-- 发布时间：2023/6/29 11:47:00
--
使用浏览器开发者工具调试，看是哪里的css样式有问题