Interval屬性範例

這個範例可以讓您調整一個表單切換顏色的速度。若想測試此範例,請將程式碼貼到表單的宣告區塊,此表單上要包含一個 Timer 控制項、一個 HScrollBar 控制項 (水平捲動軸) 和一個PictureBox 控制項,然後按 F5 鍵和按下捲動軸。

Private Sub Form_Load ()
   Timer1.Interval = 900   ' Set interval
   HScroll1.Min = 100      ' Set minimum
   HScroll1.Max = 900      ' Set maximum
End Sub
Private Sub HScroll1_Change ()
   ' 根據捲動軸的值設定間隔
   Timer1.Interval = 1000 - HScroll1.Value
End Sub
Private Sub Timer1_Timer ()
   ' 使BackColor 在紅與藍之間切換
   If Picture1.BackColor = RGB(255, 0, 0) Then
      Picture1.BackColor = RGB(0, 0, 255)
   Else
      Picture1.BackColor = RGB(255, 0, 0)
   End If
End Sub

◎李明山 如意網站 VB教學網◎