使用AxWindowsMediaPlayer撥放多媒體
加入工具箱
Step1.工具箱=>滑鼠右鍵=>選擇項目
Step2.切換至『COM 元件』頁籤=>勾選Windows Media Player=>確定
Step3.會發現工具箱多了個Windows Media Player的控制項
使用AxWindowsMediaPlayer撥放多媒體
Step1.加入Windows Media Player控制項到設計表單，可看到如下的畫面。
Step2.依序加入控制項使介面如下圖所示。
Step3.撰寫控制項初始設定程式碼
此處是設定控制項的初始值，像是音量的最大值、最小值、目前的音量、與啟動Timer(用來偵測檔案總長度用)，值得注意的是AxWindowsMediaPlayer控制項的音量大小介於0~100之間，另外若不設定AutoStart = False則開啟檔案完程式就會自動撥放開啟的多媒體檔。
VB.NET
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AxWindowsMediaPlayer1.settings.autoStart = False '設定不自動撥放
Me.tbarVolume.Minimum = 0 '設定音量調整Bar最小值為最小音量值(0)
Me.tbarVolume.Maximum = 100 '設定音量調整Bar最大值為最大音量值(100)
Me.tbarVolume.Value = Me.AxWindowsMediaPlayer1.settings.volume '設定音量調整Bar目前值為目前音量值
Me.Timer1.Enabled = True
End Sub
C#
private void Form1_Load(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.settings.autoStart = false; //設定不自動撥放
this.tbarVolume.Minimum = 0; //設定音量調整Bar最小值為最小音量值(0)
this.tbarVolume.Maximum = 100; //設定音量調整Bar最大值為最大音量值(100)
this.tbarVolume.Value = this.axWindowsMediaPlayer1.settings.volume; //設定音量調整Bar目前值為目前音量值
this.timer1.Enabled = true;
}
Step4.撰寫開啟程式碼
AxWindowsMediaPlayer控制項是去設定AxWindowsMediaPlayer.URL屬性值來達到多媒體檔案開啟的功能。
VB.NET
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName '開啟檔案
End If
End Sub
C#
private void btnOpen_Click(object sender, EventArgs e)
{
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
this.axWindowsMediaPlayer1.URL = openFileDialog1.FileName; //開啟檔案
}
}
Step5.撰寫撥放程式碼
這部份功能程式碼只需呼叫AxWindowsMediaPlayer.Ctlcontrols.play()即可。
VB.NET
Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
C#
private void btnPlay_Click(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.Ctlcontrols.play();
}
Step6.撰寫停止程式碼
這部份功能程式碼只需呼叫AxWindowsMediaPlayer.Ctlcontrols.stop()即可。
VB.NET
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.stop() '停止播放
End Sub
C#
private void btnStop_Click(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.Ctlcontrols.stop(); //停止播放
}
Step7.撰寫暫停撥放程式碼
這部份功能程式碼只需呼叫AxWindowsMediaPlayer.Ctlcontrols.pause()即可。
VB.NET
Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.pause() '暫停撥放
End Sub
C#
private void btnPause_Click(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.Ctlcontrols.pause(); //暫停撥放
}
Step8.撰寫音量控制程式碼
這部份功能程式碼只需對AxWindowsMediaPlayer.settings.volume做屬性值的變更即可。
VB.NET
Private Sub tbarVolume_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbarVolume.Scroll
Me.AxWindowsMediaPlayer1.settings.volume = Me.tbarVolume.Value '改變音量大小
End Sub
Private Sub btnIncreaseVolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncreaseVolume.Click
Me.AxWindowsMediaPlayer1.settings.volume += 1 '音量大小+1
End Sub
Private Sub btnDecreaseVolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecreaseVolume.Click
Me.AxWindowsMediaPlayer1.settings.volume -= 1 '音量大小-1
End Sub
C#
private void tbarVolume_Scroll(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.settings.volume = this.tbarVolume.Value; //改變音量大小
}
private void btnIncreaseVolume_Click(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.settings.volume += 1; //音量大小+1
}
private void btnDecreaseVolume_Click(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.settings.volume -= 1; //音量大小-1
}
Step9.撰寫撥放位置控制程式碼
除需對AxWindowsMediaPlayer.Ctlcontrols.currentPosioion做屬性值的變更外，尚需利用AxWindowsMediaPlayer.currentMedia.duration去設定最大影片長度。
VB.NET
Private Sub tbarPlayLoaction_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbarPlayLoaction.Scroll
Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = tbarPlayLoaction.Value '改變撥放位置
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.AxWindowsMediaPlayer1.currentMedia Is Nothing Then
Return
End If
Me.tbarPlayLoaction.Maximum = CInt(Me.AxWindowsMediaPlayer1.currentMedia.duration) '設定撥放位置調整Bar最大值
End Sub
C#
private void tbarPlayLoaction_Scroll(object sender, EventArgs e)
{
this.axWindowsMediaPlayer1.Ctlcontrols.currentPosition = tbarPlayLoaction.Value; //改變撥放位置
}
private void timer1_Tick(object sender, EventArgs e)
{
if (this.axWindowsMediaPlayer1.currentMedia == null)
return;
this.tbarPlayLoaction.Maximum = (int)this.axWindowsMediaPlayer1.currentMedia.duration; //設定撥放位置調整Bar最大值
}
Download
使用AxWindowsMediaPlayer撥放多媒體.zip