VISUAL BASIC 6: Spustenie hudby cez Command

tom1597530

Dobrý deň. Potreboval by som vedieť, ako by som mohol spustiť zvuk tak, že kliknem na Command1 a ten spustí zvuk v C:\WINDOWS\Media\town.mid
bez toho aby spúšťalo akýkoľvek Player aby to len hralo a nič nové nespúšťalo. Ďakujem.

A ozaj, v Projecte chcem mat len Command1, teda ked sa to spusti, tak sa vobec nic nezmeni len proste niekde z pozadia zacne hrat hudba.

Dufam ze ma chapete. Dakujem.

manager666

Kód: Vybrať všetko

Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
       (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

   Sub PlaySound()
       If Application.CanPlaySounds Then
           Call sndPlaySound32("c:\win95\media\chimes.wav", 0)
       End If
   End Sub

nemam ako vyskusat, ci prehrava aj mid, ale myslim si, ze ano... Try it !

tom1597530

Pri tejto časti mi vypisuje chybu:

Kód: Vybrať všetko

Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
       (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

manager666

co keby si si niekedy aj precital, co obsahuje chybova hlaska ?

musis mat zadefinovane, aka ma byt funkcia, ci Private, Public, etc...
cely upraveny kod este raz, tentokrat vyskusany a nie iba stiahnuty z netu:

Kód: Vybrať všetko

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
       (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

   Sub PlaySound()
           Call sndPlaySound32("C:\Windows\Media\Windows XP Logon Sound.wav", 0)
   End Sub

Private Sub Command1_Click()
PlaySound
End Sub

ide tak prehrať aj mid? Viem že mid sa dá prehrať priamo cez mciSendCommand(). Vo winmm.dll je defaultne PlaySound() ktorá midi nevie prehrávať. Ty ju ale prekrývaš nejakou sndPlaySound32 ktorú nepoznám tak zato sa pýtam

manager666

sndPlaySound32 je totozna so PlaySound, cize ked tvrdis, ze mid nevie prehravat, tak to nepojde

pisal som, ze neviem, ci to prehrava a bol som lenivy to vyskusat alebo najst

kazdopadne spravna rada tu odznela od Teba, prehrat to cez mciSendCommand(), takze uz staci, aby si pan zakladatel nasiel syntax.

tom1597530

Len keby som vedel kde