Imports System****
Imports WMPLib
Imports AxWMPLib
Public Class Form1
Dim WithEvents myplayer As AxWMPLib.AxWindowsMediaPlayer
Private Sub PlayFile(ByVal url As String)
myplayer = New AxWMPLib.AxWindowsMediaPlayer
myplayer.URL = ("C:\Users\JeanneSky\Documents\lalala.wma")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
myplayer.Ctlcontrols.play()
End Sub
End Class
Module Module1
Private PlaySound As New System.Media.SoundPlayer
Private kick As New System.Media.SoundPlayer
Public Sub PlaySoundFile(ByVal SoundPath As String)
PlaySound.SoundLocation = SoundPath
PlaySound.Load()
PlaySound.Play()
End Sub
Public Sub kickfile(ByVal SoundPath As String)
kick.SoundLocation = SoundPath
kick.Load()
kick.Play()
End Sub
End Module
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kickfile("C:\Users\JeanneSky\Desktop\leo\Sounds\drumkit\KICK\GA005.wav")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PlaySoundFile("C:\Users\JeanneSky\Desktop\lalala.wav")
End Sub
End Class