SendMessageを使ってEnterを送るには？ (ID:91627)

名前

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

本文 タイトル通りの内容なのです。 SendMessageを使いEnter(改行ではない)を送信しようと試みているのですがうまく動作しません。 以下コードです。 'モジュール Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Public Const WM_SETTEXT As Integer = &HC Public Const WM_KEYDOWN As Integer = &H100 Public Const VK_RETURN As Integer = &HD 'コマンドボタン押下時の処理 Dim Str as String Dim Hnd as Long Str = "TestMessage" Call SendMessage(Hnd, WM_SETTEXT, 0, ByVal Cstr(Str)) Call SendMessage(Hnd, WM_KEYDOWN, VK_RETURN, 0) これだとエラーは出ませんが二度目のSendMessageが上書されるだけのようです。 難しいですね・・・