如何计算列表框项目从索引10到20？

Question

我的问题是??? - 如何计算索引中的“列表框”项目 10到20 ......像这样=＆gt; 10 11 12 13 14 15 16 17 18 19 20

但不喜欢这个 0 1 2 3 4 ...... 20

- M使用此代码但未实现....

索引为整数= CInt（listbox1.items.count = 10）至20 下一个

同样的这个但同样的prome ..

索引为整数= 10到Listbox1.items.count 20 下一个

索引始终从0到20但不是从10到20 ....

我被困在这里，一个人可以告诉我在上面给出的代码中做错了什么....

需要帮助...... thnxxs

Answer 1

您似乎遇到了语法问题，因为您在读取上下文时将值写入listbox1.items.count。

doc州：

For index As Integer = 1 To 5

为了使您的代码有效，请尝试：

For index As Integer = CInt(listbox1.items.count) To 20

计数应该从0到20之间的任何值开始。在你的情况下，变量应该具有值10.在运行For循环之前确保变量具有该值。

Answer 2

我解决了你的问题：）

这是你的表格应该是什么样子：

这是代码：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Index As Integer = CInt(ListBox1.Items.Item(8)) To 20
            RichTextBox1.Text = RichTextBox1.Text & Index & vbLf
        Next
    End Sub

    'You can also use this code...

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim X As Integer = 8
        While X < 19
            RichTextBox1.Text = RichTextBox1.Text & ListBox1.Items.Item(X) & vbLf
            X += 1
        End While
    End Sub
End Class

我希望这段代码对你有用。 ：）