Đang tải dữ liệu...
ParkOur Việt

 Bản tin | Bài viết | Thư viện | Diễn đàn | Giới thiệu | Liên hệ | Tìm kiếm 
Trưng cầu ý kiến
Khi xây dựng ứng dụng trên .NET, bạn thích và hay thường sử dụng ngôn ngữ lập trình nào?
 
Tìm kiếm
Tìm kiếm nâng cao
Thống kê
Số người truy cập: 4.343.008
Số người trực tuyến: 61
Trong đó có 3 thành viên: tran van phong, Phan Hoàng Đức, DH
Trang chủ .NET Việt Nam  >  Bài viết  >  Theo chủ đề  >  Lập trình Windows

How to Create Media Player in VB.NET

Internet
Internet		   
06:09' PM - Thứ năm, 05/06/2008
  • 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

Theo  Internet
Số lượt đọc:  289  -  Cập nhật lần cuối:  05/06/2008 06:09:47 PM
  Về trang trước    Bản in    Gửi email    Về đầu trang
Bài mới:  
Visual Studio .NET shortcut keys
19/06/2008 07:41' PM
Bài đã đăng:
Giving Computers a Voice
29/04/2008
 Trang chủ | Giới thiệu | Liên hệ BQT | Tìm kiếm