地图热区该怎么做？

[KissApple]

我现在已经实现了在地图上设置一个热区，使用了CreatePolygonRgn，DeleteObject，PtInRegion这三个API，设置热区可以记录热区名字和各个点的坐标，通过PtInRegion判断鼠标是否移动到热区上。
但是我需要在一张地图上设置多个热区，移动到热区并点击后可以进入下一级地图，下一级地图再设置热区，点击后进入三级地图。
问题是
1。设置的热区只有最后一个热区有效
2。在一级地图上设置的热区会在二级地图上显示出来

[of123]

1。设置的热区只有最后一个热区有效
将热点用数组保存。用 PtInRegion 函数轮询所有热点的 hRgn。

2。在一级地图上设置的热区会在二级地图上显示出来
分别用不同的 PictureBox 来显示。用 Visible 属性来控制显示哪一个。

[KissApple]

将热点用数组保存。用 PtInRegion 函数轮询所有热点的 hRgn。
---------------------------------------------------------------
我现在就是搞不太清楚怎么轮巡，我现在就是用的PtInRegion来判断鼠标是否在区域内
Private Sub P1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
If PtInRegion(RgnObject, x, y) = 1 Then
Label1.ForeColor = QBColor(12)
Label1.Caption = " 进入图形热点区！！"
p1.MouseIcon = LoadPicture(App.Path & "\hmove.cur")
p1.MousePointer = 99
ElseIf flag = 1 Then
Label1.ForeColor = 0
Label1.Caption = " 没有进入图形热点区！"
p1.MousePointer = 0
End If
End Sub
RgnObject是区域句柄，数据库中有好几个区域，怎么才能让他判断呢？

[zhujing281]

你将图中有多少个区域就将数组中设有多少个元素，对其进行标志定位（0/1）。为0的是非热区，为1的是热区。

[KissApple]

地图是未知的，区域也是未知的，客户运行程序后自己加载并设置的。
就好像省市区地图，不可能简单的用标志区别热区非热区

[KissApple]

现在改了一下，可以从数据库中读取区域句柄了，但是还是最后设置的一个热区显示正常，可以有清晰的手型鼠标并且有文字可以正常显示出来，而前几个设置的热区，手型指针非常不清晰，一动就变成普通的鼠标了，而且也没有文字能显示出来
Private Sub P1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
Dim sql As String
Dim rs As ADODB.Recordset
Dim jubing
If selectflag <> 1 Then

sql = "select * from a "
Set rs = gcn.Execute(sql)
While Not rs.EOF
RgnObject1 = rs!jubing
If PtInRegion(RgnObject1, x, y) = 1 Then
Label1.ForeColor = QBColor(12)
Label1.Caption = " 进入图形热点区！！"
p1.MouseIcon = LoadPicture(App.Path & "\hmove.cur")
p1.MousePointer = 99
ElseIf flag = 1 Then
Label1.ForeColor = 0
Label1.Caption = " 没有进入图形热点区！"
p1.MousePointer = 0
End If
rs.MoveNext
Wend

End If
End Sub

[KissApple]

好了，自己搞定了

[迈克揉索芙特]

没做过，没什么概念。帮顶。

[junki]

如果使用网页来做,会比较好实现.
把一个大的图形分成几个小图形.