Hsieh

回復 1# ltc

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.    MsgBox "為何我會出現兩次，一定要嗎 ?，我只想出現一次阿"
   
3. End Sub
   
4. 
   
5. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
6.     MsgBox "這邊為何我又只出現一次 ?"
   
7. End Sub
   
8. 
   
9. Private Sub UserForm_Initialize()
   
10.   TextBox3.AutoTab = False: TextBox2.AutoTab = False
    
11.   TextBox3.TabIndex = TextBox1.TabIndex + 1
    
12.   TextBox2.TabIndex = TextBox3.TabIndex + 1
    
13. End Sub

複製代碼