我如何使一个按钮执行多个点击与一个标签

Question

我想做一个类似的启动提示，当您打开一个程序时弹出一个程序。我创建了一个标签文本显示，第一个字符串作品但如果我添加其余的最后一个字符串覆盖标签中的所有以前的字符串。下面是我的代码。

Public Class Form1 

    Dim string1 As String = "Hello " 
    Dim string2 As String = "world" 
    Dim string3 As String = "next text" 
    Dim string4 As String = "text4" 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click 
     lblDisplay.Text = string1 
     lblDisplay.Text = string2 
    End Sub 

End Class 

Answer 1

这将显示每个字符串，当你点击按钮。它从文本中创建一个字符串数组string1，然后当点击该按钮时，它会显示数组中的每个项目，同时跟踪tipcnt中的项目数量。如果tipcnt = string1.Count，它将重置为0.如果要显示更多字符串，只需将它们附加到数组。

Public Class Form1 
    Dim string1 As String() = {"Hello", "world", "next text", "text4"} 
    Dim tipcnt As Integer = 0 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
     lblDisplay.Text = string1(tipcnt) 
     tipcnt += 1 
     If tipcnt = string1.Count Then tipcnt = 0 
    End Sub 
End Class