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

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 821767 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini selangkah demi selangkah menjelaskan cara memutar berkas audio dengan menggunakan Microsoft Visual Basic.NET atau Microsoft Visual Basic 2005. Ini artikel tersebut juga berisi kode contoh yang menggambarkan konsep-konsep yang dibahas dalam artikel.

Persyaratan

Daftar berikut menguraikan fitur perangkat keras, perangkat lunak, jaringan infrastruktur, dan paket layanan yang Anda butuhkan:
  • Microsoft Windows Server 2003, Microsoft Windows 2000, Microsoft Windows XP, atau Microsoft Windows XP Paket Layanan 1
  • Visual Basic.NET atau Visual Basic 2005
Catatan Kode yang tersedia di dalam artikel ini tidak didukung pada Microsoft Windows Server 2003.

Artikel ini mengasumsikan bahwa Anda adalah akrab dengan topik-topik berikut:
  • 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

Tambahkan OpenFileDialog komponen Form1.

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
Catatan Anda harus mengubah kode pada Visual Basic 2005. Secara default, Visual Dasar menciptakan dua file untuk proyek ketika Anda membuat Windows Forms proyek. Jika bentuk bernama Form1, kedua file yang mewakili bentuk yang bernama Form1.vb dan Form1.Designer.vb. Anda menulis kode dalam Form1.vb file. Windows Forms Designer menulis kode dalam Form1.Designer.vb file. The Windows Forms Designer menggunakan kata kunci parsial untuk membagi pelaksanaan Form1 menjadi dua file terpisah. Perilaku ini mencegah desainer yang dihasilkan kode dari yang diselingi dengan kode Anda.

Untuk informasi lebih lanjut tentang baru Visual Basic 2005 bahasa tambahan, kunjungi berikut Situs Web Microsoft Developer Network (MSDN):
.aspx http://msdn2.Microsoft.com/en-us/library/ms379584 (vs.80)
Untuk informasi lebih lanjut tentang kelas parsial dan Windows Forms Desainer, kunjungi Website MSDN berikut:
http://msdn2.Microsoft.com/en-us/library/ms171843.aspx

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.

REFERENSI

Untuk informasi lebih lanjut, kunjungi Website Microsoft berikut Situs Web Developer Network (MSDN):
Windows Media Player 6,4 SDK
http://msdn2.Microsoft.com/en-us/library/ms984011.aspx
COM Interop
.aspx http://msdn2.Microsoft.com/en-us/library/6bw51z5z (vs.71)

Properti

ID Artikel: 821767 - Kajian Terakhir: 05 Oktober 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Kata kunci: 
kbvs2005applies kbvs2005swept kbwaveaudio kbsdk kbcominterop kbcomctrls kbsound kbinterop kbappdev kbctrl kbcontrol kbprogramming kbsample kbhowtomaster kbmt KB821767 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:821767

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com