您好,登錄后才能下訂單哦!
今天就跟大家聊聊有關如何使用doevents,可能很多人都不太了解,為了讓大家更加了解,小編給大家總結了以下內容,希望大家根據這篇文章可以有所收獲。
如何使用doevents
Doevents
把權限轉讓給操作系統,處理事件使用。好處就是,系統界面不會卡頓。
使用場景:我們一般處理大量數據,導致系統卡在當前界面上面,考慮到用戶體驗,我們要使用doevents
doevents注意點
1、使用doevents的時候,如果事件還沒有結束,就馬上關掉,程序還在執行中,并沒有真正關鍵應用程序。
2、在拖動系統界面的時候,doevents對程序需要刷新的值就不會被刷新
防止doevents造成無法關閉進程的解決方案
使用在form_unload事件中,即窗體結束之前執行
1、在循環中加入一個結束循環的標記
2、使用end結束
課堂總結
1、學會使用doevents,了解應用場景,可以使用在讀取大文件時候
2、掌握doevents造成進程存留的解決方案
3、在執行系統其它事件的時候,會使得對應的界面不會被刷新界面:
源代碼:
Dim flag As Boolean
Private Sub Command1_Click()
flag = True
Dim i As Double
While flag
Text1.Text = Val(Text1.Text) + 1
DoEvents
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
flag = False
End
End Sub
看完上述內容,你們對如何使用doevents有進一步的了解嗎?如果還想了解更多知識或者相關內容,請關注億速云行業資訊頻道,感謝大家的支持。
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。