mp3-filer og visual basic 6

Tags:    visual-basic

Hej Alle Sammen.

Hvordan kan man få et program til afspillede mp3-filer?

Hvordan kan man evt. afspillede wave-filer?

Hvis nogle har nogle gode til, hvordan man skal gemme i *.ico; *.bmp formålet er det velkommen.



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hej Alle Sammen.

Hvordan kan man få et program til afspillede mp3-filer?

Hvordan kan man evt. afspillede wave-filer?

Hvis nogle har nogle gode til, hvordan man skal gemme i *.ico; *.bmp formålet er det velkommen.



Hej!

Denne funktion burde gøre det:

Placeres i et Modul:

----------------------------------------------------------------------------------------------------

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

Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10

----------------------------------------------------------------------------------------------------

Kode der skal fx ind under formen når man klikker på Formen

Public Sub Form_Click
Dim SoundName$
Dim wFlags%

SoundName = "Denfildunuvilafspille.wav" 'Den burde virke med både .Wav og .MP3
wFlags = SND_ASYNC Or SND_NODEFAULT
X = sndPlaySound(SoundName$, wFlags%)
End sub

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site[Redigeret d. 23/01-03 15:39:45 af Andreas Hartvig(A.L.P)]



Hej hvis du vil afspille mp3 og wave filer nemt kan du gøre sådan her
Gå hen hvor du har din menu (hvor du kan indsætte billeder textboxe ovs.) højre klik og tyk på components
der finder du så "Windows media player"
så har du den i din programerings menu indsæt den i din form
hvis du skal afspille en fil wave eller mp3 indsæt koden her

'Hvor filen ligger
Mediaplayer1.filename = "C:\\windows\\skrivebord\\lyd.wav"
'Starter afspilninger
Mediaplayer1.play


Hilsen Emil Håber jeg får pointne



t