''' <summary>
    ''' Gibt in einer Messagebox das Projekt zu einem Dokument aus
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub GetProjekt()
        Dim Dokument As PDMWorks.PDMWDocument
        Dim Projekt As String
        Dokument = Connection.GetSpecificDocument("Doppelnippel Konisch.SLDPRT")
        TSLblInfo.Text = "Das Dokument " & Dokument.Name & " wird angefordert."
        Projekt = Dokument.project
 
        MsgBox(Projekt)
        TSLblInfo.Text = "Fertig"
    End Sub

    ''' <summary>
    ''' In Main-Form. 
    ''' Gibt in einer Messagebox das Projekt zu einem Dokument aus.
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>
    ''' Der Handler updated ein Label auf der Form das den aktuellen Status 
    ' wiedergeben soll.
    ''' </remarks>
    Private Sub EDrawingsCLSToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      EDrawingsCLSToolStripMenuItem.Click
 
        Dim EDRW As New EDrawingsCLS
        AddHandler EDRW.UpdateLabel, AddressOf LabelUpdate
        Dim Projekt As String
        Projekt = EDRW.GetProjekt(Connection, "Doppelnippel Konisch.SLDPRT")
        RemoveHandler EDRW.UpdateLabel, AddressOf LabelUpdate
 
        LabelUpdate("Fertig")
    End Sub
 
    ''' <summary>
    ''' Updated das InfoLabel
    ''' </summary>
    ''' <param name="Text">Der Einzutragende Text</param>
    ''' <remarks></remarks>
    Public Sub LabelUpdate(ByVal Text As String) 
        TSLblInfo.Text = Text
    End Sub

''' <summary>
''' Enthällt Befehle für die Verarbeitung mit Hilfe eines EDrawings 
' Steuerelementes
''' </summary>
''' <remarks>
''' Zunächst nur für Testzwecke!
''' </remarks>
''' 
Public Class EDrawingsCLS
    Public Event UpdateLabel(ByVal text As String)
 
#Region "Test Projekt"
    ''' <summary>
    ''' Test! Gibt das Projekt von einem Dokument aus.
    ''' </summary>
    ''' <param name="con">Die Verbindung</param>
    ''' <param name="Dokument">Als String das Dokument</param>
    ''' <returns>String mit dem Projekt</returns>
    ''' <remarks></remarks>
    Public Function GetProjekt(ByVal con As PDMWorks.PDMWConnection, ByVal _
      Dokument As String)
        Dim Dok As PDMWorks.PDMWDocument
 
        RaiseEvent UpdateLabel("Das Dokument " & Dokument & " wird" & _
          "angefordert.")
        Dok = con.GetSpecificDocument(Dokument)
 
        Return Dok.project
 
    End Function
#End Region
 
End Class