標題: [發問] 如何在TextBox輸入資料後按下Enter執行CommandButton(已完成~再次感謝大大們) [打印本頁]

---

作者: av8d    時間: 2012-6-17 00:40     標題: 如何在TextBox輸入資料後按下Enter執行CommandButton(已完成~再次感謝大大們)

本帖最後由 av8d 於 2012-6-17 15:23 編輯

在TextBox1輸入資料後按下Enter執行CommandButton4

我該在哪裡下指令?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyCode = 13 Then CommandButton4.Click
End Sub

這個好像不行~努力求解中@@

---

作者: oobird    時間: 2012-6-17 07:55

[attach]11415[/attach]

---

作者: GBKEE    時間: 2012-6-17 09:39

回復 1# av8d

1. Option Explicit
   
2. 'KeyDown、KeyUp 事件'發生在當使用者按住並放開按鍵時。
   
3. 'KeyDown 發生於使用者按下按按鍵。
   
4. 'KeyUp 發生在當使用者放開按鍵時。
   
5. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
6.     '---Shift As Integer : SHIFT鍵 =1, CTRL鍵=2,ALT 鍵=4 ----
   
7.     If KeyCode = 13 Then Me.CommandButton1.SetFocus
   
8. End Sub
   
9. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
10.    MsgBox "放開按鍵  KeyCode = " & KeyCode & " ;  Shift = " & Shift
    
11. End Sub
    
12. 'KeyPress 事件可能發生在按下以下的按鍵時:
    
13. '任何可列印的鍵盤字元。
    
14. 'CTRL 與英文字母鍵的組合。
    
15. 'CTRL 與特殊字元的組合。
    
16. 'BACKSPACE。
    
17. 'ESC。
    
18. 'KeyPress 事件不會發生在以下幾個情況中:
    
19. '按 TAB 鍵。 按 ENTER 鍵。 按一個方向鍵。
    
20. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
21.     TextBox2 = Chr(KeyAscii)     '請在表單上 加入TextBox2
    
22. End Sub

複製代碼

---

作者: av8d    時間: 2012-6-17 14:12

本帖最後由 av8d 於 2012-6-17 15:23 編輯

回復 3# GBKEE


解開了

If KeyCode = 13 Then CommandButton4_Click

即可以完成~謝謝大大們

---

作者: GBKEE    時間: 2012-6-17 14:25

回復 4# av8d
我沒有 2007版啊

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)