自定义了页头和页尾，想直接调用，但不成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自定义了页头和页尾，想在以后的页面中直接调用，

红色的代码在不同位置都试用过，都不成功。麻烦老师指点。

httprequest中

Case "default1.htm"

Functions.Execute("htmlheader",e)

Functions.Execute("default1",e)

Functions.Execute("htmlfooter",e)

e.WriteString(wb.Build) '生成网页

htmlheader 内部函数

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")

e.WriteString(wb.Build) '生成网页

default1内部函数

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

With wb.AddGrid("","g1")

.Add("c1","还书入库", "./images/button.png" ,"./returnbook.htm")

.Add("c2","图书查询", "./images/cell.png", "http://www.foxtable.com")

.Add("c3","借读出库", "./images/toast.png", "http://www.foxtable.com")

End With

e.WriteString(wb.Build) '生成网页

htmlfooter内部函数

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

.AddLink("底部链接","http://www.foxtable.com")

End With

e.WriteString(wb.Build) '生成网页

应该将wb也作为参数传到自定义函数中：

Dim e As RequestEventArgs = args(0)

Dim wb As WeUI = args(1)

wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")

HttpRequest事件：

Dim wb As WeUI

Functions.Execute("函数", e, wb)

'其他代码

e.WriteString(wb.Build) '生成网页

老师您好，按照您的方法改完，运行页面后，提示如下

此主题相关图片如下：360截图20200503154411504.jpg

此主题相关图片如下：360截图20200503154344993.jpg

此主题相关图片如下：360截图20200503154330225.jpg

此主题相关图片如下：360截图20200503154425240.jpg

此主题相关图片如下：360截图20200503154433705.jpg

[此贴子已经被作者于2020/5/3 15:48:55编辑过]

HttpRequest事件：

Dim wb As New WeUI

Functions.Execute("函数", e, wb)

'其他代码

e.WriteString(wb.Build) '生成网页

老师出马，一个顶俩,给您点赞。

e.WriteString不能重复调用，只能在每个页面返回前调用一次。

主题：自定义了页头和页尾，想直接调用，但不成功