Windows lyd i VB

Jeg ved at der er en command som hedder beep, som gør at programmet kommet med et lille beep.... er der også en command, så programmet spiller windows staart lyden???

Ja, jeg kender ikek ligen ogle komandoer ,emn via lidt api kald, så kan du !

Dette skal placeres i et modul:
<pre>
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
</pre>

Her kommer så selv koden du skal skrive for at få lyd!
<pre>
lngX = PlaySound("Filen der skal afspilles", lngZX1, lngZX2)
'(lgnx,lngzx1,lngzx2 er alle af typen long)

eller

Call PlaySound("Filen der skal afspilles", 0, 0)
</pre>


mvh.
Thomas Christensen

Lad os sige, at du starter et nyt Standard EXE projekt i VB, for at gøre det enkelt. Form1 skal have følgende kode:
<pre>Option Explicit ' not strictly necessary, but recommended

' Deklarer API-funktion til afspilning af wave-lyd...
Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

' Deklarer konstanter til API-kald...
Private Const SND_ALIAS = &H10000
Private Const SND_ASYNC = &H1 ' fortsætter execution med det samme
Private Const SND_SYNC = &H0 ' venter med execution til lyd færdig

Private Sub Form_Load()

PlaySound "systemstart", Me.hWnd, SND_ALIAS Or SND_ASYNC

End Sub</pre>

Strengen SystemStart i eksemplet er defineret i Windows registreringsdatabasen, så funktionen afspiller den lyd, der hører til denne hændelse. SND_ALIAS fortæller PlaySound, at navnet refererer til en system-hændelse istedet for et filnavn. Andre hændelser, er f.eks. SystemExit, MenuCommand, og Minimize. Du finder alle disse såkaldte hændelser under HKEY_CURRENT_USER\\AppEvents\\EventLabels i registreringsdatabasen.

Software is here and now but rock and roll is forever.

Jeg ved at der er en command som hedder beep, som gør at programmet kommet med et lille beep.... er der også en command, så programmet spiller windows staart lyden???

Ja, jeg kender ikek ligen ogle komandoer ,emn via lidt api kald, så kan du !

Dette skal placeres i et modul:
<pre>
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
</pre>

Her kommer så selv koden du skal skrive for at få lyd!
<pre>
lngX = PlaySound("Filen der skal afspilles", lngZX1, lngZX2)
'(lgnx,lngzx1,lngzx2 er alle af typen long)

eller

Call PlaySound("Filen der skal afspilles", 0, 0)
</pre>


mvh.
Thomas Christensen

Den kommer stadig bare med ding lyden...