通过文本框循环字符串加入文本框
through textbox loop string join in textboxes
很简单,我想在文本框中显示它的值i但是在同一行上用逗号分隔。也就是说,我的文本框应该是 Textbox1.Text = 1,2,3,4,5,6,7,8,9
那么我如何在不写很多行的情况下以更简单的形式做到这一点。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer = 0
While i < 9
i = i + 1
TextBox1.AppendText(i & "," & vbNewLine)
TextBox1.Text = TextBox1.Text.Replace(vbCrLf, vbLf)
End Sub
Enumerable.Range(startNumber, Length)
给出数字,String.Join
将数字添加到以逗号分隔的字符串中。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = String.Join(",", Enumerable.Range(1, 9))
End Sub
很简单,我想在文本框中显示它的值i但是在同一行上用逗号分隔。也就是说,我的文本框应该是 Textbox1.Text = 1,2,3,4,5,6,7,8,9
那么我如何在不写很多行的情况下以更简单的形式做到这一点。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer = 0
While i < 9
i = i + 1
TextBox1.AppendText(i & "," & vbNewLine)
TextBox1.Text = TextBox1.Text.Replace(vbCrLf, vbLf)
End Sub
Enumerable.Range(startNumber, Length)
给出数字,String.Join
将数字添加到以逗号分隔的字符串中。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = String.Join(",", Enumerable.Range(1, 9))
End Sub