[mbs]

This bit of code gives me an error:
Object variable or With block not set

Private Sub mnuExit_Click()
ExitAndCloseNicely
End Sub

Private Sub ExitAndCloseNicely()
If p.PlayState = mpPlaying Then p.Stop
Set p = Nothing
Unload Me
End
End Sub

There is no where else in the code that
would set p=nothing.

Also, I don't get the error and the sound stops
properly if I close using the X in upper right corner.

Need help plz.

[tody4me]

add if not p is nothing before your if p.playstate = mpplaying statement. What's happening is p is nver set to anything to begin with when the error occurs.

[Traconesu]

tody4me, on 23 Apr, 2007 - 06:16 AM, said:

add if not p is nothing before your if p.playstate = mpplaying statement. What's happening is p is nver set to anything to begin with when the error occurs.

I think the missing object variable is probably your p but it looks like you are calling your mediaplayer p and maybe did not change the name of the player to p but instead left it MediaPlayer1

If p.PlayState = mpPlaying Then p.Stop
p.FileName = ""
End

Or if you did not wish to change the name of the player object then:

If MediaPlayer1.PlayState = mpPlaying Then MediaPlayer1.Stop
MediaPlayer1.FileName = ""
End

The default name for the old media player is MediaPlayer1.
If you are using a newer media player then it will be called WindowsMediaPlayer1, and the properties you are tring to use to control your player will not be valid.

[mbs]

Thanks for your time answering ;)
I'm sorry for not saying this before:
I project - reference msdxn.ocx

'In Gen Dec I use
Private WithEvents p As MediaPlayer.MediaPlayer

'And p is set in Form Load
'start intro sound
Set p = New MediaPlayer.MediaPlayer
p.Open gPath & "Sound\Intro.mp3"

Sound plays fine during first part of game,
p_endofstream loops it fine,
and when the intro part of game is done and
the action part begins sound stops properly
using only p.stop. So its definitely set already.

I get the error if I quit the game while the sound
is currently playing. And I don't know why.

That Exit procedure is the only place in the program
that sets it to nothing.

Any more ideas? LOL
Thanx again
MaryBeth