I have a form with an Image Allocation Plan
Option Compare Database
Option Explicit
Dim AllocationPlanWidth As Long
Dim AllocationPlanHeight As Long
Private Sub AllocationPlan_Click()
If AllocationPlan.Width < Me.Width Then ' Normal size
SpaceTypeID.SetFocus
SpaceAllocationSub.Visible = False
LabelClickPicture.Visible = False
AllocationPlanWidth = AllocationPlan.Width
AllocationPlanHeight = AllocationPlan.Height
AllocationPlan.Width = Me.Width ' Expand
AllocationPlan.Height = Me.Section(0).Height
Me.ScrollBars = 3
Else
SpaceAllocationSub.Visible = True
LabelClickPicture.Visible = True
AllocationPlan.Width = AllocationPlanWidth ' Restore to
original
AllocationPlan.Height = AllocationPlanHeight
Me.ScrollBars = 0
End If
End Sub
As you see from the above code, on clicking the image it enlarges, and on
clicking again it restores it to the original size. I also have to hide a
subform SpaceAllocationSub to show the larger image.
Interestingly ( and probably fortuitously) each time you do a pair of clicks
the image gets a bit bigger. I suspect that the form size is changing.
Problem is that with the bigger image I have to make the form's scrollbars
visible. If you scroll down to the bottom left of the form, then click the
image to restore it to the smaller size, I loose the top of the form.
How can I ensure that I scroll to the Top Left before going to the smaller
image?
Phil
