Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39679 / 76732 ←次へ | 前へ→

【42162】Re:再度:メディアプレーヤーについて(ichinose様)
質問  カッチャン E-MAIL  - 06/9/3(日) 10:30 -

引用なし
パスワード
   >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のことかなと思い、何ら他のことは行なっていません。
よろしくお願いいたします。

1 hits

【41987】メディアプレーヤーについて カッチャン 06/8/28(月) 11:45 発言
【41994】Re:メディアプレーヤーについて neptune 06/8/28(月) 14:55 発言
【42006】Re:メディアプレーヤーについて ichinose 06/8/29(火) 7:47 発言
【42031】Re:メディアプレーヤーについて カッチャン 06/8/30(水) 4:02 お礼
【42032】再度:メディアプレーヤーについて(ichinos... カッチャン 06/8/30(水) 5:43 質問
【42037】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/8/30(水) 9:28 発言
【42077】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/8/31(木) 8:19 質問
【42079】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/8/31(木) 9:09 発言
【42103】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/1(金) 9:45 質問
【42111】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/9/1(金) 13:01 発言
【42162】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/3(日) 10:30 質問
【42166】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/9/3(日) 14:44 発言
【42352】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/7(木) 17:22 お礼

39679 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free