How to develop Media Player with C# .Net?

* Steps you will have to do.
* Start visual studio and create a new window application project.
* Set the following properties of Form by using properties windows.

Text = Media Player, BoarderStyle = FixedSingle, maximizeBox = False, Size = 298,298

Now right click on the toolbar and from the menu choose “Add/Remove Items”. A dialog box will appear choose the “COM Component” tab. Search for windows media player and check it by clicking in the checkbox. Click ok. Now in your toolbox a new item is added with the name of window media player.

* Drop this to your form and set the following properties.

Name = player, Size = 298,250

* Drop a main menu control to build the menu for media player
* Build the menu in the following hierarchy and set there names as shown in parenthesis.

File

Open (open)

Exit (mexit)

Player

Play (play)

Stop (mstop)

Pause (mpause)

Volume

Up (mup)

Down (mdown)

Mute (mmute)

* From toolbox drop a “OpenFileDialogBox” control to your form.
* Set its name to “opd”.
* Open the code window and write the code as below in your code window.

Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click

Try

opd.InitialDirectory = "c:\"

opd.ShowDialog()

player.URL = opd.FileName

player.Ctlcontrols.play()

Catch ex As Exception

MessageBox.Show("Some error occur so can't play media", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click

Application.Exit()

End Sub

Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click

player.Ctlcontrols.play()

End Sub

Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click

player.Ctlcontrols.stop()

End Sub

Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click

player.Ctlcontrols.pause()

End Sub

Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click

player.settings.volume = player.settings.volume + 10

End Sub

Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click

player.settings.volume = player.settings.volume - 10

End Sub

Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click

If player.settings.volume = player.settings.mute() Then

player.settings.volume = 20

Else

player.settings.volume = player.settings.mute()

End If

End Sub

		Email this topic \| Print
0 Members and 1 Guest are viewing this topic.