คุณสมบัติ 'ช่วงการจับเวลา' (TimerInterval)

นำไปใช้กับ

คุณสามารถใช้คุณสมบัติ TimerInterval เพื่อระบุช่วงเวลาระหว่างเหตุการณ์ Timer บนฟอร์มเป็นมิลลิวินาทีได้ อ่าน/เขียน แบบยาว

นิพจน์.TimerInterval

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ

ข้อสังเกต

การตั้งค่าคุณสมบัติ TimerInterval เป็นค่า Long Integer ระหว่าง 0 ถึง 2,147,483,647

คุณสามารถตั้งค่าคุณสมบัตินี้โดยใช้ แผ่นคุณสมบัติแมโคร หรือโค้ด Visual Basic for Applications (VBA) ของฟอร์มได้

เมื่อต้องการเรียกใช้โค้ด VBA ตามช่วงเวลาที่ระบุโดยคุณสมบัติ TimerInterval ให้ใส่โค้ดในกระบวนงานเหตุการณ์ Timer ของฟอร์ม ตัวอย่างเช่น เมื่อต้องการทําแบบสอบถามระเบียนใหม่ทุกๆ 30 วินาที ให้ใส่โค้ดเพื่อทําแบบสอบถามระเบียนอีกครั้งในกระบวนงานเหตุการณ์ Timer ของฟอร์ม แล้วตั้งค่าคุณสมบัติ TimerInterval เป็น 30000

ตัวอย่าง

ตัวอย่างต่อไปนี้แสดงวิธีการสร้างปุ่มกะพริบบนฟอร์มโดยการแสดงและการซ่อนไอคอนบนปุ่ม กระบวนงานเหตุการณ์ Load ของฟอร์มจะตั้งค่าคุณสมบัติ TimerInterval เป็น 1000 ของฟอร์ม เพื่อให้การแสดงไอคอนถูกสลับทุกๆ วินาที

Sub Form_Load()
    Me.TimerInterval = 1000
End Sub
Sub Form_Timer()
    Static intShowPicture As Integer
    If intShowPicture Then
        ' Show icon.
        Me!btnPicture.Picture = "C:\Icons\Flash.ico"
    Else
        ' Don't show icon.
        Me!btnPicture.Picture = ""
    End If
    intShowPicture = Not intShowPicture
End Sub