標題: [發問] Userform顯示問題 [打印本頁]

---

作者: acdx    時間: 2013-7-16 10:48     標題: Userform顯示問題

[attach]15455[/attach]
我設計了一個表單做為分析工具
在點選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%
該如何解決呢?

---

作者: stillfish00    時間: 2013-7-16 11:34

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

2.
DoEvents 要放在迴圈內

---

作者: acdx    時間: 2013-7-16 14:21

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)