Enlarging Image

[LonghronJ]

I have four small images on this form. When I click on one, it gets enlarged, and when clicked again, it goes back to the original size. I've already code it using ctrl.Move and global variables to store original image dimensions, so that the the original image size can be restored whenever the larger image is clicked. The problem is that I am constantly adjusting the code to try to make the image an optimal size, so I would play with the location of image and the size by changing the codes.



Then I thought, perhaps I've made it much more complicated than it has to be. I could have just make another image control on the form with much larger dimension and make it visible and invisible matching the image of the smaller image whenever a smaller image is clicked. Maybe it's from lack of sleep last night, but for the life of me, I can't think of a way to pass the control source. So to clarify myself, ImgSmall1 has a control source of [imgFront], when I click on that image, I want the larger image to have the control source of [imFront]. That's pretty simple, right?

Sleep Deprived

[June7]

Are there two fields - imgFront and imFront? Or should that second reference have been imgFront.

I don't really understand issue. If you have two Image controls on the form and just need to control visibility, shouldn't they each be bound to same field?

[LonghronJ]

No, I have four small images, and I want to see whichever smaller image enlarged when clicked. Therefore, imgLarge = imgFront, or imgLarge = imgBack, ...depending on which image is clicked.

[June7]

Are these images embedded in Attachment type field of table?

Maybe in small image Click event something like:

Sub imgFront_Click()
Me.imgLarge.ControlSource = "imgFront"
Me.Refresh 'might not be necessary
End Sub

[LonghronJ]

Ha, that's exactly what I initially did, but .ControlSource, for some reason, is not an available method.

[June7]

Rats! Can build a function that is called from the Image control ControlSource property. I tested with an Image control and a Button.

Option Compare Database
Dim strImage As String

Private Function GetImage()
GetImage = strImage
End Function

Private Sub Command115_Click()
strImage = "C:\Users\June\Queries.png"
Me.Refresh
End Sub

However, that is pulling external image. As you discovered, I also don't see any way to programmatically set the ControlSource property to a field name. Annoying.

Only alternative I see is 4 corresponding large images and manage their visibility with code.