MUSIC ON! TV風 曲名表示機能付きミュージックプレイヤー

作品プログラム
動作環境
投稿者
huki
投稿日
2012-11-28 20:35:53
ダウンロード数
414

作品のプログラム

「Produire.WMP.dll」を利用する
「Produire.WinControl.dll」を利用する
メイン画面を表示する
操作画面を表示する
操作画面のボタン5にフォーカス
待機する

操作画面とは
  ウィンドウを継承する
  
  はじめの手順
    初期化する
    WMPというWindowsMediaPlayer部品を作る
      その位置と大きさを{10,50,395,200}に変える
    WMPを初期化する
    ーー貼り付けた部品に対する操作をここに書きます
  終わり

  初期化する手順
  ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
  この内部領域大きさを{416、459}に変える
  この種類を「固定」に変える
  この最大化ボタンを×に変える
  この内容を「字幕 Ver.M-ON!|操作画面」に変える
  このドラッグドロップを○に変える
  ボタン5というボタンを作る
    その位置と大きさを{12、12、108、36}に変える
    その内容を「メディアを開く」に変える
    その移動順を20に変える
    そのドラッグドロップを○に変える
  テキスト4というテキストを作る
    その位置と大きさを{65、350、345、19}に変える
    その内容を「# 」に変える
    その移動順を15に変える
  ボタン4というボタンを作る
    その位置と大きさを{93、425、75、23}に変える
    その内容を「消」に変える
    その移動順を14に変える
  ボタン3というボタンを作る
    その位置と大きさを{12、425、75、23}に変える
    その内容を「表示」に変える
    その移動順を13に変える
  ボタン1というボタンを作る
    その位置と大きさを{268、288、142、19}に変える
    その内容を「参照」に変える
    その移動順を7に変える
  テキスト2というテキストを作る
    その位置と大きさを{83、285、179、19}に変える
    その内容を「#333333」に変える
    その移動順を6に変える
  ラベル4というラベルを作る
    その位置と大きさを{12、288、65、12}に変える
    その内容を「フォントカラー」に変える
    その移動順を5に変える
  ラベル3というラベルを作る
    その位置と大きさを{12、353、29、12}に変える
    その内容を「曲名」に変える
    その移動順を3に変える
  ラベル5というラベルを作る
    その位置と大きさを{12、313、38、12}に変える
    その内容を「フォント」に変える
    その移動順を9に変える
  テキスト3というテキストを作る
    その位置と大きさを{83、310、179、19}に変える
    その内容を「MS UI Gothic」に変える
    その移動順を10に変える
  ボタン2というボタンを作る
    その位置と大きさを{268、313、142、19}に変える
    その内容を「参照」に変える
    その移動順を11に変える
  テキスト5というテキストを作る
    その位置と大きさを{65、375、345、19}に変える
    その移動順を17に変える
  ラベル6というラベルを作る
    その位置と大きさを{12、378、46、12}に変える
    その内容を「」に変える
    その移動順を16に変える
  テキスト6というテキストを作る
    その位置と大きさを{65、400、345、19}に変える
    その移動順を19に変える
  ラベル7というラベルを作る
    その位置と大きさを{12、403、51、12}に変える
    その内容を「」に変える
    その移動順を18に変える
  リストビュー1というリストビューを作る
    その位置と大きさを{416、12、291、436}に変える
    その表示方法を「詳細」に変える
    その見出し一覧を{「属性」、「値」}に変える
    その見出し幅を{99、184}に変える
    そのタイルサイズを{0、0}に変える
    その移動順を26に変える
  この決定ボタンをボタン3に変える
