exweui 标签动态合成请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → exweui 标签动态合成请教

共有3319人关注过本帖树形打印复制链接主题：exweui 标签动态合成请教

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

exweui 标签动态合成请教 发帖心情

Post By：2022/2/12 19:06:00 [只看该作者]

Dim wb As New weui

wb.AddPageTitle("","ph1","CITY-W","为CITY-W用户量身设计")

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)

Dim Names As String() = {"易格","优客","木作1","木作2","木作3","木作4","木作5","木作6","木作7","木作8","木作9","木作10","木作11","木作12" }

For Each Name As String In Names

With .AddPage("tab01",Name)

'With ExWeUI.WebUI.AddListGroup("","lst01",4)

''For Each r As DataRow In DataTables("图库").SqlSelect("[系列] = '" & name & "'", "","文件名 Desc")

'For Each r As DataRow In DataTables("图库").DataRows

'With .AddList(r("文件名"),"http://yifan9108.oicp.net/city-pic$/pic/" & r("文件名"))

'End With

'Next

'wb.InsertHTML(.BuildHtml)

'End With

希望按下不同标签显示不同的内容，动态生成网页内容

End With

wb.InsertHTML(.BuildHtml)

End With

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

e.WriteString(wb.Build)

[此贴子已经被作者于2022/2/12 19:49:29编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/13 20:17:00 [只看该作者]

With .AddPage("tab01",Name)

.DataUrl = "http://yifan9108.oicp.net/city-pic$/pic/" & r("文件名") '绑定显示其它页面

End With

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2022/2/13 23:54:00 [只看该作者]

Dim wb As New weui

'wb.AddPageTitle("","ph1","CITY-W","为CITY-W用户量身设计")

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("tab014","优客")

'.DataUrl = "优客.htm" '绑定显示其它页面

'End With

实现上面的功能，动态合成，点击某个标签就打开对应的页面

Dim Names As String() = {"优客","易格","慕弗","木作4","木作5","木作6","木作7"}

For Each Name As String In Names

With .AddPage("tab01",Name)

.DataUrl = Name & ".htm" '绑定显示其它页面这里怎么动态合成页面目前除了第一个后面的点击没有动静。

End With

wb.InsertHTML(.BuildHtml)

End With

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

e.WriteString(wb.Build)

[此贴子已经被作者于2022/2/13 23:58:14编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/14 8:37:00 [只看该作者]

点击没有动静说明不存在这些页面

yifan3429

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2022/2/14 23:48:00 [只看该作者]

Select Case e.Path

Case "2111.htm"

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("tab012","首页")

End With

Dim Names As List(Of String)

Names = DataTables("网页_导航").GetValues("标题","[分类]= '城市之窗品牌 '","")

For i As Integer = 0 To Names.Count -1

With .AddPage("tab01",Names(i))

.DataUrl = Names(i) & ".htm" '绑定显示其它页面

''.Content = Names(i)

End With

wb.InsertHTML(.BuildHtml)

End With

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

e.WriteString(wb.Build)

End Select

只有第一项会有条件显示，后面的都不能产生链接。老师帮忙看看。

地址

http://yifan9108.oicp.net:35368/2111.htm

每个子项都是有效的

http://yifan9108.oicp.net:35368/1.htm

[此贴子已经被作者于2022/2/14 23:49:09编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/15 8:36:00 [只看该作者]

学会使用开发者工具调试网页呀，一目了然

正确的地址是

此主题相关图片如下：1.png

错误的

此主题相关图片如下：2.png

yifan3429

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2022/2/15 13:43:00 [只看该作者]

Names = DataTables("网页_导航").GetValues("标题","[分类]= '城市之窗品牌 '","")

For i As Integer = 0 To Names.Count -1

With .AddPage("tab01",Names(i))

.DataUrl = Names(i) & ".html" '绑定显示其它页面

''.Content = Names(i)

End With

wb.InsertHTML(.BuildHtml)

感觉是不是这个合成有问题，还是只能显示第一页

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/15 14:01:00 [只看该作者]

请上传实例说明

yifan3429

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2022/2/15 14:22:00 [只看该作者]

动态标签测试

换成了文字测试

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Select Case e.Path

Case "2111.html"

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("tab012","首页")

End With

Dim Names As List(Of String)

Names = DataTables("http").GetValues("function","[分类]= '按客户分类'","")

For i As Integer = 0 To Names.Count -1

With .AddPage("tab01",Names(i))

'.DataUrl = Names(i) & ".html" '绑定显示其它页面

.Content = Names(i) & "<p style='padding:5px'> 您好!很开心能认识优秀的您! </p>"

End With

wb.InsertHTML(.BuildHtml)

End With

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

e.WriteString(wb.Build)

End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:网页动态测试.foxdb

[此贴子已经被作者于2022/2/15 14:45:09编辑过]

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/15 14:40:00 [只看该作者]

没看懂这些代码。怎么测试？打开哪个网页？

下一主题 >> << 上一主题

总数 20 1 2 下一页

主题：exweui 标签 动态合成请教

主题：exweui 标签动态合成请教