Re: Geluid in VB

Article View: be.comp.programming

Article #12902

Back to be.comp.programming Previous Next

#12902

From: suzuki
Date: Mon, 20 Dec 1999 00:00

20 lines
1360 bytes

Johan heeft geschreven in bericht <83i8of$ar1$2@news1.skynet.be>...
>Wat is de meest eenvoudige manier om in VB6 geluiden toe te kennen bij het
>klikken op een command button (vb.: een .wav bestandje)?

Dit is het makkelijkste wat ik vond:

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Private Sub CmdPlay_Click()
    Dim SoundFile As String, ReturnLength As Long
    SoundFile = "c:\blah.wav"
    result = sndPlaySound(SoundFile, 1)
End Sub

Gewoon formpje aanmaken, button erop (cmdPlay) en SoundFile ="......" goed
zetten.

Technical Details

Message-ID: <83m426$6qr$1@newnews1.news.nl.uu.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <83i8of$ar1$2@news1.skynet.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,5ecfac1f60203822
X-Google-Attributes: gidfcea4,public
X-Google-Thread: 111c4c,5ecfac1f60203822
X-Google-Attributes: gid111c4c,public
From: "suzuki" <suzuki@village.uunet.be>
Subject: Re: Geluid in VB
Date: 1999/12/20
Message-ID: <83m426$6qr$1@newnews1.news.nl.uu.net>
X-Deja-AN: 563123885
References: <83i8of$ar1$2@news1.skynet.be>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
X-Complaints-To: abuse@nl.uu.net
X-Trace: newnews1.news.nl.uu.net 945722246 7003 194.7.1.25 (20 Dec 1999 20:37:26 GMT)
Organization: UUNET-NL (http://www.nl.uu.net)
NNTP-Posting-Date: 20 Dec 1999 20:37:26 GMT
Newsgroups: be.comp.programming,be.comp

Reply to Parent Message