終わり

  ボタン1がクリックされた時の手順
    色選択画面を表示する
    テキスト2の内容を色選択画面の色に変える
    メイン画面のラベル1の文字色を「[テキスト2の内容]」に変える
    テキスト4にフォーカス
  終わり

  ボタン2がクリックされた時の手順
    「フォントのみ選択して下さい。[改行]OKを押すとフォント選択画面が開きます。」を表示
    フォント選択画面を表示する
    テキスト3の内容をフォント選択画面のフォント名に変える
    メイン画面のラベル1のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル2のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル3のフォントを「[テキスト3の内容],30」に変える
    テキスト4にフォーカス
  終わり

  ボタン3がクリックされた時の手順
    メイン画面にフォーカス
    ボタン1の有効を×に変える
    ボタン2の有効を×に変える
    ボタン3の有効を×に変える
    ボタン4の有効を×に変える
    ボタン5の有効を×に変える
    ボタン3の内容を「表示中...」に変える
    メイン画面のラベル1の内容を「」に変える
    メイン画面のラベル1のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル1の文字色を「[テキスト2の内容]」に変える
    メイン画面のラベル2の内容を「」に変える
    メイン画面のラベル2のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル2の文字色を「[テキスト2の内容]」に変える
    メイン画面のラベル3の内容を「」に変える
    メイン画面のラベル3のフォントを「[テキスト3の内容],30」に変える
    メイン画面のラベル3の文字色を「[テキスト2の内容]」に変える
    表示文字数1は、テキスト4の内容の文字数
    表示文字列1は、テキスト4の内容
    繰り返し回数は、1
    繰り返せ
      もし 繰り返し回数は 表示文字数1+1なら 繰り返しから抜ける
      メイン画面のラベル1の内容を「 [表示文字列1から先頭から繰り返し回数文字取り出したもの]」に変える
      繰り返し回数は、繰り返し回数+1
      0.1秒 待て
    繰り返し終わり

    0.7秒 待て
    表示文字数2は、テキスト5の内容の文字数
    表示文字列2は、テキスト5の内容
    繰り返し回数は、1
    繰り返せ
      もし 繰り返し回数は 表示文字数2+1なら 繰り返しから抜ける
      メイン画面のラベル2の内容を「 [表示文字列2から先頭から繰り返し回数文字取り出したもの]」に変える
      繰り返し回数は、繰り返し回数+1
      0.1秒 待て
    繰り返し終わり

    0.7秒 待て
    表示文字数3は、テキスト6の内容の文字数
    表示文字列3は、テキスト6の内容
    繰り返し回数は、1
    繰り返せ
      もし 繰り返し回数は 表示文字数3+1なら 繰り返しから抜ける
      メイン画面のラベル3の内容を「  [表示文字列3から先頭から繰り返し回数文字取り出したもの]」に変える
      繰り返し回数は、繰り返し回数+1
      0.1秒 待て
    繰り返し終わり
    ボタン1の有効を◯に変える
    ボタン2の有効を◯に変える
    ボタン3の有効を◯に変える
    ボタン4の有効を◯に変える
    ボタン5の有効を◯に変える
    ボタン3の内容を「表示」に変える
    メイン画面にフォーカス
    テキスト4にフォーカス
  終わり
    
  ボタン4がクリックされた時の手順
    メイン画面にフォーカス
    テキスト4にフォーカス
    ボタン1の有効を×に変える
    ボタン2の有効を×に変える
    ボタン3の有効を×に変える
    ボタン4の有効を×に変える
    ボタン4の内容を「削除中...」に変える
    繰り返し
      もし メイン画面の透明度は 0なら 繰り返しから抜ける
      メイン画面の透明度をメイン画面の透明度-5に変える
      0秒 待て
    繰り返し終わり
    
    テキスト4の内容を「# 」に変える
    テキスト5の内容を「」に変える
    テキスト6の内容を「」に変える
    メイン画面のラベル1のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル1の文字色を「[テキスト2の内容]」に変える
    メイン画面のラベル1の内容を「」に変える
    メイン画面のラベル2のフォントを「[テキスト3の内容],37」に変える
    メイン画面のラベル2の文字色を「[テキスト2の内容]」に変える
    メイン画面のラベル2の内容を「」に変える
    メイン画面のラベル3のフォントを「[テキスト3の内容],30」に変える
    メイン画面のラベル3の文字色を「[テキスト2の内容]」に変える
    メイン画面のラベル3の内容を「」に変える
    ボタン1の有効を◯に変える
    ボタン2の有効を◯に変える
    ボタン3の有効を◯に変える
    ボタン4の有効を◯に変える
    ボタン4の内容を「消」に変える
    メイン画面の透明度を75に変える
  終わり

  閉じる時の手順
    メイン画面を閉じる
  終わり
  
  WMPのメディア情報が変更された時の手順
    リストビュー1をすべて消す
    WMPの現在メディアの属性一覧の見出しのすべての属性名について、それぞれ繰り返す
      リストビュー1に、属性名を追加する
          その詳細を{(WMPの現在メディアから属性名という属性を取得したもの)}に変える
    繰り返し終わり
  終わり

  ボタン5がクリックされた時の手順
    開く画面のフィルタを、「メディア|*.wma;*.mp3;*.wav|すべてのファイル|*.*」に変える
    開く画面を表示する
    もし開く画面のキャンセルなら、抜ける
    テキスト4の内容を「」に変える
    テキスト5の内容を「」に変える
    テキスト6の内容を「」に変える
    ボタン1の有効を×に変える
    ボタン2の有効を×に変える
    ボタン3の有効を×に変える
    ボタン4の有効を×に変える
    ボタン5の有効を×に変える
    WMPのアドレスを、開く画面のファイル名に変える
    繰り返せ
      もしWMPの状態が「接続しています...」でないなら
        繰り返しから抜ける  
      もし終わり
      0.2秒 待て
    繰り返し終わり
    テキスト4の内容を「# 」に変える
    テキスト5の内容を「」に変える
    テキスト6の内容を「」に変える
    テキスト4の内容は、「# [WMPの現在メディアから「Title」という属性を取得したもの]」
    テキスト5の内容は、「[WMPの現在メディアから「Author」という属性を取得したもの]」
    テキスト6の内容は、「[WMPの現在メディアから「WM/AlbumTitle」という属性を取得したもの]」
    ボタン1の有効を◯に変える
    ボタン2の有効を◯に変える
    ボタン3の有効を◯に変える
    ボタン4の有効を◯に変える
    ボタン5の有効を◯に変える
    ボタン3をクリック
  終わり
  
  WMPの状態が変更された時の手順
    もしWMPの再生状態が「再生中」なら
      ボタン3をクリック
    他でもしWMPの再生状態が「停止中」なら
      ボタン1の有効を×に変える
      ボタン2の有効を×に変える
      ボタン3の有効を×に変える
      ボタン4の有効を×に変える
      ボタン4の内容を「削除中...」に変える
      繰り返し
        もし メイン画面の透明度は 0なら 繰り返しから抜ける
        メイン画面の透明度をメイン画面の透明度-5に変える
        0秒 待て
      繰り返し終わり
      
      メイン画面のラベル1の内容を「」に変える
      メイン画面のラベル2の内容を「」に変える
      メイン画面のラベル3の内容を「」に変える
      ボタン1の有効を◯に変える
      ボタン2の有効を◯に変える
      ボタン3の有効を◯に変える
      ボタン4の有効を◯に変える
      ボタン4の内容を「消」に変える
      メイン画面の透明度を75に変える
    もし終わり
  終わり
