無限期等待動畫窗體

咱家是貓

你試過執(zhí)行一個比較大的動作,需要相對比較長的等待時間嗎?
在這個時候,是否想過讓彈出一個窗口告訴用戶請稍稍候呢?
如果僅僅是一個文本提示"正在進(jìn)行...,請稍候..."是不是覺得有些枯燥呢?
那么,是不是想點(diǎn)動畫效果呢?
但你必需明白一點(diǎn)，ACCESS不支持多線程，
換句話說，當(dāng)你一個過程執(zhí)行時，ACC將所有時間分配給了它,別的過程只能等,
這意味著在你的原程序里無法實(shí)現(xiàn)這種效果．
那怎么辦呢,辦法不是沒有,請按我下面的方法來測試下.

請先下載下面例子測試效果
再次聲明:除非你的動作夠大,等待時間超過5秒,不然就最好不要用了,因?yàn)榇朔椒ㄆ鋵?shí)就是無謂的又添加了些等待時間.



將附件釋放到你程序所在的文件夾中
將你的過程略作改動如下
        Dim objApp As New Access.Application
        objApp.OpenCurrentDatabase CurrentProject.path & "\Wait.mdb"
        objApp.DoCmd.OpenForm "WaitForm"  '
        objApp.Forms("WaitForm").TipText.Caption = "正在做什么動作,請稍候..."    '告訴用戶,當(dāng)前程序在執(zhí)行什么動作
        ...         '這里是你的原過程代碼
        objApp.CloseCurrentDatabase
        Set objApp = Nothing

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

fswxs

沙發(fā)
謝謝版主分享

huangxiuwen

頂你。頂你。頂你。頂你。頂你。

goto2008

頂一下，呵呵

laiguiyou

沒有出錯處理，如果程序運(yùn)行有錯的話，那么這個動畫就一直運(yùn)行。別人還以為未完呢，

dreamice01

支持原創(chuàng)，丁頁一下子了

yaozi

學(xué)習(xí),學(xué)習(xí),再學(xué)習(xí).......

hunrybecky

貓哥哥，原來是OFFICE論壇的斑竹之一，剛才才注意。不錯。

miantiao1

樓主的活法很誘惑，呵呵。頂先，我要

df

ttttttttttttttttttttttttt