Conditionally load picture woes

[Incidental]

Hi there

I have run across a problem that has me stumped and I have spent the
last few days tinkering about trying to find out how get it to work
but to no avail so I have been trudging around the news groups trying
to find an answer and again I have come up empty handed and I am
starting to feel like this idea has a grudge against me.

Anywho my problem is thus I am trying to emulate the a mouse over
effect that can been seen in MS Media Player 11 when the mouse is
moved over an area a button appears and when you click the area
changes colour to show that button is the current selection, this is
easy enough to achieve but my problem is that when you move the mouse
over that selected button it will highlight the button to show a mouse
over effect.

Does anyone know anyway to conditionally load an image into an image
control? i.e

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Image1. picture = mypicture1.bmp then 'this bit seems to be the one
giving me the problems I can't figure out how to determine which .bmp
file is actually loaded.
Image1.picture = loadpicture("c:\somefolder\somepicture.bmp")
Else
Image1.picture = loadpicture("c:\somefolder\someotherpicture.bmp")
End if
End sub

Any help would be very gratefully appreciated as this is starting to
become my nemesis as I'm sure it will turn out to be something simple
that I just haven't thought of.

Thanks

S

 

[Bernie Deitrick]

I think you need to store the image name to be able to work with it: I'm not sure of the logic you
want to use for changing the picture, but.... Also, you may need additional control to prevent
refiring and quick changes of the picture.

Dim myImage As String

Private Sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If myImage = "" Then
Image1.Picture = LoadPicture("c:\somefolder\somepicture.bmp")
myImage = "c:\somefolder\somepicture.bmp"
Exit Sub
End If

If myImage = "c:\somefolder\somepicture.bmp" Then
Image1.Picture = LoadPicture("c:\somefolder\someotherpicture.bmp")
myImage = "c:\somefolder\someotherpicture.bmp"
Else
Image1.Picture = LoadPicture("c:\somefolder\somepicture.bmp")
myImage = "c:\somefolder\somepicture.bmp"
End If
End Sub

HTH,
Bernie
MS Excel MVP

 

[Incidental]

Hi Bernie

Thanks for the help it's much appreicated, i have been pulling my hair
out with this one... will give your code a run through as soon as i
get a chance thanks again

Steven