終わり

メイン画面とは
  ウィンドウを継承する
  
  はじめの手順
    初期化する
    位置を{2000、0}に変える
    最大化
    ーー貼り付けた部品に対する操作をここに書きます
  終わり

  初期化する手順
  ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
  このタスクバー表示を×に変える
  この内部領域大きさを{502、263}に変える
  この透明度を75に変える
  この透明色を「オブジェクト」に変える
  この最前面を○に変える
  この種類を「縁無し」に変える
  この初期位置を「手動」に変える
  この内容を「メイン画面」に変える
  このドラッグドロップを○に変える
  ラベル1というラベルを作る
    その位置と大きさを{0、74、502、50}に変える
    そのフォントを「MS UI Gothic,37」に変える
    その自動調整を×に変える
    その文字色を「#333333」に変える
    そのドッキング方向を「下」に変える
  ラベル2というラベルを作る
    その位置と大きさを{0、124、502、50}に変える
    そのフォントを「MS UI Gothic,37」に変える
    その自動調整を×に変える
    その移動順を1に変える
    その文字色を「#333333」に変える
    そのドッキング方向を「下」に変える
  ラベル3というラベルを作る
    その位置と大きさを{0、174、502、40}に変える
    そのフォントを「MS UI Gothic,30」に変える
    その自動調整を×に変える
    その移動順を2に変える
    その文字色を「#333333」に変える
    そのドッキング方向を「下」に変える
  ラベル4というラベルを作る
    その位置と大きさを{0、214、502、49}に変える
    そのフォントを「MS UI Gothic,37」に変える
    その自動調整を×に変える
    その文字配置を「左下」に変える
    その移動順を3に変える
    その文字色を「#333333」に変える
    そのドッキング方向を「下」に変える
終わり
終わり
	

▲ページの先頭へ