我有一个数组要翻译"你好"我每次单击按钮时都想要标签文本。我希望这对于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
现在它显示数组中的最后一项。提前致谢
答案 0 :(得分:0)
在此示例中,每按一次按钮
,您将显示“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
这应该这样做