我想在网络表单中显示特定页面,点击“下一页”和“上一页”按钮显示上一页或下一页。 (详情如下):
要访问特定页面,您可以在我的URL中的“Bitonal#page /”斜杠后面调整页面值,如下所示。例如,您可以转到:
进入第136页http://br.mdsa.net/BookReader/index.html?id=ce425&item=1&format=Bitonal#page/136/mode/1up
看看“Bitonal#page /”之后的斜线
下一个数字是页码。因此,上面的URL是针对页面#136的。我希望能够在“上一页”或“下一页”按钮单击时转到下一页或上一页。
例如,如果我点击上面的URL中的上一个按钮,我希望能够到达“Bitonal #page /”之后的值“135”,以便我可以查看第135页。
什么是循环代码,以便我可以在下面的按钮中提供此功能?
提前致谢。
答案 0 :(得分:0)
您需要有一个模块或类级变量来保存页码;最初设置为第一页:
Dim pg As Integer = 1
在下一页按钮代码中执行此操作:
pg += 1
Dim pgLink As String
pgLink = "http://br.mdsa.net/BookReader/index.html?id=ce425&item=1&format=Bitonal#page/" & pg & "/mode/1up"
'assign the pgLink to the pageviewer
上一页按钮代码中的执行相同操作,但页面被减去:
If pg > 1 Then pg -= 1
Dim pgLink As String
pgLink = "http://br.mdsa.net/BookReader/index.html?id=ce425&item=1&format=Bitonal#page/" & pg & "/mode/1up"
'assign the pgLink to the pageviewer