AddTabBar 页面增加函数问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

.AddPage("page1","微信","./images/button.png")

.AddPage("page2","通讯录","./images/msg.png")

.AddPage("page3","发现","./images/article.png")

.AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")

End With

这个能不能将page1、page2等页面设置成函数形式？应该怎样修改？

http://www.foxtable.com/mobilehelp/topics/0081.htm

Select Case e.Path

Case "test.htm"

Dim wb As New WeUI

Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

'增加三个页面,一个按钮

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

.AddPage("page1", "微信", "./images/button.png")

.AddPage("page2", "通讯录", "./images/msg.png")

.AddPage("page3", "发现", "./images/article.png")

.AddButton("bt1", "我", "./images/cell.png", "http://www.foxtable.com")

End With

'为第一个页面增加内容

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

'为第二个页面增加内容

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

'为第三个页面增加内容

With wb.AddArticle("page3", "ar1")

.AddTitle("h1", "发现")

.AddTitle("h2", "章标题")

.AddTitle("h3", "1.1节标题")

.AddContent(txt)

.AddImage("./images/001.jpg")

.AddTitle("h3", "1.2节标题")

.AddContent(txt)

.AddImage("./images/002.jpg")

End With

e.WriteString(wb.Build)

End Select

函数1

Dim wb As WeUI = args(0)

wb.AddForm("page1", "form1", "test.htm")

With wb.AddInputGroup("form1", "ipg1")

.AddInput("xm", "户名", "text")

.AddInput("mm", "密码", "password")

End With

With wb.AddButtonGroup("form1", "btg1", True)

.Add("btn1", "确定", "submit")

End With

函数2

Dim wb As WeUI = args(0)

With wb.AddPanelGroup("page2", "pg1", "图文组合列表")

.Add("pn1", "标题一", txt, "./images/button.png", "http://www.foxtable.com")

With .Add("pn2", "标题二", txt, "./images/search.png")

.AddFoot("文字来源")

.AddFoot("时间")

.AddFoot("|其他信息", "http://www.foxtable.com")

End With

.GroupFoot = "查看更多"

.GroupHref = "http://www.foxtable.com/"

End With

假如函数1的内容如下：Dim e As RequestEventArgs = args(0)

Dim wb As WeUI = args(0)

If e.Cookies.ContainsKey("用户姓名") And e.Cookies.ContainsKey("用户密码") Then

Dim dr As DataRow = DataTables("登录用户").sqlfind("用户姓名='" & e.Cookies("用户姓名") & "'")

If dr Is Nothing OrElse dr("用户密码") <> e.Cookies("用户密码") Then '''如果无此用户,或密码不正确.

wb.InsertHTML("<meta http-equiv='Refresh' c>")

e.WriteString(wb.Build)

Return""

End If

Else

wb.InsertHTML("<meta http-equiv='Refresh' c>")

e.WriteString(wb.Build)

Return""

End If

我如果去掉黄色部分，则会提示缺少e参数，如果用了就会报错：无法将类型为“Foxtable.wui”的对象强制转换为类型“Foxtable.RequestEventArgs”。

Dim e As RequestEventArgs = args(1)

Dim wb As WeUI = args(0)

这样改可以了。

主题：AddTabBar 页面增加函数问题