返回列表 上一主題 發帖

[發問] Userform顯示問題

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-16 10:48 | 只看該作者

[發問] 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%
該如何解決呢?
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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 要放在迴圈內

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
3#
發表於 2013-7-16 14:21 | 只看該作者
回復 2# stillfish00
原來只要調整DoEvents位置就可解決了
剛查了一下DoEvents的用法 有了更進一步的了解
感謝大大的幫忙

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題