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

[µo°Ý] TextBox­­©w¿é¤J­Èªº½d³ò

[µo°Ý] TextBox­­©w¿é¤J­Èªº½d³ò

½Ð±Ð¦U¦ì¤j®v¡A§Ú¦³»s§@¤@­Ó Textbox¡AµM«á·Q­­©w¥Î¤á¿é¤Jªº­È¤£¯à >80¡I

¥i¬O§Úµo²{¡A§Ú¿é¤J < 80 «á¡A½T¹ê·|¦³ Msgbox  ¥X²{¡A¦ý¬OÃö³¬«á¡AMsgBox ¤S·|¥X²{¤@¦¸~~
·|¤£·|¬O textbox32.Value = "" ªº°ÝÃD¡H
¦n¹³¨S¿é¤J­È¡A¤]·|Åã¥Ü MsgBox¡I
  1. Private Sub textbox32_Change()
  2. If textbox32.Value > 80 Then
  3. textbox32.Value = ""
  4. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE¡I¡I")
  5. End If
  6. End Sub
½Æ»s¥N½X

¦^´_ 1# bowwow1975
If textbox32.Value > 80  

textbox32=""  > 80  ¬O¦¨¥ßªº,½Ð§ï¦¨ If Val(TextBox32) > 80 Then

TOP

¦¨¥\¤F~~~~¯u¬O·PÁ¡A
¥i¬O¤p§Ì¤£À´ªº¬O¡A³o¨â­Ó¦³¤°»ò¤£¦P¶Ü¡H
±æ½Ð¤j¤jÄÀºÃ¡I

TOP

¦^´_ 3# bowwow1975
If Val(textbox32) > 80 Then    ¬O¤£¦¨¥ß    Val("")=0
  1. Option Explicit
  2. Private Sub textbox32_Change()
  3. If textbox32.Value > 80 Then
  4. textbox32.Value = ""   '§ïÅÜtextbox32 ¤S¤@¦¸°õ¦æ textbox32_Change
  5. 'textbox32=""  > 80  ¬O¦¨¥ßªº ¤£¬O¦A¦¸ªº°õ¦æ MsgBox
  6. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE¡I¡I")
  7. End If
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD