82问答网 > 请问在VB.net中怎么把循环语句在textbox中边执行边显示？

请问在VB.net中怎么把循环语句在textbox中边执行边显示？

2025-03-20 21:35:17

推荐回答（2个）

回答1：

这是因为程序运行过程中VB没有进行显示更新，也没有把控制权交回给Windows。
在TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf 语句之后增加一个语句：Me.Refresh() 强制刷新窗体显示，这样就OK了。代码如下：

Dim i As Integer
For i = 1 To 1000
Randomize()
TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf
Me.Refresh()
Next

回答2：

Dim i As Integer
Randomize()
For i = 1 To 1000
  TextBox1.Text = TextBox1.Text & Int((10 * Rnd()) + 1) & vbCrLf
  TextBox1.Refresh()
Next