Can someone please look at this...

[mercedes]

Hi there..


Im attempting to load pictures within the same hotspot..using a select case..I'm using the select case for KeYID 105 for keyguard..Its the double click one..Anyways keeping that aside..My code for select case is wrong..

I am double clicking a small hotspot in attempt to load a bigger description of it..above it..I am trying to use the same hotspot to load all descriptions ..

So i you double click say the small picture of a can..Then a bigger picture of a can will load above it..If you double click another small picture...a bigger picture of that one will load in the same one as the last one..[The big picture of the can]..

Here is my code..

Code: Select all

CurrentFrame=Action.GetCurrentFrameName

Select Case CurrentFrame

Case "Living Room_Revised"
   
 Select Case KeyID(0)


Case 105
      
       Hotspot(4).visible = True
      Action.LoadAPicture Hotspot(20), "PictureBoxObject_Spraycan.bmp"
      Hotspot(20).move 201*15,131*15,369*15,395*15
      Action.LoadAPicture Hotspot(22), "CloseWindow.bmp"
      Component("KeyGuard").Object.EnableHotSpot 22
      
Case 105
      
       Hotspot(3).visible = True
      Action.LoadAPicture Hotspot(20),"PictureBoxObject_tweezers.bmp"
      Hotspot(20).move 201*15,131*15,369*15,395*15
      Action.LoadAPicture Hotspot(22), "CloseWindow.bmp"
      Component("KeyGuard").Object.EnableHotspot 22
End Select
End Select
End Sub




...It doens't matter which one i double click..im only getting the can one coming up..no matter which small picture I double click..

I was told i needed no variables..that hotspot.tag was the answer..Only i'm at a loss as to what to do now....I'm a bit frustrated with it now..been on it for days...but i'm stubborn and want to use this feature....

I have nothing in the advance tab nor do i have any variables..

I"ve also tried HOTSPOT(4).TAG = TRUE..
Also tried using If statement with the hotspot.tag or hotspot.visible...


Any ideas..?

THanks in advance for any help..

[juhuwoorps]

don't know to fix your prob. but every double click you have there's a "one click" before. Perhaps you have a look at this!

Waiting for answer!

[mercedes]

I don't understand what you mean Juhu...can you explain please....Not sure what you mean by "oneclick" before..

[juhuwoorps]

ok.this is a code for keyguard
if I understand it right.
You have 2 cases witch work for the same.(case 105 and case 105)
Is this ok?
What do you want to do with this code?

[mercedes]

Yes that looks funny to me too...but its the double click function I want...which is KeyID 105

I"m attempting to load pictures after double clicking small ones...You double click the small ones..and a big picture of its description pops up...AND..i want to do this with all of them...within the same hotspot..

In other words..Double click the can in hotspot(4) Load its description in hotspot(20)

Double click the tweezers in hotspot(3) Load its description again in hotspot(20)...The previous description will be gone...this one is replacing it..Also there is a closeWindow picture as well that loads with the descriptions..

THanks..!~

[Lyberodoggy]

You can't select the same case twice... you need to create another variable to define the case

[mercedes]

Hi there... Thanks for Response..

ya that looked funny to me too...This is what I have now..and it works....

Only it seems like the long way..I mean I have to have my calculator out..lol..

Also, I've used no variables...and I removed the second case..Thats what was messing it up..but i couldn't make sense of it..without it either..[without variables] or an if statement

Code: Select all

CurrentFrame=Action.GetCurrentFrameName

Select Case CurrentFrame

Case "Living Room_Revised"
   
 Select Case KeyID(0)
             
             
         Case 105
      If Hotspot(4).visible = True and Xpos >=102 and Xpos <=168 and Ypos >= 637 and Ypos <=688 Then
      Action.LoadAPicture Hotspot(20), "PictureBoxObject_Spraycan.bmp"
      Hotspot(20).move 201*15,131*15,369*15,395*15
      Action.LoadAPicture Hotspot(22), "CloseWindow.bmp"
      Component("KeyGuard").Object.EnableHotSpot 22
      
      End If
   
      If Hotspot(3).visible = True and Xpos >= 22 and Xpos<=88 and Ypos >= 637 and Ypos<=688 Then
      Action.LoadAPicture Hotspot(20),"PictureBoxObject_tweezers.bmp"
      Hotspot(20).move 201*15,131*15,369*15,395*15
      Action.LoadAPicture Hotspot(22), "CloseWindow.bmp"
      Component("KeyGuard").Object.EnableHotspot 22
      End If

End Select
End Select
End Sub


I have a feeling though that this is long way...but Idon't dare touch it..for fear of fighting with it again..

I've yet to even go near the closed window button..lol......

Peace