by Mario2 » 2005年11月03日(木) 01:04
NoWestさんの提供コードで成功しましたので、他の方にも参考になるかなと思い載せておきます。
(宣言はNoWestさんのをそのまま使用、以下は追加・変更・使用例部分のみ)
コード: 全て選択
'追加・修正宣言
Const MCI_SETAUDIO =&H00000873L
Type MCI_DGV_SETAUDIO_PARMS
dwCallback As DWord
dwItem As DWord
dwValue As DWord
dwOver As DWord
lpstrAlgorithm As BytePtr '修正前はLPSTR
lpstrQuality As BytePtr '修正前はLPSTR
End Type
'使用例
mdsp.dwValue = pos*10 'MCIでは0~1000で取り扱っているため、0~100のトラックバーの数値から10倍しています
mdsp.dwItem=MCI_DGV_SETAUDIO_VOLUME
mciSendCommand(mop.wDeviceID,MCI_SETAUDIO,MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,mdsp) 'NoWestさんのではmciSendCommandのmciが抜けていたので追加しました。
改めて、MCIのコードサンプルを提供してくださったNoWestさん、DLLに関して詳しく説明してくださったイグトランスさん、konisiさん、どうもありがとうございました。
NoWestさんの提供コードで成功しましたので、他の方にも参考になるかなと思い載せておきます。
(宣言はNoWestさんのをそのまま使用、以下は追加・変更・使用例部分のみ)
[code]'追加・修正宣言
Const MCI_SETAUDIO =&H00000873L
Type MCI_DGV_SETAUDIO_PARMS
dwCallback As DWord
dwItem As DWord
dwValue As DWord
dwOver As DWord
lpstrAlgorithm As BytePtr '修正前はLPSTR
lpstrQuality As BytePtr '修正前はLPSTR
End Type
'使用例
mdsp.dwValue = pos*10 'MCIでは0~1000で取り扱っているため、0~100のトラックバーの数値から10倍しています
mdsp.dwItem=MCI_DGV_SETAUDIO_VOLUME
mciSendCommand(mop.wDeviceID,MCI_SETAUDIO,MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,mdsp) 'NoWestさんのではmciSendCommandのmciが抜けていたので追加しました。[/code]
改めて、MCIのコードサンプルを提供してくださったNoWestさん、DLLに関して詳しく説明してくださったイグトランスさん、konisiさん、どうもありがとうございました。