|
ありがとうございました。「型が違う」というエラーは発生しなくなりました。
しかし、また問題が発生しました。
Set cc = Controls.Add("MediaPlayer.MediaPlayer.1") '..1.
If Err.Number <> 0 Then
Set cc = Controls.Add("WMPlayer.OCX.7") ’ ..2.
End If
MediaPlayerがあるシステムでは問題ないのですが、無いシステムでは1.でエラーを
発生するのではなく、仮のオブジェクトが作成され(無地の四角いボックス)、それから
WMPlayerが作製されます。
MediaPlayerかWMPlayerが存在するか否かを判断するものがないのでしょうか。
また、今はスライドショウのようなプログラムで、写真やMovieが見れるもので使って
いるのですが、メディアプレーヤーなどを表示したり、消したりするのには
CC.visible=false などとしていますが、ここでもオブジェクトがありません
等のエラーがでます。このことにもお教えください。
お忙しいこととは思いますが、よろしくお願いいたします。
|
|