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

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

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

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：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编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：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编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：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编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：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)

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

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：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编辑过]

yifan3429

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

加好友

发短信

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

Post By：2022/2/15 14:42:00 [显示全部帖子]

动态标签测试的函数

http://yifan9108.oicp.net:35368/1111.html

结果页面

9楼的代码

原来是网页，您说地址不对，我先换成文字，完成页面可以点击切换，分别显示不同的内容

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

yifan3429

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

加好友

发短信

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

Post By：2022/2/15 15:28:00 [显示全部帖子]

现在的就是真实案例啊。

切换标签、现实对应的页面

[此贴子已经被作者于2022/2/15 15:28:37编辑过]

yifan3429

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

加好友

发短信

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

Post By：2022/2/15 15:29:00 [显示全部帖子]

目前是循环生成的页面和标签，只有第1个页面是活的，有内容可以显示，后面的没法点击、代码上应该是每个页面都有自己对应的内容的。

上面的链接您访问一下看看。就知道问题在哪里了。

[此贴子已经被作者于2022/2/15 15:33:06编辑过]

yifan3429

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

加好友

发短信

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

Post By：2022/2/15 16:00:00 [显示全部帖子]

您看一下我最后发的这个页面1111的。

yifan3429

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

加好友

发短信

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

Post By：2022/2/15 16:55:00 [显示全部帖子]

9楼的动态标签测试的内部函数就是代码

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

总数 11 1 2 下一页

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

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