Very, very, very new user needs help.

[Jack Sadie]

I am using Windows XP and I have found out how to substitute my own wav
sound for the Microsoft default sound when my computer starts, but now I
want to go a step further. I have created 7 different wave files

(C:\Start sound\day1.wav to C:\Start sound\day7.wav respectively)

and want to have a different one open according to the day of the week - the
"day1.wav" opening on Mondays and the "day2.wav" on Tuesdays and so on.

I have downloaded Visual Basic Express edition but I need to have a routine
created which I don't have the expertise to do.
I was very kindly given the following routine in a VB6 ng but because it
won't work in the Express Edition, they advised me to try a dotnet group for
the correct code. I have included it below because it just might be easily
amended by someone who is familiar but it may need to be completely
re-composed.

Can any kind person assist or point me in the right direction if this is the
wrong ng.
Thanks so much.
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Long) As Long
Dim myDate As String

Private Sub Form_Load()

myDate = Format(Now, "dddd")
Debug.Print myDate
Select Case myDate
Case "Monday"
Call sndPlaySound("C :\start sound\day1.wav" , 1)
Case "Tuesday"
Call sndPlaySound("C :\start sound\day2.wav" , 1)
Case "Wednesday"
Call sndPlaySound("C :\start sound\day3.wav" , 1)
Case "Thursday"
Call sndPlaySound("C :\start sound\day4.wav" , 1)
Case "Friday"
Call sndPlaySound("C :\start sound\day5.wav" , 1)
Case "Saturday"
Call sndPlaySound("C :\start sound\day6.wav" , 1)
Case "Sunday"
Call sndPlaySound("C :\start sound\day7.wav" , 1)
End Select
End Sub
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk

[Armin Zingler]

"Jack Sadie" <ja*******@btin ternet.com> schrieb

Tried to add application to start menu, but trouble is I don't
really know which file to add. Could it be one called
WindowsApplicat ion1.vbproj ? That's the one I used.

I thought you know that applications are Exe files. Add a link to
WindowsApplicat ion1.exe (it's in the 'bin' sub folder of your project) to
the start menu, but before doing this I suggest to solve the problem. If it
doesn't work in the IDE, it also won't from the start menu.
Changed line as requested - no message true or false.
I missed an important point. Change the line
Private Sub Form_Load()
to
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArg s) _
Handles MyBase.Load

Now it should work. Don't forget to build the exe before adding it to the
start menu, but this is done anyway if you first test it in the IDE.
Rebooted but still no sound. I think I may delete all and start again
taking more trouble to record file names and their location.
In any case I'm leaving London tomorrow for a couple of days to Stratford
on Avon to see some plays at the Shakespeare Theatre.

Have a nice time. :-)
Armin