-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 回答