🚀 go-pugleaf

In article <6far4p$ilk$1@nn-os001.ocn.ad.jp>, tutomu wrote:
>byteArry()=LoadResData(　"no0"　,　10　)
>
>10　とあるのは、ユーザー定義リソースとリファレンスに記述してあったので、訳も
>分からずその通りに書きました。

リファレンスには、LoadResData メソッドの第二引数“format”の
説明で、「...ユーザー定義のリソースの文字列の名前を指定する
こともできます。」と記述されていると思います。

この「リソースの文字列の名前」というのは、具体的には、

>no0 SOUND filename0
>no1 SOUND filename1

と記述したときの、“SOUND”という文字列のことです。

従って、

>byteArry()=LoadResData(　"no0"　,　10　)

の箇所で、第二引数を"SOUND"にかえてやれば、うまく動くのではないかと
思います。

以下は、私の環境で実際に試してみて、動いた例です。

-------- test.rc ここから --------
    no0 SOUND \windows\ding.wav
    no1 SOUND \windows\chimes.wav
-------- test.rc ここまで --------

-------- main() ここから --------
    Dim buf As Variant
    buf = LoadResData("no0", "SOUND")
    MsgBox Len(buf)
-------- main() ここまで --------

(リソース中で、no0、no1 などの記述が、実際には101、102などの
数値であるならば、LoadResData メソッドの第一引数はダブル
クォーテーションでかこっては行けません。)

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp