Creare una cartina geografica con VB.NET

[Marco Stucchi]

Salva a tutti.
Come posso creare una cartina geografica - l'Italia per sempio, suddivisa
per regioni -
e rendere ogni regione sensibile al passaggio e al click del mouse.
L'idea č quella di creare una cartina interattiva, con le regioni che
reagiscono alle interazioni
dell'utente per mostrare informazioni; popolazione, PIL, grafici....

Ho pensato di utilizzare un piů oggetti Region, per creare le forme
irregolari delle regioni
italiane, ma non so come raccogliere la posizione del muose all'interno
della regione.

Ma questa č solo un'idea, e non so se sia la strada giusta. Spero che mi
possiate aiutere!!!
Molti siti internet, utilizzano cartine interattive, suddivise per regioni,
per cosentire agli utenti
di cercare informazioni suddivise per regioni. Invece di selezionare un
elemento da una combobox,
č molto piů rapido, ed intuitivo selezionare una regione dalla cartina.

Qualcuno ha qualche idea, o conosce qualche link utile.
Grazie in anticipo.
Marco.

[Corrado Cavalli [MVP]]

Se parli di un applicazione Win32 prova a dare un occhiata a
Region.IsVisible

HTH

--
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - http://www.ugidotnet.org
Weblog: http://www.ugidotnet.org/710.blog

[Marco Stucchi]

Corrado, sei sempre gentile a rispondere a tutti....
Il mio problema principale, è che non so ancora bene come affronare il
problema.
Prova a guardare questo sito direttamente all indirizzo:
http://www.appenninobianco.it/
...oltre tutto, se quest'inverno vuoi farti una sciata sugli Appennini....
Questo è un ottimo esempio di quello che vorrei fare io, in un applicazione
Win32.
Lasciamo perdere il grazioso effetto 3D.
Uso il costruttore sovraccaricato GraphicsPath(Point[], byte[]) per creare
un oggetto GraphicsPath,
che passo al costruttore di Region, e una forma irregolare è fatto.
...almeno una!!!
Poi però non so come stabile quando il mouse è contenuto nella regione
stessa.
Forse chiedo troppo, comunque ti ringrazio anticipatamente per qualsiasi
idea.
Marco

[Corrado Cavalli [MVP]]

Ecco un esempio banale...

Private moreg As Region

Dim g As Graphics = PictureBox1.CreateGraphics()
moreg = New Region(New RectangleF(0, 0, 50, 50))
g.FillRegion(Brushes.Aquamarine, moreg)
g.Dispose()

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If moreg.IsVisible(e.X, e.Y) Then
MessageBox.Show("ok")
End If
End Sub

Va ovviamente ottimizzato...

[Marco Stucchi]

Ti ringrazio, poi ti faccio sapere
Marco