HeyHo Com,
hab einen Unerklärbaren Fehler ?!
*Unten angehängt*
meine Deklaration:
Code des "TreeNodeBuilder" 's
Wie kann ich den beheben ?
Gruß iEi
hab einen Unerklärbaren Fehler ?!
*Unten angehängt*
meine Deklaration:
Code des "TreeNodeBuilder" 's
VB.NET-Quellcode
- Imports System.Windows.Forms
- Imports OpenPop.Mime
- Imports OpenPop.Mime.Traverse
- Imports Message = OpenPop.Mime.Message
- Namespace Core
- Friend Class TreeNodeBuilder
- Implements IAnswerMessageTraverser(Of TreeNode)
- Public Function VisitMessage(ByVal message As Message) As TreeNode
- If message Is Nothing Then
- Throw New ArgumentNullException("message")
- End If
- Dim child As TreeNode = VisitMessagePart(message.MessagePart)
- Dim topNode As New TreeNode(message.Headers.Subject, New Object() {child})
- Return topNode
- End Function
- Public Function VisitMessagePart(ByVal messagePart As MessagePart) As TreeNode
- If messagePart Is Nothing Then
- Throw New ArgumentNullException("messagePart")
- End If
- Dim children As TreeNode() = New TreeNode(-1) {}
- If messagePart.IsMultiPart Then
- children = New TreeNode(messagePart.MessageParts.Count - 1) {}
- For i As Integer = 0 To messagePart.MessageParts.Count - 1
- children(i) = VisitMessagePart(messagePart.MessageParts(i))
- Next
- End If
- Dim currentNode As New TreeNode(messagePart.ContentType.MediaType, children)
- currentNode.Tag = messagePart
- Return currentNode
- End Function
- End Class
- End Namespace
Wie kann ich den beheben ?
Gruß iEi
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „iEi“ ()