Visualを使用してメディアプレーヤーを作成する方法Basic.Net
このチュートリアルでは、私は音、ビデオを再生し、異なる形式の画像を表示することができるカスタマイズメディアプレーヤーを作成する方法を教えて それでは、始めましょう。 ただし、Media Playerはtoolboxのコンポーネント部分には存在しないため、windows Media Playerをツールボックスに追加する必要があります。 これを行うには、与えられた手順に従ってください。
- ツールボックスに移動し、
- を右クリックし、項目の選択を選択すると、ツールボックスのカスタマイズダイアログボックスが開きます。
- を選択し、COMコンポーネントでWindows Media Playerを選択します。
- をクリックし、”OK”
- をクリックすると、最後にWindows Media Playerコントロールが現在のタブに表示されます。
このプロセスの後、Windows Media Playerをフォームに追加でき、このコントロールのデフォルト名は”Axwindowsmediaplayer1″です。 次に、あなたが望むものに基づいてこのオブジェクトの名前を自由に変更することができますたとえば、「WMPlayer」という名前を付けて、読みやすく覚えやすく
次のプロセスでは、Listbox、FolderBrowserDialog、MenuStrip、StatusStripなどの他のコントロールをフォームに追加します。
オブジェクトとプロパティの計画
オブジェクト |
プロパティ |
設定 |
| フォーム1 | 名前 | mainFrm |
| テキスト | パーソナルメディアプレーヤー | |
| StartPosition | センタースクリーン | |
| コントロールボックス | False | |
| Axwindowsmediaplayer1 | 名前 | myPlayer |
| リストボックス | 名前 | リスト |
| メヌストリップ1 | 名前 | メヌストリップ1 |
| Statusstrip1 | 名前 | Statusstrip1 |
| Folderbrowserdialog1 | 名前 | Folderbrowserdialog1 |
Menustrip1では、ライブラリとビューのような二つのメインメニューを追加する必要があります。 ライブラリには、音楽、ビデオ、画像、終了などのサブメニューもあります。 そして、ビューサブメニューのための唯一のプレイリストエディタです。 以下に示すように、これは次のようになります。
そして、最終的なデザインは以下のようになります。
ユーザーインターフェイスを設計した後、プログラムに機能を追加しましょう。 最初のステップメインフォームをダブルクリックするか、”mainFrm”に名前を付けてビューデザイナーをビューコードに移動します。 次に、mainfrm_loadにこのコードを追加します。
アイテム。Clear()’リスト
リストのすべてのcurrectコンテンツをクリアします。メインフォーム
myPlayerを非表示にします。Width=787’myPlayerの幅を787
にリサイズし、パブリッククラスmainFrmの下に、フォルダの後のパスを保持する変数の宣言を追加します。 そして、それはこれを好きになるでしょう。
Public Class mainFrm
Dim folderpath As String
このコードを追加した後、後でプログラムで使用するサブプロシージャを作成します。
パブリックサブjokenresult()
Ifリスト。アイテム。カウント>0次に
リスト。表示()
myPlayer.Width=577
statresult.テキスト=リスト。アイテム。カウント&”アイテム”
Else
リスト。Hide()
myPlayer.Width=787
End If
End Sub
次に、音楽のライブラリの下のサブメニュー項目に機能を追加します。 これを行うには、単に音楽サブメニューをダブルクリックします。 次に、ソースコードビューにリダイレクトされ、このコードを追加して、以下に示すようになります。
プライベートサブMusictoolstripmenuitem_Click(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はMusicToolStripMenuItemを処理します。クリック
Try
‘それはあなたの音楽の特定のフォルダがどこにあるかを選択することができますフォルダダイアログを開きます
Folderbrowserdialog1。DialogResultの場合、ShowDialog()
。OK Then
‘trueの場合、フォルダダイアログボックスでokをクリックすると、
‘フォルダの選択されたパスが取得され、di変数
Dim di As New IOに格納されます。DirectoryInfo(Folderbrowserdialog1.SelectedPath)
‘このコード行では、持っているすべての特定のファイルを取得します。mp3拡張を行い、diar1変数
Diar1にIOとして格納します。FileInfo()=di.GetFiles(“*.mp3”)
DIM DRA As IO.FileInfo
‘この行では、fullpathとすべてのファイルの名前に関するすべての情報を収集し、folderpath変数
folderpath=diに格納します。完全な名前。ToString
リスト。アイテム。Clear()
‘指定されたディレクトリ
内の各draのすべてのファイルの名前をdiar1
Dim a As Integer=0
‘a=a+1
リストにリストします。アイテム。Add(dra)
Next
‘サブプロシージャjokenresult()を呼び出していくつかのアクションを実行します
jokenresult()
End If
Catch ex As Exception
‘エラーが発生した場合、プログラムはそれをキャッ
メッセージ、MsgBoxStyle。情報)
End Try
End Sub
これは、選択した音楽を再生するサンプル実行プログラムです。
これは選択したムービーを再生するサンプル実行プログラムです。
そして最後にこれがすべてのソースコードです。
‘説明:ユーザーが音楽、ビデオ、写真などを再生できるパーソナルメディアプレーヤー…
‘作成者:Joken Villanueva
‘作成日:March23, 2011
‘によって変更：
パブリッククラスmainFrm
Dim folderpath As String
プライベートサブMusictoolstripmenuitem_Click（Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はMusicToolStripMenuItemを処理します。クリック
Try
‘それはあなたの音楽の特定のフォルダがどこにあるかを選択することができますフォルダダイアログを開きます
Folderbrowserdialog1。DialogResultの場合、ShowDialog()
。OK Then
‘trueの場合、フォルダダイアログボックスでokをクリックすると、
‘フォルダの選択されたパスが取得され、di変数
Dim di As New IOに格納されます。DirectoryInfo(Folderbrowserdialog1.SelectedPath)
‘このコード行では、持っているすべての特定のファイルを取得します。mp3拡張を行い、diar1変数
Diar1にIOとして格納します。FileInfo()=di.GetFiles(“*.mp3”)
DIM DRA As IO.FileInfo
‘この行では、fullpathとすべてのファイルの名前に関するすべての情報を収集し、folderpath変数
folderpath=diに格納します。完全な名前。ToString
リスト。アイテム。Clear()
‘指定されたディレクトリ
内の各draのすべてのファイルの名前をdiar1
Dim a As Integer=0
‘a=a+1
リストにリストします。アイテム。Add(dra)
Next
‘サブプロシージャjokenresult()を呼び出していくつかのアクションを実行します
jokenresult()
End If
Catch ex As Exception
‘エラーが発生した場合、プログラムはそれをキャッ
メッセージ、MsgBoxStyle。
End Try
End Sub
Public Sub jokenresult()
if list.アイテム。カウント>0次に
リスト。表示()
myPlayer.Width=577
statresult.テキスト=リスト。アイテム。カウント&”アイテム”
Else
リスト。Hide()
myPlayer.Width=787
End If
End Sub
Private Sub list_selectedindexchanged(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)リストを処理します。SelectedIndexChanged
‘myPlayerは、ユーザーが選択したアイテム
myPlayerに基づいて、リストから何かを再生または表示します。URL=folderpath&”\”&リスト。SelectedItem.ToString
End Sub
Private Sub Videostoolstripmenuitem_Click(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はVideosToolStripMenuItemを処理します。
をクリックして、
Folderbrowserdialog1を試してみてください。DialogResultの場合、ShowDialog()
。OK、次に
Dim diを新しいIOとして。DirectoryInfo(Folderbrowserdialog1.選択パス)
Dim diar1AS IO.FileInfo()=di.GetFiles(“*.*”)
Dim DRA As IO.FileInfo
folderpath=di.完全な名前。ToString
リスト。アイテム。Diar1
リスト内の各draに対してClear()
を実行します。アイテム。追加(dra)
次
jokenresult()
終了If
例外としてExをキャッチ
MsgBox(ex.メッセージ、MsgBoxStyle。
End Try
MsgBox(folderpath)
End Sub
Private Sub Imagestoolstripmenuitem_Click(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はImagesToolStripMenuItemを処理します。
をクリックして、
Folderbrowserdialog1を試してみてください。DialogResultの場合、ShowDialog()
。OK、次に
Dim diを新しいIOとして。DirectoryInfo(Folderbrowserdialog1.選択パス)
Dim diar1AS IO.FileInfo()=di.GetFiles(“*.jpg”）
FileInfo
folderpath=di.完全な名前。ToString
リスト。アイテム。Diar1
リスト内の各draに対してClear()
を実行します。アイテム。追加(dra)
次
jokenresult()
終了If
例外としてExをキャッチ
MsgBox(ex.メッセージ、MsgBoxStyle。
End Try
End Sub
Private Sub Exittoolstripmenuitem_Click(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はExitToolStripMenuItemを処理します。＜9855＞＜6208＞をクリックしてください。Close()
End Sub
Private Sub Playlisteditortoolstripmenuitem_Click(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)は、PlaylistEditorToolStripMenuItemを処理します。この行の
‘をクリックすると、プレイリストエディタがクリックされ、リストがフォームに表示されます。
If PlaylistEditorToolStripMenuItem.チェック=True、次に
リスト。表示()
myPlayer.Width=577
Else
リスト。Hide()
myPlayer.Width=787
End If
End Sub
Private Sub mainfrm_load(Byval sender As System.オブジェクト、システムとしてByVal e。EventArgs)はMyBaseを処理します。
リストをロードします。アイテム。Clear()’リスト
リストのすべてのcurrectコンテンツをクリアします。メインフォーム
myPlayerを非表示にします。Width=787’myPlayerの幅を787
End Sub
End Class
にリサイズします