al3x90 (Normal User)
Rookie
Messaggi: 41
Iscritto: 24/04/2009
|
Ciao a tutti!
Esiste un modo per riprodurre suoni wav in visual basic 6?
Se si...Come faccio a far partire un suono, ad esempio quando clicco su una button?
Grazie =)
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
usa l'mmcontrol...(googla per info)
|
|
al3x90 (Normal User)
Rookie
Messaggi: 41
Iscritto: 24/04/2009
|
Ho inserito questo codice in "(generale)":
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
E quest'altro nel form che m'interessa che il suono venga riprodotto:
Private Sub Form_Load()
PlayWAV ("c:\prova.wav")
End Sub
Nel momento dell'esecuzione, quando carico il form mi esce il seguente errore:
Errore di compilazione:
Sub o function non definita
nn riesco a uscirne fuori
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da al3x90:
Ho inserito questo codice in "(generale)":
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
E quest'altro nel form che m'interessa che il suono venga riprodotto:
Private Sub Form_Load()
PlayWAV ("c:\prova.wav")
End Sub
Nel momento dell'esecuzione, quando carico il form mi esce il seguente errore:
Errore di compilazione:
Sub o function non definita
nn riesco a uscirne fuori |
Mi sembra logico. La sub PlayWAV non è dichiarata da nessuna parte. Credo che tu volessi scrivere PlaySound invece, quindi:
Codice sorgente - presumibilmente Visual Basic 6 |
Private Sub Form_Load()
PlaySound("c:\prova.wav")
End Sub
|
|
|
al3x90 (Normal User)
Rookie
Messaggi: 41
Iscritto: 24/04/2009
|
E tutto liscio mica poteva andare
Come carico il form in esecuzione mi da
"argomento non facoltativo"
E mi da errore in
Private Sub Form_Load()
Ultima modifica effettuata da al3x90 il 01/05/2009 alle 15:26 |
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da al3x90:
E tutto liscio mica poteva andare
Come carico il form in esecuzione mi da
"argomento non facoltativo"
E mi da errore in
Private Sub Form_Load() |
Eh, si. Perchè mancano due parametri da fornire alla funzione.
Se guardi su questo link trovi la descrizione di tutti i possibili flags con la relativa funzione e anche qualche esempio
http://www.vbscuola.it/toolbox/playsound.htm |
|
al3x90 (Normal User)
Rookie
Messaggi: 41
Iscritto: 24/04/2009
|
Ancora una domanda
Ho inserito questa parte di codice nel form_load
Call PlaySound("C:\prova.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC)
E il suono viene riprodotto! =)
Però.......Scusami ancora e scusa la mia pessima preparazione...Ma sono alle prime armi, e alcuni concetti mi sono chiari, altri no...
Io come in un precedente post (al quale hai risolto tu la mia domanda ) avevo chiesto come facevo a visualizzare un messaggio in una text, io ora però vorrei mandare in play il suono al posto della text.... SI quando apro il form (form2) ... Ma anche se viene soddisfatta una condizione...
Il codice da me realizzato è questo...
Private Sub Option22_Click()
If Option22 = True Then form2.Call PlaySound("C:\prova.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC)
Dove sbaglio?!
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da al3x90:
scusa la mia pessima preparazione |
Non preoccuparti Nessuno nasce imparato
Comunque tornando al problema, non ho capito molto bene. Vuoi che quando si clicca un Option parta la musica? |
|
al3x90 (Normal User)
Rookie
Messaggi: 41
Iscritto: 24/04/2009
|
In effetti.....
Ehm...Non esattamente
Quando la option è selezionata, vorrei che il suono venga eseguito quando andrò ad aprire un determinato form...
Se la option è deselezionata, il suono non dev'esserci...
Così come ho fatto con la textbox:
If Option1 = True Then form2.Text1.Text = "pippo"
Solo che anzichè visualizzare la scritta "pippo", voglio che parta il suono, una volta aperto il form2
Ultima modifica effettuata da al3x90 il 01/05/2009 alle 16:53 |
|