ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] UserformÅã¥Ü°ÝÃD

[µo°Ý] UserformÅã¥Ü°ÝÃD


§Ú³]­p¤F¤@­Óªí³æ°µ¬°¤ÀªR¤u¨ã
¦bÂI¿ïCommandButton4 ("Next >")§Y¥i°õ¦æ­pºâ,¥Ø«e¾D¹J¨â­Ó°ÝÃD:
1.§Ú§Æ±æ¦bÂI¿ïCommandButton4 µ{¦¡°õ¦æ¹Lµ{¤¤"Next >"¥i¥HÅã¥Ü¦¨"Caculating"¥BÃC¦â¥i¥H§ï¬°¬õ¦â
§Ú¸Õ¹Ï¦bCommandButton4_Click()©³¤U¼g
DoEvents
Me.CommandButton4.Caption = "Caculating"
Me.CommandButton4.BackColor = &HFF&
¦ý¬O¦bµ{¦¡°õ¦æ¹Lµ{¤¤¤£·|§ïÅÜ ¦Ó¬O¦bµ{¦¡°õ¦æ§¹²¦«á¤~·|Åã¥Ü¦¨"Caculating",¸Ó¦p¦ó§ï¤~¦n?
2.©³¤UªºProcess Bar§@¬°¶i«×±ø,Åýµ{¦¡°õ¦æ¹Lµ{¤¤¥i¥HÅã¥Ü¶i«×¦Ê¤À¤ñ
¥BFrame.Caption¥i¥HÅã¥Ü"XX %"
©Ò¥H¦P¼Ë¦bCommandButton4_Click()©³¤U¼g
procebar = ((Cdt - 1) * ch + chNo) / (Conditions * ch) * 100
Frame6.Caption = procebar & "%"
Label4.Width = 380 * procebar / 100
µ²ªG¦P¼Ëªº¦bµ{¦¡°õ¦æ¹Lµ{¤¤¤£·|§ïÅÜ ¦Ó¬O¦bµ{¦¡°õ¦æ§¹²¦«á¤~·|Åã¥Ü¦¨100%
¸Ó¦p¦ó¸Ñ¨M©O?

¦^´_ 2# stillfish00
­ì¨Ó¥u­n½Õ¾ãDoEvents¦ì¸m´N¥i¸Ñ¨M¤F
­è¬d¤F¤@¤UDoEventsªº¥Îªk ¦³¤F§ó¶i¤@¨Bªº¤F¸Ñ
·PÁ¤j¤jªºÀ°¦£

TOP

¦^´_ 1# acdx
Try:
1.  
Me.CommandButton4.Caption = "Caculating"
Me.CommandButton4.BackColor = &HFF&
DoEvents
'Do something to want to caculate

2.
DoEvents ­n©ñ¦b°j°é¤º

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD