首页 > 解决方案 > 使用文本框的 For 循环

问题描述

我正在尝试创建一种特殊的打印对话框。基本上我在表单上有单选按钮,有两个选项:打印所有页面,或打印一系列页面。页面范围有 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但我想遍历每个页面并做一些事情。我该如何解决?

非常感谢!

标签: .netvb.net

解决方案


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

通常用IntegerVB 编写,而不是Int32.


推荐阅读