追蹤
虛幻與現實之間
關於部落格
  • 2509

    累積人氣

  • 1

    今日人氣

    0

    追蹤人氣

[VB6] 用鍵盤上下鍵與Enter可使游標在TextBox內移動

'在Form表內觸動指定按鍵產生的效果
'須先將Form的KeyPreview值切換成True
'將TextBox的TabIndex值設定從0-N的編號

Private Sub Form_Load()

    If KeyCode = 13 Or KeyCode = 40 Then
        '如果按下Enter鍵或向下鍵(取代Enter or 向下箭頭鍵被按下的動作)

        SendKeys "{TAB}"                   '以模擬鍵盤輸出 輸出Tab鍵
        SendKeys "{Home}"               'Home+End->進入TextBox選擇全部整串文字
        SendKeys "+{End}"

        KeyCode = 0                            '避免發出錯誤訊息

    ElseIf KeyCode = 38 Then

        SendKeys "+{TAB}"                '以模擬鍵盤輸出 輸出Tab鍵
        SendKeys "{Home}"               'Home+End->進入TextBox選擇全部整串文字
        SendKeys "+{End}"

        KeyCode = 0                           '避免發出錯誤訊息

    End If

End Sub

相簿設定
標籤設定
相簿狀態