Crea con notepad un file con estensione .rc, ad esempio
music.rc
e scrivici dentro la linea
100 SOUND MOVEABLE "TUOFILE.WAV"
ovviamente inserendo il nome del tuo file al posto di TUOFILE.WAV
Avrai quindi in una cartella i file
music.rc
tuofile.wav
A questo punto esegui da DOS (nella cartella in cui ci sono i due file)
il compilatore delle risorse (che dovrebbe stare nella cartella Wizards del VB6)
C:\Programmi\Microsoft Visual Studio\VB98\Wizards\rc music.rc
e dovresti ottenere il file
music.res
A questo punto, nel tuo programma VB, tasto destro sul progetto,
Inserisci
File Risorse
e indichi il file music.res appena ottenuto
Inserisci un pulsante e il codice
Private Const SND_ASYNC As Long = &H1
Private Const SND_MEMORY As Long = &H4
Private Const SND_NODEFAULT = &H2
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
Dim b As String
b = StrConv(LoadResData(100, "SOUND"), vbUnicode)
sndPlaySound b, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub
e hai risolto.
|