返回列表 上一主題 發帖

[發問] Userform顯示問題

[發問] Userform顯示問題


我設計了一個表單做為分析工具
在點選CommandButton4 ("Next >")即可執行計算,目前遭遇兩個問題:
1.我希望在點選CommandButton4 程式執行過程中"Next >"可以顯示成"Caculating"且顏色可以改為紅色
我試圖在CommandButton4_Click()底下寫
DoEvents
Me.CommandButton4.Caption = "Caculating"
Me.CommandButton4.BackColor = &HFF&
但是在程式執行過程中不會改變 而是在程式執行完畢後才會顯示成"Caculating",該如何改才好?
2.底下的Process Bar作為進度條,讓程式執行過程中可以顯示進度百分比
且Frame.Caption可以顯示"XX %"
所以同樣在CommandButton4_Click()底下寫
procebar = ((Cdt - 1) * ch + chNo) / (Conditions * ch) * 100
Frame6.Caption = procebar & "%"
Label4.Width = 380 * procebar / 100
結果同樣的在程式執行過程中不會改變 而是在程式執行完畢後才會顯示成100%
該如何解決呢?

回復 1# acdx
Try:
1.  
Me.CommandButton4.Caption = "Caculating"
Me.CommandButton4.BackColor = &HFF&
DoEvents
'Do something to want to caculate

2.
DoEvents 要放在迴圈內

TOP

回復 2# stillfish00
原來只要調整DoEvents位置就可解決了
剛查了一下DoEvents的用法 有了更進一步的了解
感謝大大的幫忙

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題