Up

ToolboxへのItemの追加

Windows Media Playerの利用

 

音声ファイルや画像ファイルを開いたり、DVDの再生を行うクラス型としてWindows Media Playerがあるが、これはToolboxに初めから用意されているものではない。ToolboxItemとしてフォームに貼り付けて利用するためには、Toolboxに登録しておく必要がある。この登録は、以下のようにして行うことができる。

フォームアプリケーションを用意する。Toolbox内をマウスの右ボタンクリックで表示されるメニュから「Choose Items…」を選ぶ(図1)。

図1

 

表示された「Choose Toolbox Items」ダイアログウィンドウにおいて、「COM Components」ページの「Windows Media Player」を選んでチェックを入れ、「OK」ボタンをクリックする(図2)。

図2

 

ToolboxWindows Media Playerが表示されるようになる(図3)。

図3

 

フォームにToolboxからItemを図4のように貼り付ける。

図4

 

コードは、以下のように用意した。なお、Itemの貼り付け方、イベントハンドラーの用意の仕方などは、<岡本安晴「大学生のための心理学VC++プログラミング入門」勁草書房>の第12章「フォーム・プログラミング」を参照されたい。

============================================

#pragma once

 

#include <stdlib.h>         //     for system() function

 

namespace SamplePrg {

 

       using namespace System;

       using namespace System::ComponentModel;

       using namespace System::Collections;

       using namespace System::Windows::Forms;

       using namespace System::Data;

       using namespace System::Drawing;

 

             

             

             

#pragma endregion

       private: System::Void buttonClose_Click(System::Object^  sender, System::EventArgs^  e) {

              if (system("taskkill /IM wmplayer.exe") != 0) {

                     system("C:\\Windows\\System32\\taskkill.exe /IM wmplayer.exe");

              }

              this->Close();

       }

       private: System::Void buttonOpen_Click(System::Object^  sender, System::EventArgs^  e) {

              openFileDialog1->ShowDialog();

              axWindowsMediaPlayer1->openPlayer(openFileDialog1->FileName);

       }

private: System::Void MyForm_Load(System::Object^  sender, System::EventArgs^  e) {

       axWindowsMediaPlayer1->Hide();

       }

};

}

============================================

 

上のプログラムを実行すると、図5のようにフォームが表示される。

図5

 

Open」ボタンのクリックで、再生するファイル名を設定するダイアログウィンドウが表示される(図6)。

図6

 

図6のようにビデオのファイルを選ぶと、DVDが再生される。

上のプログラムを圧縮ファイルSamplePrg.zipとしてまとめた。ファイル名SamplePrg.zipをクリックしてダウンロード解凍すれば、Visual Studio 2015で開くことができる。

 

Up