How to toggle Image visibility "runtime"? On off? In a form?

[Madmads]

Hi.
I want to achieve that if I press a picture in a form, then it will be visible, when pressing the same image again, then unvisible. This is also posted in https://www.accessforums.net/showthread.php?t=70061

I suffer from Cervical Neck Prolapse and want to log my pains. I have created a lot of small images of different parts of the body. I have stacked all those pictures on top of each other. I can add an event "onclick" when clicking the picture - and then make that part of the body visible. But I am not able to disable the visibility when clicking the next time. I have searched and searched, but all searches comes up with "ToggleButton". I dont need a toggle button, but just an approach to how to achieve the following: Say image1 is my shoulder (in a form). When I click, the shoulder is visible. Next time I click the same image, I want it to be hidden. How do I achieve this? Tried this code, but it only sets it visible, then I cannot click again to go back. Thanx a lot in advance.

Private Sub Image1_Click()
Me.Bilde2.Visible = (Not Me.Image1.Visible)
End Sub

Kropp test.zip

[Minty]

I don't think you can change visibility if the control has focus ?
Try moving the focus else where then setting visibility.

[Madmads]

I think so (I am not an expert). If you try to run the embedded file, you will see I am able to turn visibility ON on first click, but on second click, nothing happens? Best, Mads. (And thankyou)

[Minty]

Sorry being very dense.
As soon as it's not visible you can't click it again...

Try this

Private Sub Bilde2_Click()



    If Me.Bilde2.BackStyle = 1 Then
        Me.Bilde2.BackStyle = 0
    Else
        Me.Bilde2.BackStyle = 1
    End If
End Sub

[Madmads]

Thx. Now I am able to update "real time", but this is only changing the background, not the visibility of the "Bilde2". When I run this, the background changes to white, hiding whats behind. Is it possible to use with the visibiliy property instead? Updating real time?

[Madmads]

Tired this:
Private Sub Bilde2_Click()
If Me.Bilde2.Visible = False Then
Me.Bilde2.Visible = True
Else
Me.Bilde2.Visible = False
End If
End Sub

But it does not update ... As yours did (but it did not update the visibility in "runtime" (if that is the right name?). Thx for helping.

[Madmads]

Should I use refresh? Or recalc or something? Thanx.

[Minty]

Like I said that will only work once, as soon as you make it NOT visible it can't be clicked again, as it is no longer there.

[Madmads]

Ok. Now I understand - that is the reason. I cannot click an invinsible object? Is there any workarounds? Hidden instead of visible or something like that?

[aytee111]

You could have a name for each image. This could be a button or an option group. When clicked, it makes all images invisible and the relevant one visible.

[Madmads]

Thx a lot. May i ask you to elaborate a little bit. I am a bit into coding, but not that experienced. How would this save me time? If you got time (and want to) I would be so grateful for a piece of sample code. Thx.

[aytee111]

My advice wasn't about saving you time, not sure where that came from.

Start with a common routine (change names as applicable).

Private Sub MakeInvisible()
Me!Image1.Visible=False
Me!Image2.Visible=False
.....
End Sub

Then, if you are using command buttons, for each button in its OnClick event:
Call MakeInvisible
Me!ImageX.Visible=True

[isladogs]

Another method of showing/hiding several controls at once is to make use of the controls' tag property.
The easiest way to explain this is with an example that I posted a few months back
https://www.access-programmers.co.uk...d.php?t=293439

[June7]

Duplicate https://www.accessforums.net/showthread.php?t=70061