- ©«¤l
- 132
- ¥DÃD
- 56
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-17
- ³Ì«áµn¿ý
- 2024-4-29
|
§Ú³]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? |
|