Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9654 / 76734

←次へ　｜　前へ→


	【72641】Re:マクロが止まる理由？

たつ - 12/8/30(木) 14:31 -


	引用なし

	パスワード

▼ウッシさん：

ありがとうございます。
2回目に教えてもらったコードでも、ダメでした。
hExe = FindWindow("hlexpl32", vbNullString)
↑こちらに変えてもダメでした。（泣）

いろいろネットでも調べていて、下記内容をみてみて、試してみました。
******************************************************
'ウインドウ名を指定する場合
Private Sub Command1_Click()
　　Dim ret As Long
　　ret = FindWindow(vbNullString, "無題 - メモ帳")
　　Me.Caption = ret
End Sub

'クラス名を指定する場合
Private Sub Command2_Click()
　　Dim ret As Long
　　ret = FindWindow("Notepad", vbNullString)
　　Me.Caption = ret
End Sub
******************************************************************
と書いてあったので、
ウィンドウ名を指定する場合を参考に、
vbnullStringとｼﾃｲｱﾌﾟﾘ名の順番を変えてみたら、
↓↓
hExe = FindWindow(vbNullString, "TCPLink6680ｴﾐｭﾚｰﾀ - TCP6680-Ses01")

hExeに数値が入りましたが、数値が入ったということは、取得しているのでしょうか？

しかし、次のhEntには数値0が返ってきました。
hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)

Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")

どうして、うまく取得してくれないのでしょうか？
困惑中です

4 hits

▼

【72618】マクロが止まる理由？ たつ 12/8/29(水) 9:56