メモ帳の小ウィンドウのハンドルを取得したい。

解決

うた 2006-05-21 07:04:35 No: 131511

VB6です。宜しくお願いします。

メモ帳の小ウィンドウのハンドルを取得したいのですが、型が一致しないとエラー
がでます。

Dim hwindow As Long

hwindow = FindWindow(vbNullString, "無題 - メモ帳")

If hwindow <> 0 Then
hwindow = FindWindowEx(hwindow, vbNullString, "edit", vbNullString)
End If

メモ帳のハンドルは取得できるのですが、FindWindowExの行で型が一致しないと
エラーが出ます。どうしてでしょうか。
ハンドルとかは最近知ったので、よく分かりませんがご教授お願いします。

花ちゃん URL 2006-05-21 09:08:40 No: 131512

第二引数が文字列になっているからでは。

hwindow = FindWindowEx(hwindow, 0&, "edit", vbNullString)

うた 2006-05-21 18:50:15 No: 131513

花ちゃん本当に有難う御座います。0&と置き換えると上手くいきました。
今、引数の意味をわからず使っていますが、これから勉強だと思います。