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

av8d

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

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

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

oobird

Book1.rar (6.54 KB)

下載次數: 18

2012-6-17 07:55

GBKEE

回復 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

回復 3# GBKEE


解開了

If KeyCode = 13 Then CommandButton4_Click

即可以完成~謝謝大大們

GBKEE

回復 4# av8d
我沒有 2007版啊