|
>Private Sub UserForm_Activate()
> Dim cc As Object
> Dim tcon As MSForms.Control
On Error Resume Next
> Set cc = Controls.Add("MediaPlayer.MediaPlayer.1")
> If Err.Number <> 0 Or TypeName(cc) <> "MediaPlayer" Then
Set cc = OLEObjects.Add("MediaPlayer.MediaPlayer.1") ' 1.
If Err.Number <> 0 Or cc.Name <> "MediaPlayer1" Then ' 1.
> With Controls ' 2.
> .Remove .Count - 1 ' 2.
> End With
> Set cc = OLEObjects.Add("WMPlayer.OCX.7") ' 1.
> '実際にはここでもErrとTypenameで確認する
> Set tcon = cc ' 3.
>
> End If
> tcon.Visible = False ' 4.
>'使う時はちゃんと型宣言した変数で操作する ' 5.
>End Sub
いろいろお世話になっています。
調べてみましたら、MediaPlayerとWindowsMediaPlayerの両方が作成されると言いましたが、お教えいただいたオブジェクトの名前を書かせる命令で調べたら「オブジェクト〇〇」となっていました。旗の絵柄が表示されたのでうまく作成されたのだと早ガッテンしてしまいました。
それで、私のシステムでは1.の用に変更していますが、2.では「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と言うエラー表示になります。
仮に作成されるオブジェクト(「オブジェクト〇〇」)をどのようにして消したらよいか。
また、3.では「オブジェクト変数またはWithブロック変数が設定されていません」と言うエラー表示になります。このためオブジェクトの表示・非表示の4.が確認できません。
5.はDim ccやDim tconのことかなと思い、何ら他のことは行なっていません。
よろしくお願いいたします。
|
|