Bagaimana untuk memutar file audio dengan menggunakan Visual Basic.NET atau Visual Basic 2005

Persyaratan

• Microsoft Windows Server 2003, Microsoft Windows 2000, Microsoft Windows XP, atau Microsoft Windows XP Paket Layanan 1
• Visual Basic.NET atau Visual Basic 2005

• Visual Basic.NET atau Visual Basic 2005 pemrograman
• Kit pengembangan perangkat lunak Windows Media Player (SDK)
• Komponen Object Model (COM) interoperabilitas di Visual Dasar.BERSIH atau pada Visual Basic 2005

Membuat aplikasi Windows

1. Mulai Microsoft Visual Studio.NET atau Microsoft Visual Basic 2005.
2. Pada Berkas menu, titikBaru, lalu klik Project.
3. Di bawah Jenis proyek, klik Visual Dasar proyek.
   
   Catatan Pada Visual Studio 2005, klik Visual Basic di bawahJenis proyek.
4. Di bawah Pola acu, klik Windows Aplikasi.
5. Dalam Nama kotak, jenisAudioDemo, lalu klik Oke. Oleh default, Form1.vb dibuat.

/ / Tambahkan kontrol Windows Media Player untuk aplikasi

1. Mulai Visual Studio.NET atau Visual Studio 2005.
2. Pada Alat menu, klikTambah/Hapus item Toolbox.
   
   Catatan Dalam Visual Studio.NET 2002, pada Alat menu, Klik Menyesuaikan Toolbox.
   
   Dalam Visual Studio 2005 Klik Memilih item Toolbox pada Alatmenu.
3. Klik COM komponen tab, dan kemudian Klik People.
4. Cari dan kemudian klik Msdxm.ocx, dan kemudian Klik Terbuka.
   
   Catatan Msdxm.ocx biasanya terletak di% WINDIR %/ System32, di mana% WINDIR % adalah lokasi direktori Windows pada komputer Anda.
5. Dalam Menyesuaikan Toolbox atau Memilih Toolbox Item kotak dialog, klik Oke. Dalam Visual Studio .NET 2003 dan dalam Visual Studio 2005, WindowsMediaPlayerkontrol ditambahkan Toolbox. Dalam Visual Studio.NET 2002,MediaPlayer kontrol ditambahkan Toolbox.
6. Dalam Visual Studio.NET 2003 atau pada Visual Studio 2005, menambahkanWindowsMediaPlayer mengontrol Form1. Dalam Visual Studio.NET 2002, menambahkan MediaPlayer kontrol.
7. AxMediaPlayer1 ditambahkan ke Form1.

Tambahkan tombol untuk mengontrol Windows Media Player

1. Tambahkan empat Tombol kontrol untuk Form1.
2. Klik Button1.
3. Di panel properti, mengubah Teksproperti Button1 untuk Beban.
4. Klik Button2.
5. Di panel properti, mengubah Teksproperti Button2 untuk Bermain.
6. Klik Button3.
7. Dalam pane properti, mengubah Teksproperti Button3 untuk Jeda.
8. Klik Button4.
9. Di panel properti, mengubah Teksproperti Button4 untuk Stop.

Menambahkan OpenFileDialog komponen untuk memuat berkas Audio

Menambahkan kode inisialisasi

1. Pada Lihat menu, klikKode.
2. Di wilayah "Windows Form Designer dihasilkan kode", Cari kode berikut:

   InitializeComponent()

3. Tambahkan kode berikut setelah kode yang Anda terletak di Langkah 2:

   ' Disable the Play, the Pause, and the Stop buttons.
   Button2.Enabled = False
   Button3.Enabled = False
   Button4.Enabled = False
   
   ' Hide the Windows Media Player.
   AxMediaPlayer1.Visible = False
   

Menambahkan kode untuk me-Load File Audio

1. Pada Lihat menu, klikPerancang.
2. Klik dua kali Beban kontrol, dan kemudian Tambahkan kode berikut untuk Button1_Click event-handler:

   ' Reset the file names for the Open File dialog box and for the Media Player.
   OpenFileDialog1.FileName = ""
   AxMediaPlayer1.FileName = ""
   ' Display the Open File dialog box.
   OpenFileDialog1.ShowDialog()
   ' Verify that Cancel was not clicked.
   If Not OpenFileDialog1.FileName = "" Then
      ' Disable the Load button.
      Button1.Enabled = False
      ' Prevent the Media Player from automatically playing loaded files.
      AxMediaPlayer1.AutoStart = False
      ' Set the Media Player audio file.
      AxMediaPlayer1.FileName = OpenFileDialog1.FileName
      MessageBox.Show("The following file has been loaded in the Media Player control: " + AxMediaPlayer1.FileName)
      ' Enable the Play button.
      Button2.Enabled = True
   Else
      ' Disable the Play button.
      Button2.Enabled = False
   End If

