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

[µo°Ý] ¦³Ãö TextBox1_Exit(...)·|run 2¦¸

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-10-24 21:28 ½s¿è

¦^´_ 1# ltc
  1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2.    MsgBox "¬°¦ó§Ú·|¥X²{¨â¦¸¡A¤@©w­n¶Ü ?¡A§Ú¥u·Q¥X²{¤@¦¸ªü"
  3. End Sub

  4. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  5.     MsgBox "³oÃ䬰¦ó§Ú¤S¥u¥X²{¤@¦¸ ?"
  6. End Sub

  7. Private Sub UserForm_Initialize()
  8.   TextBox3.AutoTab = False: TextBox2.AutoTab = False
  9.   TextBox3.TabIndex = TextBox1.TabIndex + 1
  10.   TextBox2.TabIndex = TextBox3.TabIndex + 1
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD