Big Fail ? Unerklärbarer Fehler + EIN WEITERER FEHLER !

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von iEi.

    Big Fail ? Unerklärbarer Fehler + EIN WEITERER FEHLER !

    HeyHo Com,

    hab einen Unerklärbaren Fehler ?!
    *Unten angehängt*

    meine Deklaration:

    VB.NET-Quellcode

    1. Private ReadOnly messages As New Dictionary(Of Integer, Message)()


    Code des "TreeNodeBuilder" 's

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports OpenPop.Mime
    3. Imports OpenPop.Mime.Traverse
    4. Imports Message = OpenPop.Mime.Message
    6. Namespace Core
    8. Friend Class TreeNodeBuilder
    9. Implements IAnswerMessageTraverser(Of TreeNode)
    10. Public Function VisitMessage(ByVal message As Message) As TreeNode
    11. If message Is Nothing Then
    12. Throw New ArgumentNullException("message")
    13. End If
    16. Dim child As TreeNode = VisitMessagePart(message.MessagePart)
    19. Dim topNode As New TreeNode(message.Headers.Subject, New Object() {child})
    21. Return topNode
    22. End Function
    24. Public Function VisitMessagePart(ByVal messagePart As MessagePart) As TreeNode
    25. If messagePart Is Nothing Then
    26. Throw New ArgumentNullException("messagePart")
    27. End If
    30. Dim children As TreeNode() = New TreeNode(-1) {}
    32. If messagePart.IsMultiPart Then
    34. children = New TreeNode(messagePart.MessageParts.Count - 1) {}
    36. For i As Integer = 0 To messagePart.MessageParts.Count - 1
    37. children(i) = VisitMessagePart(messagePart.MessageParts(i))
    38. Next
    39. End If
    42. Dim currentNode As New TreeNode(messagePart.ContentType.MediaType, children)
    45. currentNode.Tag = messagePart
    47. Return currentNode
    48. End Function
    49. End Class
    50. End Namespace


    Wie kann ich den beheben ?


    Gruß iEi
    Bilder

    • Fail.png

      191,81 kB, 1.366×768, 240 mal angesehen

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

    @iEi:: Was ist Message nicht aber Messages :?:

    VB.NET-Quellcode

    1. Private ReadOnly messages As New Dictionary(Of Integer, Message)()
    2. ----------------------------------------------------------^
    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!

    iEi schrieb:

    Eine Liste von E-Mails
    und wie deklariert?
    Was erwartet New Dictionary(Of x, y) von Dir an der Stelle y?
    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!

    iEi schrieb:

    Message ist Eine Liste von E-Mails.
    Passt das zusammen?
    Nein.
    Richtig. Also :?:
    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!

    Liegt es vielleicht am TreeNodeBuilder ?

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports OpenPop.Mime
    3. Imports OpenPop.Mime.Traverse
    4. Imports Message = OpenPop.Mime.Message
    6. Namespace Core
    8. Friend Class TreeNodeBuilder
    9. Implements IAnswerMessageTraverser(Of TreeNode) 'VIELLEICHT HIERAN ?
    10. Public Function VisitMessage(ByVal message As Message) As TreeNode
    11. If message Is Nothing Then
    12. Throw New ArgumentNullException("message")
    13. End If
    16. Dim child As TreeNode = VisitMessagePart(message.MessagePart)
    19. Dim topNode As New TreeNode(message.Headers.Subject, New Object() {child})
    21. Return topNode
    22. End Function
    24. Public Function VisitMessagePart(ByVal messagePart As MessagePart) As TreeNode
    25. If messagePart Is Nothing Then
    26. Throw New ArgumentNullException("messagePart")
    27. End If
    30. Dim children As TreeNode() = New TreeNode(-1) {}
    32. If messagePart.IsMultiPart Then
    34. children = New TreeNode(messagePart.MessageParts.Count - 1) {}
    36. For i As Integer = 0 To messagePart.MessageParts.Count - 1
    37. children(i) = VisitMessagePart(messagePart.MessageParts(i))
    38. Next
    39. End If
    42. Dim currentNode As New TreeNode(messagePart.ContentType.MediaType, children)
    45. currentNode.Tag = messagePart
    47. Return currentNode
    48. End Function
    49. End Class
    50. End Namespace

    VB.NET-Quellcode

    1. Imports OpenPop.Mime
    2. Imports OpenPop.Mime.Header
    3. Imports OpenPop.Pop3
    4. Imports OpenPop.Pop3.Exceptions
    5. Imports OpenPop.Common.Logging
    6. Imports Message = OpenPop.Mime.Message
    7. Imports ThunderMail.Core
    10. Public Class Form1
    11. Private ReadOnly messages As New Dictionary(Of Integer, Message)()
    12. Private ReadOnly pop3Client As Pop3Client
    13. Dim list As New List(Of String)
    14. Public Shared Function FetchUnseenMessages(ByVal hostname As String, ByVal port As Integer, ByVal useSsl As Boolean, ByVal username As String, ByVal password As String, ByVal seenUids As List(Of String)) As List(Of Message)
    16. Using client As New Pop3Client()
    18. client.Connect(hostname, port, useSsl)
    21. client.Authenticate(username, password)
    24. Dim uids As List(Of String) = client.GetMessageUids()
    27. Dim newMessages As New List(Of Message)()
    30. For i As Integer = 0 To uids.Count - 1
    31. Dim currentUidOnServer As String = uids(i)
    32. If Not seenUids.Contains(currentUidOnServer) Then
    34. Dim unseenMessage As Message = client.GetMessage(i + 1)
    37. newMessages.Add(unseenMessage)
    39. Dim message As Message = client.GetMessage(i)
    41. messages.Add(i, message)
    45. Dim node As TreeNode = New TreeNodeBuilder().VisitMessage(message)
    48. node.Tag = i
    51. Form1.listMessages.Nodes.Add(node)
    54. seenUids.Add(currentUidOnServer)
    55. End If
    56. Next
    59. Return newMessages
    60. End Using
    61. End Function
    63. Private Sub MetroButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetroButton1.Click
    64. ContextMenuStrip1.Show(MetroButton1, New Point(0, MetroButton1.Height))
    66. End Sub
    68. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    69. End
    71. End Sub
    73. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    74. If My.Settings.firstRun = False Then
    75. FirstStart.Show()
    76. My.Settings.firstRun = True
    77. My.Settings.Save()
    79. Else
    80. If My.Computer.Network.IsAvailable = True Then
    81. FetchUnseenMessages(My.Settings.IncomingServer, My.Settings.IncomingPort, True, My.Settings.userMailAdress, My.Settings.userMailPassword, list)
    82. Else
    83. MsgBox("Sie haben keine Verbindung zu einem Netzwerk.Sie sind nun Offline.", MsgBoxStyle.Critical)
    84. Bugtracker.RichTextBox1.Text = Bugtracker.RichTextBox1.Text & vbCrLf & "$retried_no:connection"
    85. End If
    87. End If
    89. Me.Text = My.Settings.userMailAdress & " - ThunderMail"
    91. If My.Computer.Network.IsAvailable = True Then
    92. ToolStripButton6.ToolTipText = "Sie sind Online"
    93. StatusLbl.Text = "Sie sind Online."
    94. Else
    95. ToolStripButton6.ToolTipText = "Sie sind mit keinem Netzwerk verbunden."
    96. StatusLbl.Text = "Sie sind mit keinem Netzwerk verbunden."
    97. End If
    98. End Sub
    99. End Class

    Die Funktion ist Shared und die Variable nicht.
    Entweder du machst die Variable auch Shared oder die Funktion halt nicht.

    Mischen geht leider nicht. (Zumindest nicht so wie du. Umgekehrt jedoch schon (Variable Shared - Funktion non Shared))

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Facebook
Telefonspende