对于使用文本框的循环

Question

我正在尝试创建一种特殊的打印对话框。 基本上，我在表单上有单选按钮，有两个选项：打印所有页面或打印一系列页面。 页面范围有2个文本框。 一个是开始，一个是结束。 我想同时使用这两个框，并使用在按钮中输入的整数进行for循环。

ElseIf rbPageRange.Checked Then
    Dim startpage As Int32 : startpage = tbPageStart.Text
    Dim endpage As Int32 : endpage = tbPageEnd.Text
    For startpage To endpage
        'do something
    Next
End If

我在To上遇到语法错误，但是我想遍历每个页面并执行某些操作。 我该如何解决？

非常感谢你！

Answer 1

For ... Next语句的正确语法是

For counter As Integer = start To end
Next

因此，您应该将循环更改为

For page As Integer = startpage To endpage
    'do something with page
Next

---

注意，在VB中，您具有当前.NET类型的别名。 例如：

.NET type             VB type alias
---------------       -------------
System.Int16     -->  Short
System.Int32     -->  Integer
System.Int64     -->  Long
System.DateTime  -->  Date

通常用VB而不是Int32来编写Integer 。

Answer 2

尝试写成

For i as Integer = startpage To endpage Step 1
     'Do Something
Next

它应该按预期工作。