[AccessD] Embedding a WAV file

Darren DICK d.dick at uws.edu.au
Tue Mar 1 19:18:56 CST 2005


Hi Rocky
I have a folder in the App home folder for sounds. Also one for Images and
Skins etc
EG
C:\Program Files\My app will be the 'home' folder
And in it will be 
C:\Program Files\My app\Sounds (About 5 or 6 files in here)
C:\Program Files\My app\Images (3 more folders and about 20 files in here)
C:\Program Files\My app\Skins (1 folder (but it can grow) and many files in
here)

I install them when I install the app.
They are my 'standard' folders and files and go with every app.
And I refer to them now by heart with lines like 
(I actually use globals for the length of the session But can be done at a
form Sub level just as easy)
EG
Dim strSkinToUse as String
Dim strSkinFolder as String
Dim strImagesFolder as String

strSkinToUse = Dlookup("[SkinName]","tblOptions")
strSkinFolder = Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name)) - 1) & "\Skins\" & strSkinToUse 
strImagesFolder= Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name)) - 1) & "\Images"
strSoundsFolder= Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name)) - 1) & "\Sounds"

Then I refer to each skin component like.....('Cause I know 'em off by
heart)

Me.picture =  strSkinFolder  & "\Background.jpg"
Me.imgMyLogo = strImagesFolder & "\OurLogo.jpg"

I use the API code "PlaySound" for Playing Sounds
Eg 
Private Sub Form_Load()
	PlaySound (strSoundsFolder & "\Logon.wav")
End sub

It works and is pretty simple.

HTH

See ya

Darren




More information about the AccessD mailing list