Resorce i VB

G'morn
Jeg har ikke et svar men er blot nysgærig, mener du en recorder - funktion?

mvh Jan

Nej.. Et program som afspiller en baggrunds musik og hvis brugeren gerne vil have musikken ud og afspille den uden mit program, skal man kunne det...

Er baggrundsmusikken ikke tilstæde som en ekstern resource for dit program?

Nej. Den er i mit program. Jeg kunne godt tænke mig at gøre sådan at man kan tage musik filen ud, hvis man gerne vil høre den uden mit program...

Ok... Hvordan er musikken intigreret i dit program?

Via resorce editor i VB 6.0 og koden til at afspille den:

'Denne kode er nogle globale deklariationer som du putter ind i et modul (.bas)

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0    ' Afspil synkront (default)
Public Const SND_ASYNC = &H1  ' Afspil asynkront
Public Const SND_MEMORY = &H4  ' Afspil fra Hukommelse (fra en String)
Public Const SND_LOOP = &H8    ' loop afspilning indtil næste sndPlaySound kommando
Public Const SND_NOSTOP = &H10 ' Stop ikke nuværende afspilning

'Herefter sætter du dette ind i en form med 2 Commandbuttons

Option Explicit

Dim Adresse As String
Dim Flag As Long

Private Sub PlayResSound(Res_Id As String, File_Type As String)
    On Error GoTo ErrHand
    Adresse = StrConv(LoadResData(Res_Id, File_Type), vbUnicode)
    sndPlaySound Adresse, Flag
    Exit Sub
ErrHand:
    MsgBox "Kan ikke afspille lyden"
End Sub

Private Sub Command1_Click()
    Flag = SND_ASYNC Or SND_MEMORY
    Call PlayResSound("LYD1", "WAVE")
End Sub

Private Sub Command2_Click()
    Flag = SND_ASYNC Or SND_MEMORY
    Call PlayResSound("LYD2", "WAVE")
End Sub

Private Sub Form_Load()
    Flag = SND_ASYNC Or SND_MEMORY
    Call PlayResSound("LYD1", "WAVE") 'her afspilles lyd 1 ved start af program
End Sub

Sorry: Resorce Editor = Resource Editor

LYD1 og LYD2, er det oprindeligt fra wave filer (eller lignende)?

jep wave filer...

Hva' så med at distribuere dem som zip filer placeret i en folder i -> app.path & "\zwavs" f.eks. <- altså simpelt hen have dem med i programmets setup program?

Har jeg tænkt over. Men jeg vil gerne have filerne ind i programmet. Da det nu er et joke program jeg vil lave, så vil det ikk være det godt at have lyd filerne læggene løst... Håber du forstår...

Du kan jo gemme filerne bed et dummy extension (f.eks. *.dmy) derved kan ingen jo vide hvad de filer er beregnet til. Endvidere kan de gemmes i f.eks. c:\win eller et vilket som helst sted!

Tænker over det...

Lukker her... Lader bare ver med at trække filen ud...