Excel VBA質問箱 IV

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

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


9657 / 76736 ←次へ | 前へ→

【72640】Re:マクロが止まる理由?
回答  ウッシ  - 12/8/30(木) 13:15 -

引用なし
パスワード
   こうするとどうでしょうか?

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Sub test1()
  Dim hExe As Long
  Dim hEnt As Long

  hExe = FindWindow("hlexpl32", vbNullString)
  hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)
  Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
  Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")
End Sub

▼たつ さん:
>▼ウッシ さん:
>>▼たつ さん:
>>
>>ウインドウ名が"シテイアプリ"というアプリが起動されていますでしょうか?
>>
>はい、起動しています。
>アプリは
>"C:\Program Files\COMNET Series Emulator\hlexpl32.exe"
>です。
>何か、環境がよくないのでしょうか?
>何度もすみません・・・

0 hits

【72618】マクロが止まる理由? たつ 12/8/29(水) 9:56 質問
【72620】Re:マクロが止まる理由? ウッシ 12/8/29(水) 12:03 回答
【72637】Re:マクロが止まる理由? たつ 12/8/30(木) 10:54 質問
【72638】Re:マクロが止まる理由? ウッシ 12/8/30(木) 11:26 回答
【72639】Re:マクロが止まる理由? たつ 12/8/30(木) 12:57 質問
【72640】Re:マクロが止まる理由? ウッシ 12/8/30(木) 13:15 回答
【72641】Re:マクロが止まる理由? たつ 12/8/30(木) 14:31 発言
【72643】Re:マクロが止まる理由? ウッシ 12/8/30(木) 15:03 回答
【72646】Re:マクロが止まる理由? とおりすぎ 12/8/30(木) 15:42 回答

9657 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free