Question

我正在处理个人住房清单数据库。在一种名为“更新位置”的表格上，有一个公寓平面图的图像，然后在顶部有一个位置标记（图钉图标）的图像，指示位置在公寓中的位置。

例如：

房间：Den
位置：桌面顶部
标志在点
- LeftCoordinate.Value（X）和
- TopCoordinate.Value（Y）。

我有一个切换按钮，然后允许我单击地图，并根据我在地图上单击的位置为标志设置新的X和Y位置。

但是，当我这样做时，标志图像会消失在平面图图像的后面，直到我单击表单的另一部分，然后在正确的位置。我对VBA尤其陌生（尤其是在Access中）。有什么办法可以使标记图像显示在顶部？

我曾尝试搜索Google，但所有示例都倾向于使用一张图片，而不是另一张图片。

Private Sub Draw_Location_Icon()

Me.Painting = False

LeftStartPoint = 5292 ' 3.675"  Left corner of floor plan attachment
TopStartPoint = 837   ' 0.5826" Top corner of floor plan attachment
IconHalfWidth = 180   ' 0.125"  Half the icon width
IconFullHeight = 360  ' 0.250"  Full height of icon

Me.Location_Icon.Visible = False

If Me.LeftCoordinate.Value > 0 Or Me.TopCoordinate.Value > 0 Then
    Location_Icon.Left = LeftStartPoint - IconHalfWidth + Me.LeftCoordinate.Value
    Location_Icon.Top = TopStartPoint - IconFullHeight + Me.TopCoordinate.Value
    Me.Location_Icon.Visible = True
End If

Me.Painting = True

End Sub

正如我目前所说，当我移动位置标记时，平面图图像位于标记的顶部，但是单击表单的另一部分就可以了。我希望表单刷新，底部平面图和顶部标记。

我确定我缺少一个小的项来设置图像的顺序，或者也许我可以让VBA代码在表单上的其他位置“单击”并使标志显示在顶部？

非常感谢您的帮助。

有没有办法设置图像在表单上显示的顺序？

0 个答案: