---

Hej.
Hvordan kan man afspille en lydfil i et VB program ?
mvh Rasmus

---

Indsæt MS Mediaplayer, og sæt nogle prop. for dette objekt. Så spiller det,
midi, wav, og hvad den ellers understøtter.

"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> wrote in message
news:a3p95e$30b$1@sunsite.dk...
> Hej.
> Hvordan kan man afspille en lydfil i et VB program ?
> mvh Rasmus
>
>
>

---

> Indsæt MS Mediaplayer, og sæt nogle prop. for dette objekt. Så spiller
det,
> midi, wav, og hvad den ellers understøtter.

hvordan ?
mvh Rasmus

---

"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a3p95e$30b$1@sunsite.dk...
> Hej.
> Hvordan kan man afspille en lydfil i et VB program ?
> mvh Rasmus
>
>
>


For at afspille .wav filer kan du gøre følgende:

Put det her i et modul:

Public Declare Function sndPlaySound Lib "winmm" Alias_
"sndPlaySoundA" (ByVal lpSound As String, ByVal flag_
As Long) As Long
Public Const sndSync = 0
Public Const sndAsync = 1

For at afspille en lyd når der trykkes på en knap:

Private Sub Command1_Click()
Dim RV As Long
RV = sndPlaySound(Filnavn, sndAsync)
End Sub

Hvis du bytter sndAsync ud med sndSync, vil programmet ikke køre videre
indtil lyden er færdig.

Jacob V.

---

> Put det her i et modul:
>
> Public Declare Function sndPlaySound Lib "winmm" Alias_
> "sndPlaySoundA" (ByVal lpSound As String, ByVal flag_
> As Long) As Long
> Public Const sndSync = 0
> Public Const sndAsync = 1
>
> For at afspille en lyd når der trykkes på en knap:
>
> Private Sub Command1_Click()
> Dim RV As Long
> RV = sndPlaySound(Filnavn, sndAsync)
> End Sub

Jeg kan ikke få din kode til at virke !
mvh Rasmus

---

> Jeg kan ikke få din kode til at virke !
> mvh Rasmus
>
>

hmmm, mystisk. Kommer den med nogle fejlmeddelelser eller kommer der bare
ikke nogen lyd?

---

> hmmm, mystisk. Kommer den med nogle fejlmeddelelser eller kommer der bare
> ikke nogen lyd?

Når jeg forsøger at køre programmet skriver den:

Compile eror:

Expected: end of statement

og mærkere ordet Alias_ module1

mvh Rasmus

---

"Rasmus Ladekjær Pedersen" <ilmabg@hotmail.com> wrote in message
news:a4e35a$sib$1@sunsite.dk...
> > hmmm, mystisk. Kommer den med nogle fejlmeddelelser
> > eller kommer der bare ikke nogen lyd?
>
> Når jeg forsøger at køre programmet skriver den:
>
> Compile eror:
>
> Expected: end of statement
>
> og mærkere ordet Alias_ module1
>
> mvh Rasmus
Hej Rasmus

Kompileren siger jo præcis, hvad fejlen er den kender ikke
Alias_ (der skal nemlig være et mellemrum imellem).
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpSound As String, ByVal flag _
As Long) As Long

Det vil sige et mellemrum imellem "Alias" og "_" og imellem
"flag" og "_".
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum

---

> Kompileren siger jo præcis, hvad fejlen er den kender ikke
> Alias_ (der skal nemlig være et mellemrum imellem).
> Public Declare Function sndPlaySound Lib "winmm" Alias _
> "sndPlaySoundA" (ByVal lpSound As String, ByVal flag _
> As Long) As Long
>
> Det vil sige et mellemrum imellem "Alias" og "_" og imellem
> "flag" og "_".

Hej igen!
Nu skriver den:

Compile error:

Variable not defined

og mærkere "sndAsync"
mvh Rasmus

---

"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a4h0mf$rue$1@sunsite.dk...
> Nu skriver den:
>
> Compile error:
>
> Variable not defined
>
> og mærkere "sndAsync"

Har du husket at deklarere de konstanter, der bruges ...?

Public Const sndAsync =

osv....

--
mvh
Jens Vestergaard
www.railsoft.dk

---

> Har du husket at deklarere de konstanter, der bruges ...?
>
> Public Const sndAsync =
>
> osv....
>

Hvordan det ?
mvh Rasmus

---

Prøv at læs min post fra den 8/2 igen... Der står hvad du skal gøre!

Jacob V.

-------------------------------
"Rasmus Ladekjær Pedersen" <ladekjaer@get2net.dk> skrev i en meddelelse
news:a4j36h$qll$1@sunsite.dk...
> > Har du husket at deklarere de konstanter, der bruges ...?
> >
> > Public Const sndAsync =
> >
> > osv....
> >
>
> Hvordan det ?
> mvh Rasmus
>
>

---

> Prøv at læs min post fra den 8/2 igen... Der står hvad du skal gøre!
>
> Jacob V.

Hej igen.
Mange tak for de mange svar. Nu virker det endelig.
Mange tak for din tolmodighed !
mvh Rasmus.