No.1
- 回答日時:
一応、こんなんでも閉じます。
Option Explicit
Dim AppValue
Private Sub Command1_Click()
AppValue = Shell("C:\Program Files\Windows Media Player\wmplayer.exe,・・・")
End Sub
Private Sub Command2_Click()
If AppValue > 0 Then
AppActivate AppValue
SendKeys "%{F4}", True
End If
End Sub
お礼が遅くなり申し訳ありません。
親切な回答を頂き本当に有難うございました。
頂戴した回答を基に色々試行錯誤をしています。大変勉強になりました。
有難うございました。今後とも宜しくお願いします。
No.3
- 回答日時:
こんにちは。
私には、#2さんのお話の意味が良く分りません。GetObjectで、オートメーション・オブジェクトは取れますが、その後をどうするか、MSDNのSDK を読んでみたのですが、どうも分りません。しょうがないので、以下の方法を使いました。
まあ、Shell で立ち上げる必要性があるのかは私にはわかりませんが。(^^;
Sub Main()
Dim oProcess As Object
On Error Resume Next
For Each Process In GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process where Name='wmplayer.exe'")
Set oProcess = Process
Process.Terminate
Next
On Error GoTo 0
End Sub
なお、WMIコアがインストールされていることが必須です。
この回答への補足
回答を頂き感謝しています。まったくの初心者(VBで書く資格がないかも)ですので良くわかりませんが、WMIコアをインストール方法を教えて下さい。
一つの問題解の決方法を皆さんから、いろいろ教えて頂きとても勉強になります。
お礼が遅くなり申訳有りません。
親切な回答を頂き有難うございました。 忙しい中本当に有難うございました。 頂戴した回答を参考に試行錯誤を行っています。勉強するにも、どこから手がけてよいのか解りませんでしたが回答を拝見し、勉強の糸口が見つかったように思います。
大変お世話になり有難うございました。また、何かありましたら宜しくお願いします。
No.4ベストアンサー
- 回答日時:
オートメーションではなくコントロールです。
プロジェクトのカスタムコントロールにWindows MediaPlayerを登録。
フォームにWindows MediaPlayerを配置。
Private Sub Command1_Click()
MediaPlayer1.Open "G:\TEST.wma"
MediaPlayer1.Play
End Sub
Private Sub Command2_Click()
MediaPlayer1.Stop
End Sub
# 試す環境がない
「好きに制御」の詳細はこちら
http://msdn.microsoft.com/library/ja/wmplay/mmp_ …
この回答への補足
とても親切な回答有難うございました。
VBはまったくの初心者でしてプロジェクトのカスタムコントロールにMediaPlayerを登録する方法と、フォームに配置する方法がわかりません。あつかましいお願いですが宜しくお願いします。
また、せっかくtodo36様が回答を下さった「好きに制御」の意味が解りませんでしたが、参考アドレスを記載して頂き大変有難うございました。
お礼が遅れて申訳有りません。
勉強不足であることを痛感しました。
頂いた回答をヒントに色々試行錯誤をしています。
世の中には本当に詳しい方がいらっしゃると驚いています。
親切なアドバイス本当に有難うございました。今後とも宜しくお願いします。
No.5
- 回答日時:
#4さんへ
私は、Shell で立ち上げたということが前提にありましたので、立ち上げたものをどうするのか、おっしゃっていることが、さっぱり意味が理解できませんでした。
その意味を了解しました。失礼しました。
No.6
- 回答日時:
こんばんは。
>WMIコアをインストール
Win 9x は、旧型なので、インストールしなければなりませんが、それ以上でしたら、入っているように思います。違うようでしたら、Microsoft ダウンロードでダウンロードしてください。
参考URL:http://www.microsoft.com/downloads/results.aspx? …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- デスクトップパソコン メディアプレーヤーが再生できません・・ 3 2022/05/01 20:54
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Windows 10 windows10のクリーンインストールが完了出来ない 2 2022/06/04 13:33
- 日本株 SBI証券HYPER SBI 2のエラー 1 2023/01/31 13:38
- 計算機科学 Pythonに関する質問です。 1 2022/12/04 10:55
- デスクトップパソコン windows7を使っているパソコンでの質問です。先日動作が遅く再起動かけると「windowsを起動 9 2022/06/16 21:31
- 防犯カメラ・監視カメラ・小型カメラ MP4の再生 3 2022/05/03 18:10
- Windows 7 Media Playerが開かない。ファイルアイコンを右クリックしても「プロパティ」が表示されない。 2 2023/02/05 14:45
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAで音楽を再生させた後
PowerPoint(パワーポイント)
-
Windows Media Playerで全画面
画像編集・動画編集・音楽編集
-
VBAによる動画再生
Excel(エクセル)
-
-
4
他のアプリケーションの終了処理
Visual Basic(VBA)
-
5
VBAでMP3を鳴らしたい
Visual Basic(VBA)
-
6
VBSで動画ファイルの時間を読み取る方法
Visual Basic(VBA)
-
7
vbscriptでウィンドウズメディアプレイヤーを・・・・・
その他(プログラミング・Web制作)
-
8
VBAのユーザーフォームに動画を貼り付けて再生させたり停止させたりしたいのですが…
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
VB6.0 SHELLで起動したプログラムを終了さしたいのですが
Visual Basic(VBA)
-
11
メディアプレイヤーのコマンドライン
Visual Basic(VBA)
-
12
Access 2003で動画の再生ができるデータベースを作るには
その他(Microsoft Office)
-
13
vbaから他のアプリを終了
Visual Basic(VBA)
-
14
【vba】Beep音が鳴らない
Excel(エクセル)
-
15
ビデオファイルのプロパティの値を取得する方法
その他(Microsoft Office)
-
16
Word VBAでWindows media playerを動かす
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10にデュアルブートでXP...
-
Linuxにgccをインストールした...
-
インストールできない?
-
C言語 コマンドプロンプトにつ...
-
Shell関数で起動したメディアプ...
-
Tomcatがサービスに残り再イン...
-
visual atudio code でC言語を...
-
ラズパイでのCGIで、pythonソー...
-
VBScriptで外部プログラム実行...
-
R、パッケージのインストールに...
-
visual Studio2017のインス...
-
VisualStudio インストール時の...
-
MSDNが見れません
-
Flashコンテンツを使ったWebサイト
-
Visual Basic 6.0 SP6 インス...
-
DELL タブレット 「Venue 8 Pro...
-
大量のフォルダからひとつのフ...
-
stable diffusionのインストー...
-
コマンドプロンプトのエラーに...
-
コマンドプロンプトの「%1」と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
cygwinインストールでgccが利用...
-
Windows10にデュアルブートでXP...
-
Shell関数で起動したメディアプ...
-
VBScriptで外部プログラム実行...
-
Visual Basic 6.0 SP6 インス...
-
Jupyter Notebookのアンインス...
-
Tomcatがサービスに残り再イン...
-
Python Qt 5.9.7 から Qt 5.12 ...
-
Linuxにgccをインストールした...
-
visual atudio code でC言語を...
-
[C#] コンパイラのバージョン確...
-
DELL タブレット 「Venue 8 Pro...
-
Flashコンテンツを使ったWebサイト
-
Command Not Found @ Cygwin
-
C言語 コマンドプロンプトにつ...
-
DShow.hを認識させたい
-
任意のファイルアイコンの右ク...
-
VB6.0ランタイムインストール先...
-
Powershell ISEの日本語化設定
-
R、パッケージのインストールに...
おすすめ情報