Menambahkan kode untuk memutar File Audio

1. Pada Lihat menu, klikPerancang.
2. Klik dua kali Bermain kontrol, dan kemudian Tambahkan kode berikut untuk Button2_Click event-handler:

   ' Disable the Load and the Play buttons.
   Button1.Enabled = False
   Button2.Enabled = False
   ' Play the audio file.
   AxMediaPlayer1.Play()
   ' Enable the Pause and the Stop buttons.
   Button3.Enabled = True
   Button4.Enabled = True

Menambahkan kode untuk menunda Audio File

1. Pada Lihat menu, klikPerancang.
2. Klik dua kali Jeda kontrol, dan kemudian Tambahkan kode berikut untuk Button3_Click event-handler:

   ' Disable the Pause button.
   Button3.Enabled = False
   ' Pause the audio file.
   AxMediaPlayer1.Pause()
   ' Enable the Play button.
   Button2.Enabled = True

Menambahkan kode untuk menghentikan Audio File

1. Pada Lihat menu, klikPerancang.
2. Klik dua kali Stop kontrol, dan kemudian Tambahkan kode berikut untuk Button4_Click event-handler:

   ' Disable the Pause and the Stop buttons.
   Button3.Enabled = False
   Button4.Enabled = False
   ' Stop playing the audio file, and then reset the next play position to the beginning.
   AxMediaPlayer1.Stop()
   AxMediaPlayer1.CurrentPosition = 0
   ' Enable the Load and the Play buttons.
   Button1.Enabled = True
   Button2.Enabled = True

Kode contoh daftar (Form1.vb)

