25/10/06 10:11
DarkKnight
...ma hai fatto sì che ogni volta ke esegui un suono poi chiudi l'oggetto? non è che puoi postare il codice, in modo da esserti più d'aiuto?
aaa
26/10/06 20:56
trakstor
Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Ret As Long
Dim a As String
a = "C:\Documents and Settings\administrator\Desktop\prog\simone\PROG\scream.wav"
Ret = sndPlaySound(a, SND_ASYNC)
Select Case KeyCode1
Case vbKey1
Command2.Caption = a
End Select
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Case vbKey1
Command1.Caption = a
End Select
end sub
aaa
27/10/06 11:15
DarkKnight
...guarda ke così facendo prendi solo un suono e indipendentemente dal tasto suoni solo quello...dovresti fare un array di stringhe con i vari percorsi e poi in base al tasto(ad esempio usando un case x: ) apri il suono
aaa
03/11/06 8:26
DarkKnight
allora...te fai un array di stringhe, dove in ogni stringa metti il percorso ke ti serve ok? poi fai un Case vbKey e li vedi in base al tasto premuto imposti il percorso su una variabile, esemio PathSuono. Una volta finito il case, fai partire il file, il cui percorso è nella variabile...
aaa