Rich Text Box VB.NET Line By Line Стоп и авто?

Question

У меня есть этот код:

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

Вопрос есть ... Как я могу получить его остановить после того, как он читает последнюю строку, а не повторять? Кроме того, есть ли способ его автоматизировать, поэтому мне не нужно нажимать кнопку, чтобы перейти к следующей?

(для тех, кто должен знать это для автоматизированной Twitter плакат для криптовалюта Переломный Bot)

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 (5 секунд) и включите его при нажатии кнопки. то код будет

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