Option Strict On

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        ' This call is required by the Windows Form Designer.
      InitializeComponent()

      ' Disable the Play, the Pause, and the Stop buttons.
      Button2.Enabled = False
      Button3.Enabled = False
      Button4.Enabled = False

      ' Hide the Media Player.
      AxMediaPlayer1.Visible = False
      
        ' Add any initialization after the InitializeComponent() call.

    End Sub

    ' Form overrides Dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Required by the Windows Form Designer.
    Private components As System.ComponentModel.IContainer

    ' NOTE: The following procedure is required by the Windows Form Designer
    ' It can be modified using the Windows Form Designer.  
    ' Do not modify it using the code editor.
   Friend WithEvents AxMediaPlayer1 As AxMediaPlayer.AxMediaPlayer
   Friend WithEvents Button1 As System.Windows.Forms.Button
   Friend WithEvents Button2 As System.Windows.Forms.Button
   Friend WithEvents Button3 As System.Windows.Forms.Button
   Friend WithEvents Button4 As System.Windows.Forms.Button
   Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
      Me.AxMediaPlayer1 = New AxMediaPlayer.AxMediaPlayer
      Me.Button1 = New System.Windows.Forms.Button
      Me.Button2 = New System.Windows.Forms.Button
      Me.Button3 = New System.Windows.Forms.Button
      Me.Button4 = New System.Windows.Forms.Button
      Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
      CType(Me.AxMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      '
      'AxMediaPlayer1
      '
      Me.AxMediaPlayer1.Location = New System.Drawing.Point(224, 0)
      Me.AxMediaPlayer1.Name = "AxMediaPlayer1"
      Me.AxMediaPlayer1.OcxState = CType(resources.GetObject("AxMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State)
      Me.AxMediaPlayer1.Size = New System.Drawing.Size(286, 225)
      Me.AxMediaPlayer1.TabIndex = 0
      '
      'Button1
      '
      Me.Button1.Location = New System.Drawing.Point(16, 72)
      Me.Button1.Name = "Button1"
      Me.Button1.TabIndex = 1
      Me.Button1.Text = "Load"
      '
      'Button2
      '
      Me.Button2.Location = New System.Drawing.Point(32, 104)
      Me.Button2.Name = "Button2"
      Me.Button2.TabIndex = 2
      Me.Button2.Text = "Play"
      '
      'Button3
      '
      Me.Button3.Location = New System.Drawing.Point(40, 136)
      Me.Button3.Name = "Button3"
      Me.Button3.TabIndex = 3
      Me.Button3.Text = "Pause"
      '
      'Button4
      '
      Me.Button4.Location = New System.Drawing.Point(56, 192)
      Me.Button4.Name = "Button4"
      Me.Button4.TabIndex = 4
      Me.Button4.Text = "Stop"
      '
      'Form1
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(712, 397)
      Me.Controls.Add(Me.Button4)
      Me.Controls.Add(Me.Button3)
      Me.Controls.Add(Me.Button2)
      Me.Controls.Add(Me.Button1)
      Me.Controls.Add(Me.AxMediaPlayer1)
      Me.Name = "Form1"
      Me.Text = "Form1"
      CType(Me.AxMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)

   End Sub

#End Region

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      ' Reset the file names for the Open dialog box and for the Media Player.
      OpenFileDialog1.FileName = ""
      AxMediaPlayer1.FileName = ""
      ' Display the Open File dialog box.
      OpenFileDialog1.ShowDialog()
      ' Verify that Cancel was not clicked.
      If Not OpenFileDialog1.FileName = "" Then
         ' Disable the Load button.
         Button1.Enabled = False
         ' Prevent the Media Player from automatically playing loaded files.
         AxMediaPlayer1.AutoStart = False
         ' Set the Media Player audio file.
         AxMediaPlayer1.FileName = OpenFileDialog1.FileName
         MessageBox.Show("The following file has been loaded in the Media Player control: " + AxMediaPlayer1.FileName)
         ' Enable the Play button.
         Button2.Enabled = True
      Else
         ' Disable the Play button.
         Button2.Enabled = False
      End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      ' Disable the Load and the Play buttons.
      Button1.Enabled = False
      Button2.Enabled = False
      ' Play the audio file.
      AxMediaPlayer1.Play()
      ' Enable the Pause and the Stop buttons.
      Button3.Enabled = True
      Button4.Enabled = True
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      ' Disable the Pause button.
      Button3.Enabled = False
      ' Pause the audio file.
      AxMediaPlayer1.Pause()
      ' Enable the Play button.
      Button2.Enabled = True
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      ' Disable the Pause and the Stop buttons.
      Button3.Enabled = False
      Button4.Enabled = False
      ' Stop playing the audio file, and then reset the next play position to the beginning.
      AxMediaPlayer1.Stop()
      AxMediaPlayer1.CurrentPosition = 0
      ' Enable the Load and the Play buttons.
      Button1.Enabled = True
      Button2.Enabled = True
   End Sub
End Class

Memverifikasi bahwa kode bekerja

1. Pada Bangun menu, klik Bangun Solusi.
2. Untuk menjalankan aplikasi, klik Mulai padaDebug menu. Form1 muncul.
3. Klik Beban. The Terbukakotak dialog akan muncul.
4. Cari dan pilih file audio yang sah, dan kemudian klikTerbuka. Kotak pesan dengan path file penuh muncul.
5. Untuk menutup kotak pesan, klikOke.
6. Untuk memulai pemutaran audio file, klikBermain. Anda mendengar output audio yang sesuai.
   
   Catatan Anda mendengar output audio hanya jika komputer Anda memiliki suara kartu yang dikonfigurasi dengan benar dan jika Anda menggunakan speaker, earphone, atau headphone untuk mendengar output.
7. Klik Jeda atau Stop untuk kontrol output audio dari aplikasi Anda.

Mengatasi masalah

• Anda mendengar output audio hanya jika komputer Anda memiliki suara kartu yang dikonfigurasi dengan benar dan jika Anda menggunakan speaker, earphone, atau headphone untuk mendengar output.
• Anda mungkin mendengar audio output sebelum Anda klikBermain. Perilaku ini terjadi ketika AutoStart properti dari Pemutar Media Anda tidak diatur ke palsu. Secara default, AutoStart properti ini diset benar. Untuk mengatasi masalah ini, menemukan baris berikut di "Windows Form Designer dihasilkan kode" wilayah:

  InitializeComponent()

  dan kemudian tambahkan kode berikut setelah kode yang Anda telah terletak.

  ' Prevent the Media Player from automatically playing loaded files.
  AxMediaPlayer1.AutoStart = False

• Ketika Anda mengklik Stop kemudian klikBermain, audio file mungkin tidak dimainkan dari awal. Sebaliknya, audio file diputar dari di mana file berhenti bermain. Perilaku ini terjadi ketika posisi bermain tidak diatur ke awal audio file. Untuk mengatasi masalah ini, gunakan kode berikut dalam Button4_Click event-handler:

  AxMediaPlayer1.CurrentPosition = 0

• Sampel ini tidak boleh memutar format audio yang tidak didukung oleh Windows Media Player.

Kembali ke atas | Berikan Masukan