[VB6] Aggiungere audio ad una propria applicazione

[anto.spax]

Come faccio ad aggiungere suoni simpatici alle mie applicazioni? Tipo quando premo un pulsante si sente un suono carino...che però non si sovrapponga ai suoni standard di window che partono per esempio con le msgbox... Spero di essere stato chiaro...

[yyzyyz]

nel modulo vb6

Const SND_ASYNC = &H1

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal _
    lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

' Play a WAV file.
'
' FileName is a string containing the full path of the file.
' If SyncExec is True, the sound is played synchronously
' Returns True if no errors occurred

Function PlayWAV(FileName As String, Optional SyncExec As Boolean) As Boolean
    If SyncExec Then
        ' play the file synchronously
        PlayWAV = PlaySound(FileName, 0, 0)
    Else
        ' play the file asynchronously
        PlayWAV = PlaySound(FileName, 0, SND_ASYNC)
    End If
End Function

evento nel form

Private Sub Command1_Click()
PlayWAV ("c:\1.wav")
End Sub

Private Sub Command2_Click()
PlayWAV ("c:\1.wav")
x = MsgBox("wav ok", vbQuestion)
End Sub

[anto.spax]

Ok grazie, suppongo che in winmm.dll ci sia un elenco di suoni riproducibile. Vero?

[yyzyyz]

:master: no , veramente è una libreria di windows ke si okkupa di riprodurre suoni in formato .wav, poi nn so se la libreria puo' aprire anke altri tipi di file. ciao

[anto.spax]

Ho capito...ma se io riproduco un suono, quando distribuisco il mio programma devo fornire anche quella libreria, oppure è già su tutte le piattaforme window sotto lo stesso percorso? Allo stesso modo c'è un elenco di suoni standard per tutti i computer, senza bisogno di dover fare il pacchetto installazione....mi fa diventare matto!!! VVoVe:

[yyzyyz]

secondo me l'ideale è ke tu ti faccia i tuoi suoni personalizzati senza usare quelli di win, e poi li includa nel pakketto d'installazione , richiamandoli in questo modo:

facciamo il caso ke tutti i tuoi campioni/suoni siano nella sottocartella "wav" presente nel tuo programma.

PlayWAV (App.Path & "\wav\1.wav")

[anto.spax]

ok, perfetto, ma quando lo distribuisco devo inserire anche la libreria per i suoni...perchè non saprei dove metterla!!!

[yyzyyz]

no , devi solo aggiungere i file .wav (suoni) nel pakketto di installazione.

[anto.spax]

Help!! confused:
Ho provato a costruire una form con due pulsanti per far partire due suoni diversi, come prova, ma mi da errore il codice che mi hai postato, nella riga di PlaySound, all'interno di fuction PlayWAV. Mi dice che playsound non è definito, ti dispiacerebbe trovare l'errore per me?!? Perchè io di sto codice non ci capisco proprio niente... Non ho mai usato i suoni, ma mi piacerebbe iniziare.... GRAZIE10000.. :

[oregon]

Non e' questione di suoni ...

Hai incluso questa dichiarazione

Private Declare Function PlaySound _
Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long


?