標題: 關於當在TextBox1內按下Enter後做和選取TextBox1和(oobird 大大謝謝你~我會多用點心 [打印本頁]

---

作者: av8d    時間: 2011-8-25 12:34     標題: 關於當在TextBox1內按下Enter後做和選取TextBox1和(oobird 大大謝謝你~我會多用點心

本帖最後由 av8d 於 2011-8-25 15:31 編輯

1.當在TextBox1內按下Enter後做
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii=13 then
'做
EndIf
End Sub
是這樣嗎?

2.關於選取TextBox1~像TextBox1再輸入的時候會有黑線閃爍那樣
我嘗試了一下    TextBox1.Select    好像不行

---

作者: oobird    時間: 2011-8-25 12:48

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        MsgBox "你按 Enter 幹嘛？"
    End If
End Sub
選取TextBox1~像TextBox1再輸入的時候會有黑線閃爍那樣
本來就會這樣的，選取時就會進入輸入狀態。

---

作者: av8d    時間: 2011-8-25 13:06

回復 2# oobird


    oobird 大大您好~感謝您的回覆~第一個問題沒問題了~

第二個可能還是出現問題~

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then
        Rows("3:1000").Select
        Selection.ClearContents
        TextBox1.Select
    End If
End Sub

他執行完畢後~他不會復原成正在輸入的閃爍情形~不知道為什麼?

---

作者: oobird    時間: 2011-8-25 15:09

你只說選取TextBox1
沒說是在程式中選取
當然不能一概而論
所以敘述問題要用點心
這樣要用TextBox1.Activate

---

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