Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39730 / 76732

←次へ　｜　前へ→


	【42111】Re:再度:メディアプレーヤーについて(ichinose様）

ichinose - 06/9/1(金) 13:01 -


	引用なし

	パスワード

▼カッチャンさん：
こんにちは。

う～ん、Excel2002でもちょっと現象は違いますが、
Dim cc as object　と宣言した変数では、
cc.Visible=False　で非表示にはなりませんでした。
（Friendキーワードでも付いてるのかな？）

で以下のコードの結果を確認してください

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
　　　 With Controls
　　　　　.Remove .Count - 1
　　　　　End With
　　　 Set cc = Controls.Add("WMPlayer.OCX.7")
　　　 '実際にはここでもErrとTypenameで確認する
　　　 Set tcon = cc
　　
　　Else
　　　 Set tcon = cc
　　　 End If
　　tcon.Visible = False
　　MsgBox "消えた？"
　　tcon.Visible = True
'使う時はちゃんと型宣言した変数で操作する
End Sub

これもExcel2003では未確認ですが・・・。

0 hits

▼

【41987】メディアプレーヤーについて カッチャン 06/8/28(月) 11:45