所以我制作了一个TextBox,我想在那里显示一个小测试日志。 我告诉我的按钮在按下时打印测试文本:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Button1Click As Boolean
TextBox2.Text = Random()
Button1Click = True
If Button1Click Then
TextBox1.Text = ("Generated ID:" & Random())
Else
TextBox1.Text = "LELELELELLE"
End If
Button1Click = False
End Sub
函数Random只在那里打印一些随机数。它正在工作,它打印出:GeneratedID:asd293r04orwr04fjdl但随机数总是在这个行中生成新的。我希望按钮在按下时添加新行,所以它看起来像:
没有1,2,3 ...只是因为这里有奇怪的格式。
但是怎么样? ^^我尝试了vbNewLine,但它没有用。答案 0 :(得分:0)
首先确保TextBox1.Multiline
为真。
TestBox1.AppendText("Generated ID:" & Random() & Environment.NewLine)
应该有用。