Question

我有一个数组要翻译＆＃34;你好＆＃34;我每次单击按钮时都想要标签文本。我希望这对于VB和新手程序员来说很有意义。

Private Sub langChangeBtn_Click(sender As Object, e As EventArgs) Handles langChangeBtn.Click
    Dim helloArray() As String = {"Hola", "Ni hao!", "Hallo!", "Kon'nichiwa!", "Shalom!"}

    For i As Integer = 0 To helloArray.Length - 1

        lblHello.Text = helloArray(i)

    Next
End Sub

现在它显示数组中的最后一项。提前致谢

Answer 1

在此示例中，每按一次按钮

，您将显示“next”“hello”

Private _currentHello As Integer = 0
Private _helloArray() As String = {"Hola", "Ni hao!", "Hallo!", "Kon'nichiwa!", "Shalom!"}


Private Sub langChangeBtn_Click(sender As Object, e As EventArgs) Handles langChangeBtn.Click


    lblHello.Text = helloArray(_currentHello)
    _currentHello += 1
    If _currentHello = helloArray.Length Then _currentHello = 0

End Sub

这应该这样做

使用visual basic.NET更改标签文本

1 个答案: