Klickbare Bundesländer auf Landkarte

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Kelariel.

    Klickbare Bundesländer auf Landkarte

    Hallo liebe Leut.

    Ich wollte für meine EDV-Kollegen ein kleines Progrämmchen schreiben. Je mehr ich mich in die Aufgabe reingedacht habe, desto größer gestaltet sich schon mein Grundsatzproblem.
    Wie das so ist googelt man natürlich erstmal. Dieser Herr hier hat das Problem schon recht gut beschrieben. Wie das aber so ist, gibt es genau zu der eigenen Problemstellung keine Antworten.

    Kurz nochmal zu meinem Szenario:

    Ich möchte die Deutschland-Karte sehen.
    Je nachdem in welches Bundesland ich klicke soll dann ein Textfenster aufploppen in welchem etwas geschrieben steht.
    Am Liebsten wäre mir ja noch, würde den Grenzen des Bundeslandes "fett" werden, je nachdem ich welchem man sich befindet. Oder das Textfenster würde aus dem Nichts "nach vorn fahren". Aber das sind letztendlich nur Schönheiten.
    Das Problem ist grundsätzlich erstmal: Wie kann ich die ja bekanntlich unregelmäßigen Bundesländergrenzen erkennen?

    Hat da jemand mit wesentlich mehr Erfahrung eine Idee die für einen Semi-Laien umsetzbar ist?

    Wenn noch Fragen sind, immer her damit.

    Viele Grüße und Danke schonmal.

    Nicht

    Kelariel schrieb:

    erkennen
    sondern wissen.
    Möglich wäre eine zweite Karte, in der die Grenzen der Länder eingezeichnet sind und in der jedes Bundesland seine eigene Farbe hat bzw. ausschließlich aus dieser Farbe besteht.
    Überträgst Du den Klick-Punkt der "Generalkarte" auf die "Schattenkarte", hast Du anhand der Farbe sofort das entsprechende Bundes- oder Ausland.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Idee ist sehr gut.
    Ich habe diese beiden Karten genommen:

    Farbig
    Neutral

    Die sollten eigentlich gut funktionieren.
    Ich habe es nun so gemacht, dass ich das farbige Bild als Hintergrundbild der Form eingestellt.
    Das Neutrale habe ich als Picturebox eingestellt mit der Größe der Form.

    Über einen Timer habe ich immer Live die aktuellen Mauskoordinaten:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. MPX = MousePosition.X - MyBase.Left - 8
    3. MPY = MousePosition.Y - MyBase.Top - 29
    4. end Sub


    Die Werte sehen sehr krüplig aus, da ich damit nur die Koordinaten des Bildschirms bekomme und nicht die der Form. Naja..

    Jetzt schaffe ich es aber patu nicht, die Background-Farbe bei einem Click zu ermitteln..
    Ich habe hier zwar im Forum folgende beiden Zeilen gefunden:

    VB.NET-Quellcode

    1. Private Function GetColor(Location As Point) As Color
    2. Return New Bitmap(PictureBox1.Image).GetPixel(Location.X, Location.Y)
    3. End Function
    5. Private Sub PictureBox1_MouseDown(...) Handles PictureBox1.MouseDown
    6. Dim FarbeUnterDemMauszeiger As Color = GetColor(e.Location)
    7. End Sub


    Die "..." in der Sub reißen mich gerade um, da ich nicht weiß, was da rein soll. ( ByVal e AS ????? ).

    Wenn ich die RGB Farbe habe, möchte ich sie einfach mit einer IF THEN Abfrage mit hinterlegten RGB Farben vergleichen.
    Verbales Beispiel:

    Bayern = RGB(241, 159, 193)
    Wenn Farbauslese = Bayern then Textbox1.visible = true

    Leider komme ich nunmehr einfach nicht weiter und google, oder gar die Microsoft Hilfeseite konnte mir einfach nicht helfen.

    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Kelariel schrieb:

    Return New Bitmap(PictureBox1.Image).GetPixel(Location.X, Location.Y)
    Diese Bitmap hat nix in einer PictureBox verloren, pack die über die Laufzeit in eine Bitmap: Bei Dir müllst Du nämlich den Speicher zu, weil Du pei jeder Mausbewegung ne neue Bitmap-Instanz erstellst.
    Und Du musst noch die Grenzen bearbeiten, dass sie einem Bundesland zugeordnet werden.
    Also pack beide Bilder in Deine Ressourcen und dann dies:

    VB.NET-Quellcode

    1. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    2. Dim col = My.Resources.deutschland_politsch_farbig.GetPixel(e.X, e.Y)
    3. Me.Label1.Text = col.ToString
    4. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Herrlich. Ich danke dir. Das ist bedeuten einfacher und kompakter als das, was ich mir da zusammengeschrieben habe.
    Und vorallem - es funktioniert jetzt so wie es soll.

    Jetzt kümmer ich mich noch etwas um die Schönheiten.
    1. Eine Darstellung des Textes pro Bundesland als eine Art Tabelle mit 2 Spalten und 1 Zeile. Also, dass der Inhalt der 2. Spalte immer an der gleichen Höhe beginnt. Das Nutzen einer Tabelle ist etwas umständig zu programmieren denke ich. Daher habe ich bisher nur eine Textbox
    2. Eventuell die Möglichkeit, dass sich die Textbox aus dem Nichts bis zur festgelegten Größe aufspannt und nicht nur so "plöpp" da ist. Da hätt ich schon eine Idee: Eine Schleife mit bezug auf die Höhe und Breite die bis zu einem Limit die Form des Feldes erweitert.

    Nunja.
    Ich danke dir recht herzlich für die Hilfe.
    Wenn du noch Lust hast, kannst du mir vielleicht zu Punkt 1 eine Lösung nennen und sagen, ob du die Idee für Punk2 sinnvoll findest.

    Viele Grüße

    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Da gibt es glaub ich eine Systemeinstellung, so was wie animierte Menüs.
    Was soll denn alles in der Tabelle stehen?
    Mach Dir ein Dictionary(Of Color, String).
    Und: In Deinem Farbbild haben Brandenburg und Baden-Württemberg dieselbe Farbe, da musst Du eins umfärben. Bei mir sieht das nun so aus:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Länder As New Dictionary(Of Color, String)
    3. Public Sub New()
    4. Me.InitializeComponent()
    6. Me.ClientSize = New Size(640, 640) ' damit die Koordinaten übereinstimmen
    8. Me.Länder.Add(Color.FromArgb(229, 220, 197), "Schleswig-Holstein")
    9. Me.Länder.Add(Color.FromArgb(241, 157, 160), "Mecklenburg-Vorpommern")
    10. Me.Länder.Add(Color.FromArgb(199, 142, 120), "Hamburg")
    11. Me.Länder.Add(Color.FromArgb(242, 148, 0), "Bremen")
    12. Me.Länder.Add(Color.FromArgb(197, 147, 190), "Niedersachsen")
    13. Me.Länder.Add(Color.FromArgb(251, 203, 140), "Sachsen-Anhalt")
    14. Me.Länder.Add(Color.FromArgb(146, 167, 136), "Brandenburg")
    15. Me.Länder.Add(Color.FromArgb(60, 137, 196), "Berlin")
    16. Me.Länder.Add(Color.FromArgb(247, 176, 78), "Nordrhein-Westfahlen")
    17. Me.Länder.Add(Color.FromArgb(202, 212, 216), "Thüringen")
    18. Me.Länder.Add(Color.FromArgb(225, 202, 224), "Sachsen")
    19. Me.Länder.Add(Color.FromArgb(143, 199, 151), "Hessen")
    20. Me.Länder.Add(Color.FromArgb(208, 223, 153), "Saarland")
    21. Me.Länder.Add(Color.FromArgb(255, 245, 154), "Rheinland-Pfalz")
    22. Me.Länder.Add(Color.FromArgb(241, 159, 193), "Bayern")
    23. Me.Länder.Add(Color.FromArgb(0, 128, 192), "Baden-Württemberg")
    25. Me.Länder.Add(Color.FromArgb(254, 254, 254), "Ausland, Wasser")
    26. End Sub
    28. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    29. Dim col = My.Resources.deutschland_politsch_farbig.GetPixel(e.X, e.Y)
    30. If Me.Länder.ContainsKey(col) Then
    31. Me.Text = Me.Länder(col)
    32. Else
    33. Me.Text = col.ToString
    34. End If
    35. End Sub
    36. End Class


    Zitat entfernt. ~Thunderbolt
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Ich hab das jetzt erstmal so:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Kontrollwert As String
    4. Public Ausserhalb As String
    5. Public SH As String
    6. Public SHi As String
    7. Public MV As String
    8. Public MVi As String
    9. Public BB As String
    10. Public BBi As String
    11. Public BE As String
    12. Public BEi As String
    13. Public HH As String
    14. Public HHi As String
    15. Public HB As String
    16. Public HBi As String
    17. Public NI As String
    18. Public NIi As String
    19. Public SN As String
    20. Public SNi As String
    21. Public ST As String
    22. Public STi As String
    23. Public SL As String
    24. Public SLi As String
    25. Public RP As String
    26. Public RPi As String
    27. Public NW As String
    28. Public NWi As String
    29. Public TH As String
    30. Public THi As String
    31. Public HE As String
    32. Public HEi As String
    33. Public BY As String
    34. Public BYi As String
    35. Public BW As String
    36. Public BWi As String
    38. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    39. PictureBox1.Left = 0
    40. PictureBox1.Top = 0
    41. PictureBox1.Height = Me.Height
    42. PictureBox1.Width = Me.Width
    43. TextBox1.Width = 1
    44. TextBox1.Height = 1
    45. Variablenzuweisung()
    46. End Sub
    48. Public Sub Variablenzuweisung()
    49. 'Farbzuweisung und Wertzuweisung zur Region
    50. Ausserhalb = ("Color [A=1, R=0, G=0, B=0]")
    51. SH = ("Color [A=58, R=141, G=101, B=0]")
    52. MV = ("Color [A=98, R=219, G=0, B=8]")
    53. BB = ("Color [A=255, R=0, G=0, B=0]")
    54. BE = ("Color [A=195, R=0, G=101, B=178]")
    55. HH = ("Color [A=135, R=149, G=42, B=0]")
    56. HB = ("Color [A=255, R=242, G=148, B=0]")
    57. NI = ("Color [A=108, R=118, G=0, B=102]")
    58. SN = ("Color [A=53, R=111, G=0, B=106]")
    59. ST = ("Color [A=115, R=246, G=140, B=0]")
    60. SL = ("Color [A=102, R=138, G=175, B=0]")
    61. RP = ("Color [A=101, R=255, G=230, B=0]")
    62. NW = ("Color [A=177, R=243, G=141, B=0]")
    63. TH = ("Color [A=53, R=0, G=48, B=67]")
    64. HE = ("Color [A=112, R=0, G=128, B=18]")
    65. BY = ("Color [A=96, R=218, G=0, B=90]")
    66. BW = ("Color [A=119, R=21, G=66, B=0]")
    68. 'Textzuweisung zur Region
    69. 'Gekürzte Fassung
    70. SHi = "Darstellung Schleswig-Holstein
    72. Gerät 1: Adresse
    73. Gerät 2: Adresse
    74. Gerät 3: Adresse
    75. Gerät 4: Ohne Adresse"
    76. End Sub
    78. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    79. Dim col = My.Resources.deutschland_politsch_farbig_195780_alpha_neu.GetPixel(e.X, e.Y)
    80. Kontrollwert = col.ToString
    82. If TextBox1.Visible = True Then
    83. TextBox1.Visible = False
    84. TextBox1.Width = 1
    85. TextBox1.Height = 1
    86. Else
    88. If Kontrollwert = Ausserhalb Then
    89. Label3.Text = ""
    90. Label3.Visible = False
    91. TextBox1.Text = ""
    92. TextBox1.Visible = False
    93. End If
    95. 'Gekürzte Fassung
    96. If Kontrollwert = SH Then
    97. Label3.Text = "Schleswig-Holstein"
    98. Label3.Visible = True
    99. TextBox1.Text = SHi
    100. TextBox1.Visible = True
    101. Timer1.Enabled = True
    102. End If
    103. End If
    104. End Sub
    106. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    107. While TextBox1.Width < 300 And TextBox1.Height < 150
    108. TextBox1.Width = TextBox1.Width + 10
    109. TextBox1.Height = TextBox1.Height + 5
    110. End While
    111. Timer1.Enabled = False
    112. End Sub
    113. End Class


    Wie du siehst soll in der Textbox eine Liste an Geräten mit entsprechenden IP Adressen sein. Aufgrund der Wortlänger der Geräte fängt natürlich die IP immer auf einer anderen Höhe an. Ich hätte die Höhe der IP's gern einheitlich. Mittelts Tab-Stops im String klappt das leider nicht.
    Das mit den gleichen Farben von BW und BB ist mir leider auch schon aufgefallen. Ich hab die Farbe von BB einfach in Schwarz geändert. Danach war es eindeutig.
    Das Aufspannen des Textfeldes habe ich jetzt über den Timer mit einem Intervall von 1 gelöst. Das sieht schön flüssig aus.

    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Kelariel schrieb:

    Wie du siehst
    Ich seh gar nix, nur einen Haufen unnützer Variablen. :/
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sollte ich den Sarkasmus in deiner Aussage nicht verstanden haben, dann Asche über mein Haupt. Andernfalls - warum auch immer du nicht mehr als die Variablen siehst, habe ich es hier als Bild zusammengefasst:
    (Natürlich sind es sicher viel zu viele unnütze Variablen. Wie man an deinem Code sieht, geht es auch viel einfacher. Aber so habe ich es als Laie für mich verständlich zusammengeschrieben)



    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Was soll denn passieren bei Mouse_Click und Timer_Tick?
    Ob das tatsächlich passiert, werden wir dann sehen.

    Zitat entfernt. ~Thunderbolt
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Kurzer Umriss:
    Das Programm startet und die Karte ist zu sehen.
    Man klickt auf ein Bundesland. Auf der Karte wird label3 mit dem Namen des Bundeslandes versehen.
    Dann wird der Textbox den für das Land hinterlegten Text eingeflöst und sichtbar gemacht ( hat aber natürlich erstmanoch nur eine größe von 1x1 ).
    Danach wird in den Timer gesprunger, welcher die Textbox so lang vergrößert bis sie die vorgegebene Größe erreicht hat. Danach wird der Timer deaktiviert.
    Man sieht nun also über der Karte die Textbox mit den Landesspezifischen Informationen.
    Klickt man nun irgendwo anders hin wird die Textbox ausgeblendet und wieder auf eine Größe von 1x1 gesetzt.
    Nun kann man wieder ein anderes Land anklicken und die Prozedur beginnt von vorn.

    Soweit funktioniert das auch bei mir.

    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Warum erfindest Du ein eckiges Rad neu, wenn Du bei mir ein rundes vorgefunden hast?

    Zitat entfernt. ~Thunderbolt
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Ja, da hast du schon recht.
    Muss mich in deins nur nochmal reinarbeiten inwieweit ich Werte abgreife und in weitere Funktionen ableite.
    Aber ich danke dir schonmal dafür. Das hat mir schon sehr geholfen.

    Zitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()