Guida n questo breve articolo vedremo come eseguire un suono in un'applicazione

[DarkPako]

In questo breve articolo vedremo come eseguire un suono in un'applicazione

Per eseguire un suono nel vostro programma fatto in VB6 basta incollare in un modulo il seguente codice:

1.
Option Explicit
2.
Declare Function PlaySound Lib "winmm" Alias "PlaySoundA" _
3.
(ByVal szName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
4.

5.
Public Const SND_SYNC = &H0
6.
Public Const SND_ASYNC = &H1
7.
Public Const SND_FILENAME = &H20000
8.
Public Const SND_LOOP = &H8

Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerProc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Per eseguire il suono basta invece scrivere la seguente riga di codice:

1.
PlaySound "PERCORSO" 0, SND_FILENAME Or SND_SYNC

Dove PERCORSO, è il percorso del file da eseguire.
Alcuni suoni che potrebbero servirvi si trovano nella cartella "C:/Windows/Media/".

Buon lavoro

fonte: web

 

[crokki95]

Bravo

 

[DarkPako]

Grazie

 

[Max090]

Xke tante cose quando basta aggiungere un controllo wmp windows media player cmq bravo