VBAのAPIについて解説をお願いします。

Question

お疲れ様です。

下記URLからダウンロードできるファイルのコードを一部抜粋

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100_100.html

' ｳｨﾝﾄﾞｳﾊﾝﾄﾞﾙ取得API
Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" _
    (ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long

というプロシージャがあるのですが、
Declare とLibとAliasの説明をお願いしたいです。

• Declare

http://www.officetanaka.net/excel/vba/statement/Declare.htm

ダイナミックリンクライブラリ（DLL）の外部プロシージャへの参照を宣言します。

とありますが、つまり今回はuser32というDLLのFindWindowAというプロシージャを参照しているということで良いのでしょうか？

また、引数として渡しているlpClassNameとlpWindowNameについて、
ダウンロードファイルのソースコードを見る限りでは、
lpClassNameおよびlpWindowNameに値をセットしていないように思うのですが、どうやって引数を与えているのでしょうか。

lpClassNameとlpWindowNameを引数として与えると、Long型の値が戻り値として返ってくるのはわかるのですが・・・。

解説お願いします。

Answer 1

ダウンロード(「日付入力」のクラス)

上記のリンク先からダウンロードできるファイルのことですか。

FindWindow API を使用しているコードは、下記の２行だと思いますが、ちゃんと引数を設定しています。どのコードを見て、引数を設定していないと判断したのでしょうか。

lnghWnd_Form = FindWindow(strThunder, mctlForm.Caption)

lnghWnd_Excel = FindWindow("XLMAIN", Application.Caption)

これ以外の部分は、現状のご理解で間違いないと思います。

Comments

[King_of_Flies]

lnghWnd_Form = FindWindow(strThunder, mctlForm.Caption)

lnghWnd_Excel = FindWindow("XLMAIN", Application.Caption)

で

lpClassNameおよびlpWindowNameの値セットが行われるということでしょうか？

[King_of_Flies]

すいません、理解しました。

私の認識誤りのようです。

[King_of_Flies]

lpClassNameとlpWindowNameを引数として与えると、Long型の値が戻り値として返ってくるのはわかるのですが・・・。

↓

lpClassNameとlpWindowName”に”引数として与えると、Long型の値が戻り値として返ってくるのはわかるのですが・・・。

ですね。