無限期等待動(dòng)畫窗體

咱家是貓

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

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



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

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

fswxs

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

huangxiuwen

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

goto2008

頂一下，呵呵

laiguiyou

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

dreamice01

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

yaozi

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

hunrybecky

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

miantiao1

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

df

ttttttttttttttttttttttttt