我正在制作地图,例如谷歌地图。当然,地图是可拖的。
这是onMarker_Click
..
For Each m In mList
If item.ToolTipText = m Then
Dim f As New Form2
Me.AddOwnedForm(f)
With f
.Show()
Dim p As New Point
p = item.LocalPosition + New Point(20, -240)
.Location = p
.Text = m
End With
Exit Sub
End If
Next
基本上,每次单击标记时,此代码都会在点旁边生成一个新表单..给出了我想要的结果,但是,我不能在onMapDrag
事件上使用此代码。为什么?对于拖动的每个像素,它会创建一个新实例。
我的目标是能够拖动地图,并在标记后面添加表格。但现在我似乎不可能。所以我今天想的是..
我有3个打开的表单显示某些内容,当我拖动地图时,表单隐藏,拖动后,表单重新出现仍然在新的旁边定位标记。
流程应该是这样的:
onMarker_Click()
'Code on top
onMapDrag()
'hide visible forms / close them
onMouse_Leave()
'show hidden forms / reopen them but I need the same forms which were closed
'show hidden forms beside the marker
'since I cannot literally *drag* form2
'I am thinking of hiding it, and show it on the next destination after drag
请不要犹豫,问一下你有什么不明白的地方。我现在需要这个。谢谢SO人。