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

我的PAGE1是列表,现在点击一行,进入page2,再点回来的时候,显示的是PAGE1的顶部,

我想要实现的就是,我page1滚动到哪个位置,切换回来还是哪个位置.

麻烦老师指点一下,谢谢

此主题相关图片如下：0001111.jpg

此主题相关图片如下：企业微信截图_16178457967930.png

Dim e As RequestEventArgs = args(0)

Select Case e.Path

Case "t1.htm"

Dim wb As New weui

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

With wb.AddListGroup("page1", "lsg1","简单列表")

For i As Integer = 0 To 20

Dim s As String

s="lg" & i

.Add(s, "新浪主页" & i).Attribute="""

End With

With wb.AddArticle("page2","ar2")

.AddTitle("h1","关于易表")

.AddContent("易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")

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

End With

With wb.AddButtonGroup("page2","btg2")

.Add("btn2", "上一页", "button").Attribute="""

End With

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

End Select

[此贴子已经被作者于2021/4/8 9:41:57编辑过]

Select Case e.Path

Case "test.htm"

Dim wb As New weui

wb.AppendHTML("<script>var cur;</script>",True)

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

With wb.AddListGroup("page1", "lsg1","简单列表")

For i As Integer = 0 To 20

Dim s As String

s="lg" & i

.Add(s, "新浪主页" & i).Attribute="tabindex='1' onclick=""cur='#" & s & "';hide('page1');show('page2')"""

End With

With wb.AddArticle("page2","ar2")

.AddTitle("h1","关于易表")

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

End With

With wb.AddButtonGroup("page2","btg2")

.Add("btn2", "上一页", "button").Attribute="onclick=""hide('page2');show('page1');document.querySelector(cur).focus();"""

End With

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

End Select

谢谢老师!和点击前稍后区别,不过能满足需求了

主题：移动开发PAGE切换问题