Question

我有这段代码：

    If RotateCount = RichTextBox1.Lines.Count Then
    RotateCount = 0
    End If
    TextBox2.Text = RichTextBox1.Lines(RotateCount)
    RotateCount += 1

问题是......如何在读完最后一行并且不再重复之后让它停止？另外，有没有办法自动化它，所以我不必按下按钮去下一个？

（对于那些需要知道这是用于加密货币小费机器人的自动Twitter海报的人）

Answer 1

它不会停止，因为当RotateCount = 0使用

可以避免RotateCount = RichTextBox1.Lines.Count时重新分配

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If RotateCount = RichTextBox1.Lines.Count Then
        Exit Sub
    End If
    TextBox1.Text = RichTextBox1.Lines(RotateCount)
    RotateCount += 1
End Sub

timer

如果您想自动执行此操作，则需要使用timer在读取之间调用时间延迟。您可以通过从工具框中放置5000控件然后将其间隔设置为Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If RotateCount = RichTextBox1.Lines.Count Then Exit Sub End If TextBox1.Text = RichTextBox1.Lines(RotateCount) RotateCount += 1 End Sub（5秒）并在按钮单击时启用它来实现此目的。那么代码就是

{{1}}

富文本框VB.NET逐行停止和自动？

1 个答案: