Har kollar runt, men hittar ingen hjälp som löser mitt problem.
Har aldrig tidigare jobbat med Resource File, men någongång skall ju vara den första.
Har hittat Resource Editorn och lagt till ett antal wav-filer. De får ju ett id-nummer ifrån 101,102 osv.
Men hur skall jag kunna utnytja det här???
Normalt så laddar jag in wav-filerna så här:
<code>
Set CardSound = CreateSound("card.wav") '1
Set IllegalMoveSound = CreateSound("illegal.wav") '2
Set BeginMoveSound = CreateSound("Beeth5th.wav") '3
Set VinstSound = CreateSound("Trumpet3.wav") '4
Set LoseSound = CreateSound("siren.wav") '5
Set GrattSound = CreateSound("applause.wav") '6
Set StopSound = CreateSound("skid.wav") '7
Set SlutSound = CreateSound("uhh.wav") '8
</code>
Jag vet att jag skall använda mig av LoadResData , men hur??

Hej
I Vb för nybörjare disskuterar Vi jus detta, så här blev svaret igår
Kolla Programarkivet:Metronom Ny och Programarkivet:Metronom Ny
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
'************ General Modul ***************
Const SND_ASYNC = &H1 ' play asynchronously
Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Const SND_SYNC = &H0 ' play synchronously (default)
Dim SoundBuffer As String
'************ Form_Loadl ***************
SoundBuffer = StrConv(LoadResData(101, _
"CUSTOM"), vbUnicode) ' i Form_Load
'************ i någon Subrutin ***********
Dim Ret As Long
Ret = PlaySound(SoundBuffer, 0, SND_ASYNC _
Or SND_MEMORY Or SND_NOSTOP)
/Sven

Du kan ju berätta vad du får CreateSound() från och hur den ser ut.

Ups, jag gav visst lite för lite info, sorry.
Det handlar om DirectX7.

Jag hittade en artikel på nätet, men där behandlade man iconer.

"Command1.Picture = LoadResPicture(102, vbResIcon)"
Då försöker jag att "översätta" detta till wav.

Set CardSound = CreateSound(LoadResData(101, "CUSTOM"))
men då får jag fel.
Vad tror ni?

Finns en artikel på Lucky's VB Gaming site:


http://rookscape.com/vbgaming/tutP.php