Question

我是VB的新手，请帮助我。是否可以在标签上显示不同的数字？标签中的文本需要每100毫秒更改一次。

当你点击btnSpin时，随机数字会显示在标签上，当你点击btnStop时，它会停止并显示最后一个数字。

Answer 1

首先为您的表单添加计时器，标签，按钮。然后

在表单中，Load事件初始化定时器间隔并启动定时器

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100    '=100 milli seconds
        Timer1.Start()
    End Sub

在计时器刻度事件中，

 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim xRandNo As Random = New Random
        Label1.Text = xRandNo.Next()   'it will produce random number
    End Sub

点击按钮

停止计时器

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpin.Click
            Timer1.Stop()
    End Sub

在标签vb上显示不同的数字

1 个答案: