SoloCodigo

Podrías probar comprobando el color del punto sobre el que se desplaza o hace click el mouse... En vez de usar muchos controles image, podrías crear una sola imagen con todas las provincias, cada una de un color, luego utilizando la función 'Point' puedes comprobar el color del componente para identificar la provincia.

Algo asi... A ver si te sirve de algo.

La solución propuesta de los colores es válida siempre y cuando dos provincias contiguas no tengan el mismo color (no podrías saber en cual de ellas estás).

La solución pasa por que controles dentro de que polígono se encuentra el cursor.

Supongo que conoces las coordenadas (x,y) del contorno de cada provincia que representes en el mapa. Si es así te puedes crear una estructura de datos más o menos de esta forma

type poligono
x as double
y as double
end type

type provincias
id as integer
nombre as string
items as integer
contorno() as poligono
end type

public mymap() as provincias

'Carga los datos

redim mymap(1 to totalprovincias)

'Empiezas a llenar la estructura (esto lo puedes tener en un fichero con el mismo formato.

'ALAVA
mymap(1).id=1
mymap(1).nombre="Alava"
mymap(1).items=10
redim mymap(1).contorno(1 to 10)
'coordenadas del polígono ALAVA
mymap(1).contorno(1).x=1000
mymap(1).contorno(1).y=2000
mymap(1).contorno(2).x)=1200
......
......
mymap(1).contorno(10).x=9600
mymap(1).contorno(10).y)=12300


'BADAJOZ
mymap(2).id=2
mymap(2).nombre="Badajóz"
mymap(2).items=6
redim mymap(2).contorno(1 to 6)
'coordenadas del polígono BADAJOZ
mymap(2).contorno(1).x=500
mymap(2).contorno(1).y=600
mymap(2).contorno(2).x)=560
......
......
mymap(2).contorno(6).x=450
mymap(2).contorno(6).y)=320


'ASI HASTA TENER TODAS LAS COORDENADAS EN LA ESTRUCTURA


Una vez tienes dibujado sobre un objeto PICTURE las provincias con sus colores, datos etc etc.. y escalado a la misma escala que las coordenadas grabadas, deberás de controlar el paso del mouse y cada vez que se mueva llamar a una función parecida a está.
si la función te devuelve <> 0, este será el ID de la provincia y a partir de aqui lo que quieras hacer. Si es =0, el cursor no esta dentro de ninguna provincia.
Puede resultar un poco complejo pero desde luego es la solución más elegante y profesional.


NOTA: LAS COORDENADAS DE LOS POLIGONOS DEBEN DE ESTAR ORDENADAS EN SENTIDO DE LAS AGUJAS DEL RELOJ.








Public Function IdxProvincia(x as double, y as double)

'la x y la y son las coordenadas del ratón sobre el objeto picture

dim i as integer
dim p as integer
dim IN as boolean


for i=1 to total provincias
IN=true
for p=1 to mymap(i).items -1
'verificar si el cursor se encuentra siempre
'a la derecha de todos los segmentos del polígono
if disr(mymap(i).contorno(p).x,mymap(i).contorno(p).y,mymap(i).contorno(p+1).x,mymap(i).contorno(p+1).y, x, y) < 0 then IN=FALSE
next p
if IN=true then IdxProvincia=i:exit function
next i
'El cursor no está dentro de ningún contorno
idxProvincia=0
end function

'=================================================================
'ESTA FUNCION CALCULA LA DISTANCIA DE UN PUNTO A UNA RECTA DADA
'===================================================================
Private Function Disr(x1 As Double, y1 As Double, x2 As Double, y2 As Double, XP As Double, YP As Double) As Double

    'Variables temporales
    Dim Ap As Double
    Dim a As Double
    Dim b As Double
    Dim c As Double
   
    On Error Resume Next
   
    'Calcular los parámetros de la ecuación
    'de la recta enviada.
    Ap = (y1 - y2)
    a = -Ap
    b = (x1 - x2)
    c = -((y1 * b) - (x1 * Ap))

    'Calcular la distancia del punto a la recta
    If Sqr((a ^ 2) + (b ^ 2)) = 0 Then
        Disr = 0
    Else
        Disr = ((a * XP) + (b * YP) + c) / Sqr((a ^ 2) + (b ^ 2))
    End If

End Function

La función Disr() funciona tal y como está ya que te la he copiado de mis librerias y yo la utilizo mucho y además a pleno rendimiento. Nunca me ha fallado.

El resto esta escrito 'al vuelo', por lo que puedo haber cometido algún error, bien sea éste sintáctico o lógico.

Si te es de ayuda, da por bien empleado mi tiempo.

NOTA se me olvido indicarte que los parámetros que se le pasan a la función son tres puntos definidos por sus coordenadas (Planas no geográficas). Los dos primeros pares (x,y) son los que definen la recta. El tercero es el del punto que se desea proyectar sobre ésta.


Un cordial saludo
-Acalanto-

Un pequeño apunte de un matemático.

La geometría puede ser euclidiana (plana) o no, pero todas son 'geometrías' puesto que se basan en la medida y no en la estructura o propiedades (eso sería topología). La geometría plana se basa en los postulados de Euclides, que aún siendo erróneos, nos proporcionan unos resultados bastantes aproximados a la realidad utilizando herramientas de fácil comprensión (algo parecido a la teoría de Newton, equivocada como demostró Eistein, pero funcional a escalas relativamente pequeñas). En conclusión, un espacio geométrico es cualquier región definida sobre una superficie regular, se plano o no.

Perdonad por el rollo, pero la profesión tira, y es un error muy frecuente relacionar la geometría sólo con líneas rectas.

Si por una consulta de mapa de bits se produjo tanto despliegue de conocimientos, voy a dejar la pregunta de "COMO FUNCIONA el CEREBRO HUMANO" para otro momento.

JA JA



Ahora, luego de tanta "PORNOGRAFIA CULTURAL" me siento un ignorante !!!

Un Abrazo para los dos y muchas gracias

Es cierto que la tierra es un geóide, y como tal, todas las distancias en ella se calculan con geodésicas (como hace la aviación actual). Pero también es cierto que las autopistas se calculan con splines cúbicos de sundo grado (es decir, haciendo que su segunda derivada se anule en los puntos críticos), como dijo Newton.

De todas maneras, pienso como tú, si estudiáramos un pelín mas a Riemman y no a Michael Jordan, todos entenderíamos mejor este mundo en el que nos tocó vivir.

PD: El análisis matemático no es mi favorito (así que Riemman tampoco), pero admiro a todos aquellos que se ganaron, ganan o ganarán la vida PENSANDO.

Cambiemos la frase "tengo dos cojones" (o lo que corresponda, lo digo por si lo lee Ángeles) por "tengo dos cerebros".