ＶＢ6.0からメディアプレーヤーを起動する

質問

VB6.0からMEDIAPLAYER8.0を起動させたいのですがうまくいきません

Function mediaopen(fileName As String) As String

Dim omediaplayer As MediaPlayer.MediaPlayer
Set omediaplayer = CreateObject("MediaPlayer.MediaPlayer")
omediaplayer.Open avifilename
omediaplayer.Play

End Function

のようにしていますが、PLAYのところでMEDIAPLAYERのバージョンが新しいせいか、
『'PLAY'メソッドは失敗しました。'IMEDIAPLAYER2'オブジェクト』
というメッセージがでます。
'MediaPlayer.IMediaPlayer'
だとがオブジェクト作成でエラーになり、
'MediaPlayer.IMediaPlayer2'
というクラスもないようです。
インストールされているメディアプレーヤーの.EXEをライブラリとして追加してみたりしたのですがだめでした。

どなたかお知恵をお貸しください。

ちなみに、AVIを実行したいだけなのでほかの方法があればそれでも可です。
ただし、ファイルが大きいのでコモンコントロールは不可です。

どうかよろしくお願いします。

回答No.1

sakura_sakura · ベストアンサー

＞AVIを実行したいだけなのでほかの方法があればそれでも可です。

ＶＢで作った画面の中で実行するということですか？
それなら下記は無理ですが，
違うのであれば，
shellコマンドでいきませんか？

aviファイルをWMPに関連付けさせておいて，
shell "start clock.avi"
や
shell "c:\・・・\mplayer2.exe clock.avi"
など．．．

お礼

sakura_sakuraさん、todo36さん
ありがとうございました。
すんなり実行できました。
まだ本格的に仕事でＶＢを使い始めて１月くらいなので
shellというものを知りませんでした。
いろいろと、ここ二日ばかり悩んでいたのがうそみたいです。感謝！

回答No.3

taka_tetsu

こちらはいかがですか？

DirectShow for Visual Basic

http://www.microsoft.com/japan/msdn/directx/japan/dxvb/dxvbdshow.asp

参考URL：

http://www.microsoft.com/japan/msdn/directx/japan/dxvb/dxvbdshow.asp

お礼

taka_tetsuさん　ありがとうございます！
実は３Ｄグラフィクを表示するのツールを作ってまして、DirectXなるもの
なかなか面白そうなので、明日会社で早速ためしてみます。
こんなものもあるのですね。

回答No.2

todo36

PLAYだけならShellExecuteでいいのでは？