ฟังก์ชัน DoEvents

ให้ผลลัพธ์การดําเนินการเพื่อให้ระบบปฏิบัติการสามารถประมวลผลเหตุการณ์อื่นๆ ได้

ไวยากรณ์

DoEvents( )

ข้อสังเกต

ฟังก์ชัน DoEvents จะส่งกลับจํานวนเต็มที่แสดงจํานวนฟอร์มที่เปิดอยู่ใน Microsoft Visual Basic เวอร์ชันสแตนด์อโลน เช่น Visual Basic, Professional Edition DoEvents จะส่งกลับค่าศูนย์ในแอปพลิเคชันอื่นทั้งหมด

DoEvents จะส่งผ่านการควบคุมไปยังระบบปฏิบัติการ ตัวควบคุมจะถูกส่งกลับหลังจากที่ระบบปฏิบัติการเสร็จสิ้นการประมวลผลเหตุการณ์ในคิวและคีย์ทั้งหมดในคิว SendKeys ได้ถูกส่งไป

DoEvents มีประโยชน์มากที่สุดสําหรับสิ่งง่ายๆ เช่น การอนุญาตให้ผู้ใช้ยกเลิกกระบวนการหลังจากเริ่มต้นแล้ว ตัวอย่างเช่น การค้นหาไฟล์ สําหรับกระบวนการที่ทํางานเป็นเวลานาน ทําให้การทํางานกับตัวประมวลผลสําเร็จได้ดีขึ้นโดยใช้ตัวจับเวลาหรือมอบหมายงานให้กับคอมโพเนนต์ ActiveX EXE ในกรณีหลังงานสามารถทํางานต่อไปได้อย่างอิสระจากแอปพลิเคชันของคุณและระบบปฏิบัติการจะดูแลการทํางานหลายอย่างและแบ่งเวลา

เมื่อใดก็ตามที่คุณส่งไปยังตัวประมวลผลชั่วคราวภายในกระบวนงานเหตุการณ์ ให้ตรวจสอบให้แน่ใจว่ากระบวนงานไม่ได้ถูกดําเนินการอีกครั้งจากส่วนอื่นของโค้ดของคุณก่อนที่การโทรครั้งแรกจะส่งกลับ ซึ่งอาจทําให้เกิดผลลัพธ์ที่คาดเดาไม่ได้ นอกจากนี้ อย่าใช้ DoEvents หากแอปพลิเคชันอื่นอาจโต้ตอบกับกระบวนการของคุณด้วยวิธีที่คาดไม่ถึงในช่วงเวลาที่คุณได้รับการควบคุม

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน DoEvents เพื่อทําให้การดําเนินการส่งผลไปยังระบบปฏิบัติการทุกๆ 1,000 รอบของลูป DoEvents จะส่งกลับจํานวนของฟอร์ม Visual Basic ที่เปิดอยู่ แต่เฉพาะเมื่อแอปพลิเคชันโฮสต์เป็น Visual Basic เท่านั้น

' Create a variable to hold number of 
' Visual Basic forms loaded and visible.
Dim I, OpenForms
For I = 1 To 150000    ' Start loop.
    If I Mod 1000 = 0 Then  ' If loop has repeated
                            ' 1000 times.
        OpenForms = DoEvents  ' Yield to operating system.
    End If
Next I    ' Increment loop counter.