テキストボックスの反転させるには？ (ID:124432)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ENTERでテキストボックスのフォーカス移動
(テキストボックスの中身を青く反転)するプログラムを作っているのですが、
上手く反転してくれません。
しばらくENTERを押しっぱなしにしてると
反転するのですがはじめから、はじめから
反転させるにはどうしたら良いでしょうか
アドバイス御願い致します

ENTERでフォーカス移動する部分はじゃんぬねっとさんのHPに在ったのを
使わせて頂いてます。
' PostMessage 関数
Private Declare Function PostMessage Lib "USER32.DLL" Alias "PostMessageA" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
) As Long

' 定数の定義
Private Const WM_KEYDOWN As Long = &H100    ' キー押し下げ
Private Const VK_TAB     As Long = &H9      ' Tab キー

’青く反転させる
Private Sub textActive(frm As Form)
    Dim txtControl As TextBox
    'テキストボックスの場合反転
    If TypeOf frm.ActiveControl Is TextBox Then
        Set txtControl = frm.ActiveControl
        txtControl.SelStart = 0
        txtControl.SelLength = Len(txtControl.Text)
    End If
End Sub

' [Enter] キーで [Tab] キーを飛ばすことによってフォーカス遷移する
Private Sub Form_KeyPress(ByRef KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        Call PostMessage(Me.hWnd, WM_KEYDOWN, VK_TAB, ByVal 0&)
        
        KeyAscii = 0 '音を消す
	’青く反転させる
        textActive Me
    End If
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る