Created
July 8, 2021 02:13
-
-
Save vbcupu/24e31842f4e1b0e20829491cd733fd69 to your computer and use it in GitHub Desktop.
pemutar file wav dengan vb6
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Private Const SND_APPLICATION = &H80 ' look for application specific association | |
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry | |
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier | |
Private Const SND_ASYNC = &H1 ' play asynchronously | |
Private Const SND_FILENAME = &H20000 ' name is a file name | |
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound | |
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file | |
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found | |
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound | |
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy | |
Private Const SND_PURGE = &H40 ' purge non-static events for task | |
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom | |
Private Const SND_SYNC = &H0 ' play synchronously (default) | |
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long | |
Private Sub cmdOpenFile_Click() | |
cb1.ShowOpen | |
txtLoadFile.Text = cb1.FileName | |
End Sub | |
Private Sub cmdPutar_Click() | |
If Len(txtLoadFile.Text) = 0 Then MsgBox ("File Path Kosong"): Exit Sub | |
PlaySound txtLoadFile.Text, ByVal 0, SND_FILENAME Or SND_ASYNC | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment