vb timer控件使用方法

2025-04-08 02:17:48

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
WebBrowser1.Silent = True
Select Case i
Case 0
    WebBrowser1.Navigate "百度网址"
Case 1
    WebBrowser1.Navigate "谷歌网址"
Case 2
    WebBrowser1.Navigate "新浪网址"
    Timer1.Enabled = False
End Select
i = i + 1
End Sub

回答2：

在设计界面把timer1的enable设为false,间隔数为1000(毫秒,也就是1秒)

按钮事件使用 timer1.enable = true

timer1事件中 Label1.Text = Now