WAVEを内蔵するには？ (ID:74384)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim Ret As Variant ' 重要: バイナリ サウンド データをバイト型配列 SoundBuffer に格納してから、 ' sndPlaySound API 関数を呼び出します。 SoundBuffer = LoadResData(ResourceId, "ATM_SOUND") Ret = sndPlaySound(SoundBuffer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY) ' サウンドの非同期再生を行うために DoEvents 関数を呼び出します。 DoEvents サンプルですが、このような記述で読み込みができるのですね