SendMessageでクリック (ID:89725)

名前

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

本文 Say様、pon様 ご指導ありがとうございます。 以前 SendMessageに挑戦して、挫折しましたが今回はなんとか端っこだけでも かじりつきたいと汗をかきかき奮闘しております。 pon様のご指導により次のようなテストを行えるようなとこまではたどりついた んですが・・・・・・。 '*** SNDREC32を起動 Private Sub Command1_Click() Dim RTN RTN = Shell("C:\WINDOWS\System32\SNDREC32.EXE", 1) End Sub '*** ウインドハンドルを取得してボタンをクリック Private Sub Command2_Click() Dim i As Integer Dim Handle As Long Dim CMD_handle As Long Const BM_CLICK = &HF5 '*** SNDREC32のウインドハンドルを取得 Handle = FindWindow(vbNullString, "Sound - サウンド レコーダー") MsgBox "親ウインドハンドル = " & Handle CMD_handle = GetDlgItem(Handle, 209) MsgBox "コントロールのウインドハンドル = " & CMD_handle '最右端ボタン（録音）をクリック Call SendMessage(CMD_handle, BM_CLICK, 0, 0) End Sub それぞれウインドハンドルは取得できたのですが、録音状態にはなりませんでした。 試しに、 '最右端ボタン（録音）をクリック Call SendMessage(CMD_handle, BM_CLICK, 0, 0) Call SendMessage(CMD_handle, BM_CLICK, 0, 0) などと冗談めいたことをしてみたところなんとうまく録音状態になりました。 これってなぜなんでしょう。やはりどこかおかしいんでしょうね。 Say様、pon様のおかげで、なんとかここまでたどり着きました。もう少し我慢して ご指導お願いいたします。