GMap - Route wird Falsch angezeigt und JIT-Debugger fehler

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von PatVB.

    GMap - Route wird Falsch angezeigt und JIT-Debugger fehler

    Hallo zusammen,
    zu meinem 1. Problem:

    Ich habe in meinen Programm eine Gmap integriert, Orts Suche funktioniert einwandfrei und sie lässt sich auch auf Hybrid etc umschalten. Ich möchte auch eine Route anzeigen lassen, das funktioniert soweit auch, denn der Start und der Endpunkt stimmen zwar, nur die restliche Route zwischen den zwei Punkten verläuft irgendwo.

    Spoiler anzeigen



    Der Code:

    VB.NET-Quellcode

    1. ​
    2. Imports GMap.NET.MapProviders
    4. Imports GMap.NET
    5. Imports GMap.NET.MapRoute
    6. Imports GMap.NET.WindowsForms.Markers
    7. Imports GMap.NET.WindowsForms.ToolTips
    8. Imports System.IO
    9. Imports System.Runtime.Serialization
    10. Imports GMap.NET.WindowsForms
    11. Imports GMap.NET.CacheProviders
    12. Imports GMap.NET.GMaps
    13. Imports GMap.NET.WindowsForms.GMapOverlay
    14. Imports GMap.NET.WindowsForms.GMapControl
    15. Imports GMap.NET.CacheProviders.MsSQLPureImageCache
    16. Imports System
    17. Imports System.Drawing
    18. Imports System.Drawing.Drawing2D
    19. Imports GMap.NET.MapProviders.GoogleMapProvider
    21. Public Class FormKarte
    23. Private Sub FormKarte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    25. GMapControl1.MapProvider = GMap.NET.MapProviders.GoogleMapProvider.Instance
    26. GMapControl1.SetPositionByKeywords(My.Settings.KStartOrt & ", " & My.Settings.KStartStrasse)
    27. GMapControl1.MinZoom = 2
    28. GMapControl1.MaxZoom = 18
    29. GMapControl1.Zoom += 1
    30. GMapControl1.Zoom -= 1
    31. GMapControl1.Manager.Mode = AccessMode.ServerAndCache
    33. TraBarKarteZoom.Maximum = 18
    34. TraBarKarteZoom.Minimum = 2
    35. TraBarKarteZoom.Value = 12
    37. 'Anbieter
    38. ComBoxAnbieterKarte.Text = My.Settings.EMSKarte
    40. End Sub


    VB.NET-Quellcode

    1. ​
    2. Private Sub ButRouteSuchen_Click(sender As Object, e As EventArgs) Handles ButRouteSuchen.Click
    4. 'Punkt A und B Position festlegen
    5. Dim start As String = TexBoxRouteA.Text
    6. Dim ende As String = TexBoxRouteB.Text
    9. 'Route erstellen
    10. Dim route As MapRoute = GMap.NET.MapProviders.GoogleMapProvider.Instance.GetRoute(start, ende, False, False, 15)
    11. Dim r As New GMapRoute(route.Points, "My Route")
    13. 'Overlay erstellen und Route einfügen
    14. Dim routeOverlay As New GMapOverlay
    15. routeOverlay.Routes.Add(r)
    16. GMapControl1.Overlays.Add(routeOverlay)
    18. 'Routen Einstellung
    19. r.Stroke.Width = 2
    20. r.Stroke.Color = Color.DarkRed
    22. End Sub





    Mein zweites Problem ist folgendes:

    Ich installiere dann die Software auf einen anderen PC ohne VS (durch Google ist mir bewusst das der Fehler auf meinem Rechner nicht auftritt da er durch VS abgearbeitet wird) nur was muss ich den späteren Benutzern des Programms mit herunterladen lassen damit dieser Fehler nicht mehr auftritt?

    Spoiler anzeigen
    ​





    Danke schon mal im Voraus!!! :)

    Willkomemn im Forum. :thumbup:

    PatVB schrieb:

    da er durch VS abgearbeitet wird
    Genau das ist wohl der Fehler.
    Was passiert, wenn Du diesen Fehler nicht von Deinem VS abarbeiten lässt?
    Du entfernst wohl ein Element einer Liste während einer For Each-Schleife.
    Behebe den Fehler, verschleiere ihn nicht.
    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!

    Danke und ja das war natürlich auch mein erster plan nur, ich bin dann zu dem Ergebniss gekommen, das der Fehler nur auftritt wenn das Programm mit dem Internet verbunden ist (es ruft Emails ab, sofern es mit dem Internet verbunden ist). Ich wollte dann genauer herausfinden wo der Fehler liegt und habe die Codeabschnitte in ein "Try" gepackt und falls eben ein Fehler auftritt eine MsgBox dazu, nur Meldet das Programm zwar den Fehler wie oben gepostet, aber die MsgBox erscheint nicht und das abrufen der Emails erfolgt ohne Probleme. ??

    PatVB schrieb:

    und habe die Codeabschnitte in ein "Try" gepackt
    So werden Fehler verschleiert, nicht aber gefunden.
    Mach also die Try / Catch wieder raus und poste den Fehler und die Codezeile dazu.
    Ggf. ist noch der Inhalt von Variablen sinnvoll.
    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!

    VB.NET-Quellcode

    1. Private Sub FormMainScreen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    3. '####################################################
    4. 'EMAIL Abrufen
    5. '####################################################
    8. [b]!!Die zwei Variablen stehen im Public Class!!![/b]
    9. Dim Messages As New List(Of String)
    10. Dim AttachArray As New ArrayList
    15. 'Internet
    16. If testconnection() = 1 Then
    17. LabInternet.Text = "Verbunden"
    18. Else
    19. If testconnection() = 0 Then
    20. LabInternet.Text = "Getrennt"
    21. End If
    22. End If
    24. Dim pop3 As New POPClient
    26. If LabInternet.Text = "Verbunden" Then
    27. pop3.Disconnect()
    28. pop3.Connect("mail.muster.at", 110)
    29. pop3.Authenticate("email@email.at", "123456")
    30. LisBoxEmail1.Items.Clear()
    31. For i As Integer = 1 To pop3.GetMessageCount
    32. Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
    33. LisBoxEmail1.Items.Add(m.Subject)
    34. If m.MessageBody.Count > 0 Then
    35. Dim Attach As New List(Of MIMEParser.Attachment)
    36. Messages.Add(m.MessageBody(m.MessageBody.Count - 1))
    37. For ii As Integer = 1 To m.AttachmentCount - 1
    38. Attach.Add(m.GetAttachment(ii))
    39. Next
    40. AttachArray.Add(Attach)
    41. End If
    43. Next
    44. pop3.Disconnect()
    46. LisBoxEmail1.SelectedIndex = LisBoxEmail1.Items.Count - 1
    47. LisBoxEmail1.Select()
    48. TexBoxEinsatzText.Text = LisBoxEmail1.SelectedItem
    50. Else
    52. End If
    54. End Sub

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

    PatVB schrieb:

    VB.NET-Quellcode

    1. testconnection()
    sollte nicht 0 oder 1, sondern True oder False zurückgeben.
    Wenn False, dann kannst Du mit der Initialisierung abbrechen.
    Mach Dir einen Button, bei dem initialisiert wird, so kannst Du die Form stehen lassen und da gelegentlich mal draufdrücken.
    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!

    PatVB schrieb:

    aber im Prinzip
    hast Du die Bedeutung der verschiedenen Datentypen nicht verstanden.
    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!

    Das kann womöglich sein, da ich mir das Grundwissen das ich benötige mir durch googel und Selbststudium beigebracht habe. Ich bezweifle auch nicht das es so Richtig wäre, aber ich sehe bei meinem derzeitigem Problem, durch diese Änderung keine Lösung.

    PatVB schrieb:

    bei meinem derzeitigem Problem
    EMail oder GMap?
    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!

    Der Fahler mit der falschen Route hat sich soeben erledigt. Scheinbar gibt es beim Routenberechnen Probleme mit dem GoogleMapProvider, ich habe daher den BingMapProvider verwendet und dieser funktioniert einwandfrei.



    Dennoch bleib der andere Fehler weiterhin vorhanden.....

    RodFromGermany schrieb:

    Genau das ist wohl der Fehler.
    Was passiert, wenn Du diesen Fehler nicht von Deinem VS abarbeiten lässt?
    Du entfernst wohl ein Element einer Liste während einer For Each-Schleife.
    Behebe den Fehler, verschleiere ihn nicht.



    Also folgendes zu diesem Problem, es tritt scheinbar nur bei Win 8.1 auf, bei einem frisch aufgesetzten Win 7 Pc tritt der fehler nicht auf. Auch wenn ich den Codeabschnitt (Email abrufen) in ein Kommentar "verwandle" (da dieser der einzige Codeabschnitt mit einer For Each schleife im Load Event ist) tritt der fehler auf. Aber eben nur auf Win 8.1 sofern dieser mit Internet verbunden ist. Ohne Internet erscheint dieser Fehler auch dort nicht!?!?!? ?(

    PatVB schrieb:

    es tritt scheinbar nur bei Win 8.1 auf
    Kannst Du mal das ganze Projekt posten?
    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!






    Ich kann dir nur das Load.Event posten da ich das ganze Projekt derzeit noch unter Verschluss halten möchte.

    Imports:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports OpenPOP
    3. Imports OpenPOP.POP3
    4. Imports System.Text.RegularExpressions




    Load.Event:

    Quellcode

    1. Public Class FormMainScreen
    3. Dim Messages As New List(Of String)
    4. Dim AttachArray As New ArrayList
    8. Function testconnection()
    9. Try
    10. My.Computer.Network.Ping("www.google.at")
    11. Return True
    12. Catch ex As Exception
    13. Return False
    14. End Try
    16. End Function
    19. Private Sub FormMainScreen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    21. Try
    24. 'Menü Position - EMP1
    25. If My.Settings.EMP1 = "Karte" Then ButKarte.Location = New Point(55, 100)
    26. If My.Settings.EMP1 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(55, 100)
    27. If My.Settings.EMP1 = "Löschwasser" Then ButLoschwasser.Location = New Point(55, 100)
    28. If My.Settings.EMP1 = "Kontakte" Then ButKontakte.Location = New Point(55, 100)
    29. If My.Settings.EMP1 = "Objektpläne" Then ButObjektplane.Location = New Point(55, 100)
    30. If My.Settings.EMP1 = "AAO" Then ButAAO.Location = New Point(55, 100)
    31. If My.Settings.EMP1 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(55, 100)
    32. If My.Settings.EMP1 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(55, 100)
    33. If My.Settings.EMP1 = "Löschbereich" Then ButLoschbereich.Location = New Point(55, 100)
    34. If My.Settings.EMP1 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(55, 100)
    35. If My.Settings.EMP1 = "Internet" Then ButInternet.Location = New Point(55, 100)
    36. If My.Settings.EMP1 = "E-Mail" Then ButEMail.Location = New Point(55, 100)
    37. If My.Settings.EMP1 = "Extern 1" Then ButExtern1.Location = New Point(55, 100)
    38. If My.Settings.EMP1 = "Extern 2" Then ButExtern2.Location = New Point(55, 100)
    40. 'Menü Position - EMP2
    41. If My.Settings.EMP2 = "Karte" Then ButKarte.Location = New Point(165, 100)
    42. If My.Settings.EMP2 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(165, 100)
    43. If My.Settings.EMP2 = "Löschwasser" Then ButLoschwasser.Location = New Point(165, 100)
    44. If My.Settings.EMP2 = "Kontakte" Then ButKontakte.Location = New Point(165, 100)
    45. If My.Settings.EMP2 = "Objektpläne" Then ButObjektplane.Location = New Point(165, 100)
    46. If My.Settings.EMP2 = "AAO" Then ButAAO.Location = New Point(165, 100)
    47. If My.Settings.EMP2 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(165, 100)
    48. If My.Settings.EMP2 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(165, 100)
    49. If My.Settings.EMP2 = "Löschbereich" Then ButLoschbereich.Location = New Point(165, 100)
    50. If My.Settings.EMP2 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(165, 100)
    51. If My.Settings.EMP2 = "Internet" Then ButInternet.Location = New Point(165, 100)
    52. If My.Settings.EMP2 = "E-Mail" Then ButEMail.Location = New Point(165, 100)
    53. If My.Settings.EMP2 = "Extern 1" Then ButExtern1.Location = New Point(165, 100)
    54. If My.Settings.EMP2 = "Extern 2" Then ButExtern2.Location = New Point(165, 100)
    56. 'Menü Position - EMP3
    57. If My.Settings.EMP3 = "Karte" Then ButKarte.Location = New Point(275, 100)
    58. If My.Settings.EMP3 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(275, 100)
    59. If My.Settings.EMP3 = "Löschwasser" Then ButLoschwasser.Location = New Point(275, 100)
    60. If My.Settings.EMP3 = "Kontakte" Then ButKontakte.Location = New Point(275, 100)
    61. If My.Settings.EMP3 = "Objektpläne" Then ButObjektplane.Location = New Point(275, 100)
    62. If My.Settings.EMP3 = "AAO" Then ButAAO.Location = New Point(275, 100)
    63. If My.Settings.EMP3 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(275, 100)
    64. If My.Settings.EMP3 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(275, 100)
    65. If My.Settings.EMP3 = "Löschbereich" Then ButLoschbereich.Location = New Point(275, 100)
    66. If My.Settings.EMP3 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(275, 100)
    67. If My.Settings.EMP3 = "Internet" Then ButInternet.Location = New Point(275, 100)
    68. If My.Settings.EMP3 = "E-Mail" Then ButEMail.Location = New Point(275, 100)
    69. If My.Settings.EMP3 = "Extern 1" Then ButExtern1.Location = New Point(275, 100)
    70. If My.Settings.EMP3 = "Extern 2" Then ButExtern2.Location = New Point(275, 100)
    72. 'Menü Position - EMP4
    73. If My.Settings.EMP4 = "Karte" Then ButKarte.Location = New Point(385, 100)
    74. If My.Settings.EMP4 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(385, 100)
    75. If My.Settings.EMP4 = "Löschwasser" Then ButLoschwasser.Location = New Point(385, 100)
    76. If My.Settings.EMP4 = "Kontakte" Then ButKontakte.Location = New Point(385, 100)
    77. If My.Settings.EMP4 = "Objektpläne" Then ButObjektplane.Location = New Point(385, 100)
    78. If My.Settings.EMP4 = "AAO" Then ButAAO.Location = New Point(385, 100)
    79. If My.Settings.EMP4 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(385, 100)
    80. If My.Settings.EMP4 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(385, 100)
    81. If My.Settings.EMP4 = "Löschbereich" Then ButLoschbereich.Location = New Point(385, 100)
    82. If My.Settings.EMP4 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(385, 100)
    83. If My.Settings.EMP4 = "Internet" Then ButInternet.Location = New Point(385, 100)
    84. If My.Settings.EMP4 = "E-Mail" Then ButEMail.Location = New Point(385, 100)
    85. If My.Settings.EMP4 = "Extern 1" Then ButExtern1.Location = New Point(385, 100)
    86. If My.Settings.EMP4 = "Extern 2" Then ButExtern2.Location = New Point(385, 100)
    88. 'Menü Position - EMP5
    89. If My.Settings.EMP5 = "Karte" Then ButKarte.Location = New Point(55, 210)
    90. If My.Settings.EMP5 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(55, 210)
    91. If My.Settings.EMP5 = "Löschwasser" Then ButLoschwasser.Location = New Point(55, 210)
    92. If My.Settings.EMP5 = "Kontakte" Then ButKontakte.Location = New Point(55, 210)
    93. If My.Settings.EMP5 = "Objektpläne" Then ButObjektplane.Location = New Point(55, 210)
    94. If My.Settings.EMP5 = "AAO" Then ButAAO.Location = New Point(55, 210)
    95. If My.Settings.EMP5 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(55, 210)
    96. If My.Settings.EMP5 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(55, 210)
    97. If My.Settings.EMP5 = "Löschbereich" Then ButLoschbereich.Location = New Point(55, 210)
    98. If My.Settings.EMP5 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(55, 210)
    99. If My.Settings.EMP5 = "Internet" Then ButInternet.Location = New Point(55, 210)
    100. If My.Settings.EMP5 = "E-Mail" Then ButEMail.Location = New Point(55, 210)
    101. If My.Settings.EMP5 = "Extern 1" Then ButExtern1.Location = New Point(55, 210)
    102. If My.Settings.EMP5 = "Extern 2" Then ButExtern2.Location = New Point(55, 210)
    104. 'Menü Position - EMP6
    105. If My.Settings.EMP6 = "Karte" Then ButKarte.Location = New Point(165, 210)
    106. If My.Settings.EMP6 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(165, 210)
    107. If My.Settings.EMP6 = "Löschwasser" Then ButLoschwasser.Location = New Point(165, 210)
    108. If My.Settings.EMP6 = "Kontakte" Then ButKontakte.Location = New Point(165, 210)
    109. If My.Settings.EMP6 = "Objektpläne" Then ButObjektplane.Location = New Point(165, 210)
    110. If My.Settings.EMP6 = "AAO" Then ButAAO.Location = New Point(165, 210)
    111. If My.Settings.EMP6 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(165, 210)
    112. If My.Settings.EMP6 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(165, 210)
    113. If My.Settings.EMP6 = "Löschbereich" Then ButLoschbereich.Location = New Point(165, 210)
    114. If My.Settings.EMP6 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(165, 210)
    115. If My.Settings.EMP6 = "Internet" Then ButInternet.Location = New Point(165, 210)
    116. If My.Settings.EMP6 = "E-Mail" Then ButEMail.Location = New Point(165, 210)
    117. If My.Settings.EMP6 = "Extern 1" Then ButExtern1.Location = New Point(165, 210)
    118. If My.Settings.EMP6 = "Extern 2" Then ButExtern2.Location = New Point(165, 210)
    120. 'Menü Position - EMP7
    121. If My.Settings.EMP7 = "Karte" Then ButKarte.Location = New Point(275, 210)
    122. If My.Settings.EMP7 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(275, 210)
    123. If My.Settings.EMP7 = "Löschwasser" Then ButLoschwasser.Location = New Point(275, 210)
    124. If My.Settings.EMP7 = "Kontakte" Then ButKontakte.Location = New Point(275, 210)
    125. If My.Settings.EMP7 = "Objektpläne" Then ButObjektplane.Location = New Point(275, 210)
    126. If My.Settings.EMP7 = "AAO" Then ButAAO.Location = New Point(275, 210)
    127. If My.Settings.EMP7 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(275, 210)
    128. If My.Settings.EMP7 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(275, 210)
    129. If My.Settings.EMP7 = "Löschbereich" Then ButLoschbereich.Location = New Point(275, 210)
    130. If My.Settings.EMP7 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(275, 210)
    131. If My.Settings.EMP7 = "Internet" Then ButInternet.Location = New Point(275, 210)
    132. If My.Settings.EMP7 = "E-Mail" Then ButEMail.Location = New Point(275, 210)
    133. If My.Settings.EMP7 = "Extern 1" Then ButExtern1.Location = New Point(275, 210)
    134. If My.Settings.EMP7 = "Extern 2" Then ButExtern2.Location = New Point(275, 210)
    136. 'Menü Position - EMP8
    137. If My.Settings.EMP8 = "Karte" Then ButKarte.Location = New Point(385, 210)
    138. If My.Settings.EMP8 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(385, 210)
    139. If My.Settings.EMP8 = "Löschwasser" Then ButLoschwasser.Location = New Point(385, 210)
    140. If My.Settings.EMP8 = "Kontakte" Then ButKontakte.Location = New Point(385, 210)
    141. If My.Settings.EMP8 = "Objektpläne" Then ButObjektplane.Location = New Point(385, 210)
    142. If My.Settings.EMP8 = "AAO" Then ButAAO.Location = New Point(385, 210)
    143. If My.Settings.EMP8 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(385, 210)
    144. If My.Settings.EMP8 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(385, 210)
    145. If My.Settings.EMP8 = "Löschbereich" Then ButLoschbereich.Location = New Point(385, 210)
    146. If My.Settings.EMP8 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(385, 210)
    147. If My.Settings.EMP8 = "Internet" Then ButInternet.Location = New Point(385, 210)
    148. If My.Settings.EMP8 = "E-Mail" Then ButEMail.Location = New Point(385, 210)
    149. If My.Settings.EMP8 = "Extern 1" Then ButExtern1.Location = New Point(385, 210)
    150. If My.Settings.EMP8 = "Extern 2" Then ButExtern2.Location = New Point(385, 210)
    152. 'Menü Position - EMP9
    153. If My.Settings.EMP9 = "Karte" Then ButKarte.Location = New Point(55, 320)
    154. If My.Settings.EMP9 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(55, 320)
    155. If My.Settings.EMP9 = "Löschwasser" Then ButLoschwasser.Location = New Point(55, 320)
    156. If My.Settings.EMP9 = "Kontakte" Then ButKontakte.Location = New Point(55, 320)
    157. If My.Settings.EMP9 = "Objektpläne" Then ButObjektplane.Location = New Point(55, 320)
    158. If My.Settings.EMP9 = "AAO" Then ButAAO.Location = New Point(55, 320)
    159. If My.Settings.EMP9 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(55, 320)
    160. If My.Settings.EMP9 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(55, 320)
    161. If My.Settings.EMP9 = "Löschbereich" Then ButLoschbereich.Location = New Point(55, 320)
    162. If My.Settings.EMP9 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(55, 320)
    163. If My.Settings.EMP9 = "Internet" Then ButInternet.Location = New Point(55, 320)
    164. If My.Settings.EMP9 = "E-Mail" Then ButEMail.Location = New Point(55, 320)
    165. If My.Settings.EMP9 = "Extern 1" Then ButExtern1.Location = New Point(55, 320)
    166. If My.Settings.EMP9 = "Extern 2" Then ButExtern2.Location = New Point(55, 320)
    168. 'Menü Position - EMP10
    169. If My.Settings.EMP10 = "Karte" Then ButKarte.Location = New Point(165, 320)
    170. If My.Settings.EMP10 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(165, 320)
    171. If My.Settings.EMP10 = "Löschwasser" Then ButLoschwasser.Location = New Point(165, 320)
    172. If My.Settings.EMP10 = "Kontakte" Then ButKontakte.Location = New Point(165, 320)
    173. If My.Settings.EMP10 = "Objektpläne" Then ButObjektplane.Location = New Point(165, 320)
    174. If My.Settings.EMP10 = "AAO" Then ButAAO.Location = New Point(165, 320)
    175. If My.Settings.EMP10 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(165, 320)
    176. If My.Settings.EMP10 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(165, 320)
    177. If My.Settings.EMP10 = "Löschbereich" Then ButLoschbereich.Location = New Point(165, 320)
    178. If My.Settings.EMP10 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(165, 320)
    179. If My.Settings.EMP10 = "Internet" Then ButInternet.Location = New Point(165, 320)
    180. If My.Settings.EMP10 = "E-Mail" Then ButEMail.Location = New Point(165, 320)
    181. If My.Settings.EMP10 = "Extern 1" Then ButExtern1.Location = New Point(165, 320)
    182. If My.Settings.EMP10 = "Extern 2" Then ButExtern2.Location = New Point(165, 320)
    184. 'Menü Position - EMP11
    185. If My.Settings.EMP11 = "Karte" Then ButKarte.Location = New Point(275, 320)
    186. If My.Settings.EMP11 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(275, 320)
    187. If My.Settings.EMP11 = "Löschwasser" Then ButLoschwasser.Location = New Point(275, 320)
    188. If My.Settings.EMP11 = "Kontakte" Then ButKontakte.Location = New Point(275, 320)
    189. If My.Settings.EMP11 = "Objektpläne" Then ButObjektplane.Location = New Point(275, 320)
    190. If My.Settings.EMP11 = "AAO" Then ButAAO.Location = New Point(275, 320)
    191. If My.Settings.EMP11 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(275, 320)
    192. If My.Settings.EMP11 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(275, 320)
    193. If My.Settings.EMP11 = "Löschbereich" Then ButLoschbereich.Location = New Point(275, 320)
    194. If My.Settings.EMP11 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(275, 320)
    195. If My.Settings.EMP11 = "Internet" Then ButInternet.Location = New Point(275, 320)
    196. If My.Settings.EMP11 = "E-Mail" Then ButEMail.Location = New Point(275, 320)
    197. If My.Settings.EMP11 = "Extern 1" Then ButExtern1.Location = New Point(275, 320)
    198. If My.Settings.EMP11 = "Extern 2" Then ButExtern2.Location = New Point(275, 320)
    200. 'Menü Position - EMP12
    201. If My.Settings.EMP12 = "Karte" Then ButKarte.Location = New Point(385, 320)
    202. If My.Settings.EMP12 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(385, 320)
    203. If My.Settings.EMP12 = "Löschwasser" Then ButLoschwasser.Location = New Point(385, 320)
    204. If My.Settings.EMP12 = "Kontakte" Then ButKontakte.Location = New Point(385, 320)
    205. If My.Settings.EMP12 = "Objektpläne" Then ButObjektplane.Location = New Point(385, 320)
    206. If My.Settings.EMP12 = "AAO" Then ButAAO.Location = New Point(385, 320)
    207. If My.Settings.EMP12 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(385, 320)
    208. If My.Settings.EMP12 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(385, 320)
    209. If My.Settings.EMP12 = "Löschbereich" Then ButLoschbereich.Location = New Point(385, 320)
    210. If My.Settings.EMP12 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(385, 320)
    211. If My.Settings.EMP12 = "Internet" Then ButInternet.Location = New Point(385, 320)
    212. If My.Settings.EMP12 = "E-Mail" Then ButEMail.Location = New Point(385, 320)
    213. If My.Settings.EMP12 = "Extern 1" Then ButExtern1.Location = New Point(385, 320)
    214. If My.Settings.EMP12 = "Extern 2" Then ButExtern2.Location = New Point(385, 320)
    216. 'Menü Position - EMP13
    217. If My.Settings.EMP13 = "Karte" Then ButKarte.Location = New Point(55, 430)
    218. If My.Settings.EMP13 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(55, 430)
    219. If My.Settings.EMP13 = "Löschwasser" Then ButLoschwasser.Location = New Point(55, 430)
    220. If My.Settings.EMP13 = "Kontakte" Then ButKontakte.Location = New Point(55, 430)
    221. If My.Settings.EMP13 = "Objektpläne" Then ButObjektplane.Location = New Point(55, 430)
    222. If My.Settings.EMP13 = "AAO" Then ButAAO.Location = New Point(55, 430)
    223. If My.Settings.EMP13 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(55, 430)
    224. If My.Settings.EMP13 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(55, 430)
    225. If My.Settings.EMP13 = "Löschbereich" Then ButLoschbereich.Location = New Point(55, 430)
    226. If My.Settings.EMP13 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(55, 430)
    227. If My.Settings.EMP13 = "Internet" Then ButInternet.Location = New Point(55, 430)
    228. If My.Settings.EMP13 = "E-Mail" Then ButEMail.Location = New Point(55, 430)
    229. If My.Settings.EMP13 = "Extern 1" Then ButExtern1.Location = New Point(55, 430)
    230. If My.Settings.EMP13 = "Extern 2" Then ButExtern2.Location = New Point(55, 430)
    232. 'Menü Position - EMP14
    233. If My.Settings.EMP14 = "Karte" Then ButKarte.Location = New Point(165, 430)
    234. If My.Settings.EMP14 = "Einsatzleiter Handbuch" Then ButEHandbuch.Location = New Point(165, 430)
    235. If My.Settings.EMP14 = "Löschwasser" Then ButLoschwasser.Location = New Point(165, 430)
    236. If My.Settings.EMP14 = "Kontakte" Then ButKontakte.Location = New Point(165, 430)
    237. If My.Settings.EMP14 = "Objektpläne" Then ButObjektplane.Location = New Point(165, 430)
    238. If My.Settings.EMP14 = "AAO" Then ButAAO.Location = New Point(165, 430)
    239. If My.Settings.EMP14 = "Sonderfahrzeuge" Then ButSonderfahrzeuge.Location = New Point(165, 430)
    240. If My.Settings.EMP14 = "Person in Wasser" Then ButPersoninWasser.Location = New Point(165, 430)
    241. If My.Settings.EMP14 = "Löschbereich" Then ButLoschbereich.Location = New Point(165, 430)
    242. If My.Settings.EMP14 = "Online Gefahrgut" Then ButOnlineGefahrgut.Location = New Point(165, 430)
    243. If My.Settings.EMP14 = "Internet" Then ButInternet.Location = New Point(165, 430)
    244. If My.Settings.EMP14 = "E-Mail" Then ButEMail.Location = New Point(165, 430)
    245. If My.Settings.EMP14 = "Extern 1" Then ButExtern1.Location = New Point(165, 430)
    246. If My.Settings.EMP14 = "Extern 2" Then ButExtern2.Location = New Point(165, 430)
    248. Catch ex As Exception
    250. End Try
    252. 'But Extern
    253. ButExtern1.Text = My.Settings.EMNameExtern1
    254. ButExtern2.Text = My.Settings.EMNameExtern2
    256. 'Benutzer
    257. If My.Settings.BStandard = "B1" Then LabBenutzerMini.Text = My.Settings.B1Name Else LabBenutzerMini.Text = My.Settings.B2Name
    259. '#######################################################################################################################################################################################
    260. 'EMAIL Abrufen
    261. '#######################################################################################################################################################################################
    263. 'Internet
    265. If testconnection() = True Then
    266. LabInternet.Text = "Verbunden"
    267. Else
    268. If testconnection() = False Then
    269. LabInternet.Text = "Getrennt"
    270. End If
    271. End If
    273. Dim pop3 As New POPClient
    275. If LabInternet.Text = "Verbunden" Then
    276. pop3.Disconnect()
    277. pop3.Connect("mail.muster.at", 110)
    278. pop3.Authenticate("prog@muster.at", "prog12345")
    280. LisBoxEmail1.Items.Clear()
    282. For i As Integer = 1 To pop3.GetMessageCount
    283. Dim m As MIMEParser.Message = pop3.GetMessage(i, False)
    285. LisBoxEmail1.Items.Add(m.Subject)
    287. If m.MessageBody.Count > 0 Then
    288. Dim Attach As New List(Of MIMEParser.Attachment)
    289. Messages.Add(m.MessageBody(m.MessageBody.Count - 1))
    291. For ii As Integer = 1 To m.AttachmentCount - 1
    292. Attach.Add(m.GetAttachment(ii))
    293. Next
    295. AttachArray.Add(Attach)
    296. End If
    298. ' pop3.DeleteMessage(i) ' Wenn die Message nach abholung gelöscht werden soll
    299. Next
    300. pop3.Disconnect()
    302. LisBoxEmail1.SelectedIndex = LisBoxEmail1.Items.Count - 1
    303. LisBoxEmail1.Select()
    304. TexBoxEinsatzText.Text = LisBoxEmail1.SelectedItem
    306. Else
    308. End If
    312. End Sub
    314. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „PatVB“ ()

    PatVB schrieb:

    Load.Event
    Da würde ich zunächst unheimlich viel in andere Prozeduren auslagern.
    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!

    PatVB schrieb:

    auslagern

    VB.NET-Quellcode

    1. Private Sub FormMainScreen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    2. Funktionalitaet1()
    3. Funktionalitaet2()
    4. Funktionalitaet3()
    5. Funktionalitaet4()
    6. 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!

Facebook
Telefonspende