🚀 go-pugleaf

soundplay routine :

sound playen :
    PlayResWav bytY, "STARTUP"

bytY is een getal van het type BYTE
"Startup" is een group van een resource file
gebruik de resource editor van VB om deze te maken



--- begin bas file
Attribute VB_Name = "SoundSup"
Option Explicit
'changed declaration
Public Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (lpszSoundName As Byte, ByVal uFlags As Long) As Long

'sndPlaySound  flag values for uFlags parameter
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4

Private SoundArray() As Byte

Public Sub PlayResWav(bResIndex As Byte, sFormat As String)
   
  SoundArray = LoadResData(bResIndex, sFormat)
  sndPlaySound SoundArray(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY

End Sub

Public Sub PlayResWavInSync(bResIndex As Byte, sFormat As String)
' sync play
    
    SoundArray = LoadResData(bResIndex, sFormat)
    sndPlaySound SoundArray(0), SND_SYNC Or SND_NODEFAULT Or
SND_MEMORY

End Sub
--- end bas file ----







On Sun, 07 May 2000 18:15:26 +0200, K-n0w <k@skynet.be> wrote:

>Hey,
>
>Ik ben een spel aan het schrijven, en nu zou ik daar dus graag wat sound
>aan toevoegen. Wat ik dus zoek is een OCX, die meer dan 4 kanalen
>ondersteund en de geluiden uit geheugen en niet van harddisk leest.
>
>
>Bij voorbaat bedankt,
>Steven

Avenger

remove  the obvious from e-mail
----------------------------------------------
Windows9x Faq : www.crosswinds.net/~windows9x
----------------------------------------------
Till all are one!