-2

我想在 Web 表单中显示特定页面,点击“下一页”和“上一页”按钮会显示上一页或下一页。(详情如下):

要访问特定页面,您可以在我的 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 中点击上一个按钮,我希望能够到达“135”是“Bitonal#page/”之后的值,这样我就可以查看第 135 页。

什么是循环代码,以便我可以为下面的按钮提供此功能?

提前致谢。

4

1 回答 1

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  
于 2013-07-12T14:31:07.850 回答