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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddTabBar 页面增加函数问题

共有950人关注过本帖树形打印复制链接主题：AddTabBar 页面增加函数问题

ycs5801

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

等级：五尾狐帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00

AddTabBar 页面增加函数问题 发帖心情

Post By：2024/5/13 22:03:00 [显示全部帖子]

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等页面设置成函数形式？应该怎样修改？

ycs5801

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

等级：五尾狐帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/5/14 8:40:00 [显示全部帖子]

假如函数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”。

ycs5801

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

等级：五尾狐帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2024/5/14 8:53:00 [显示全部帖子]

Dim e As RequestEventArgs = args(1)

Dim wb As WeUI = args(0)

这样改可以了。

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