在VB.NET中使用计时器控件

姚明不能达到14级

2011-05-20回答

改成这样
Public Class Form2
Dim j%  '这个应该是全局变量
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "VB.NET程序设计"
        Label1.ForeColor = Color.Blue
        Label1.Font = New Font("隶书", 30)

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 500
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        
        Label1.Text ="VB.NET程序设计" & Space(13 - j)
        j = j + 1
        If j > 13 Then j = 0
    End Sub
End Class

跟进:

为什么j是全局变量？如果您将j放入那个，该怎么办？

答案:

如果将其放在计时器中，则等效于每次运行计时器进程时都定义一个jvb中timer用法，并且每次退出时它将消失vb中timer用法，这意味着您的j将始终为0！无法达到13

跟进:

哦. . 然后我在这里设置Timer1.Interval = 500以满足标题每0.5秒显示一个字符的要求？每0.5秒触发一次Tick事件并不意味着每0.5秒显示一个字符，对吧？

答案:

您的想法是正确的. 其他带有空格的字符，但我没有尝试

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-146399-1.html