Auf Wert aus DLL zugreifen.

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von optz.

    Auf Wert aus DLL zugreifen.

    Hi,

    Ich habe eine wahrscheinlich blöde Frage.
    Kann man aus einem Sub in einer DLL (selbst erstellt) auf einen Wert zugreifen bzw. kann der Sub einen wert Zurückgeben ohne das er seine derzeitige Aufgabe abbricht, weil mit Return und einer Function geht es ja nicht oder kann man verhindern das Return die Prozedur beendet?

    Vielen dank für die Hilfe und sorry für den sehr verschachtelten Satz.

    MfG
    optz

    Das widerspricht vollkommen der Definition einer Funktion. Sobald was zurückgegeben wird, ist die Funktion beendet - fertig. Man kann nicht zwischendrin was zurückgeben, wie denn auch, wenn der Programmfluss ja gerade in der Funktion ist.
    Die einzige Möglichkeit, überhaupt so was ähnliches hinzubekommen, wäre Threading, denn dann kann auch was passieren, während die Funktion ausgeführt wird. Also so ne Art Fortschrittsbenachrichtigung, da wird aber nichts zurückgegeben, sowas regelt man dann normalerweise über Events.

    EDIT, da die Guidelinepolizeit (aka Artentus) Verbesserungen beantragt hat:
    (Orginal)

    VB.NET-Quellcode

    1. Module Module1
    2. Private WithEvents _InDeinerDLL As New InDeinerDLL() 'Instanzieren
    3. Sub Main()
    4. _InDeinerDLL.DoStuff()
    5. End Sub
    6. Private Sub Schritt1Fertig(data As Integer) Handles _InDeinerDLL.Step1Ready
    7. Console.WriteLine(data) 'Mach irgendwas mit den Daten
    8. End Sub
    9. End Module
    11. Class InDeinerDLL
    12. Event Step1Ready(data As Integer)
    13. Sub DoStuff()
    14. Threading.Thread.Sleep(1000) 'Tu was aufwändiges
    15. RaiseEvent Step1Ready(12345) 'Schritt 1 fertig
    16. Threading.Thread.Sleep(1500) 'Tu was aufwändiges
    17. 'etc.
    18. End Sub
    19. End Class


    So was vl.? No C&P, pls.


    Schönerer Code:

    VB.NET-Quellcode

    1. Module Module1
    2. WithEvents _InDeinerDLL As New InDeinerDLL() 'Instanzieren
    3. Sub Main()
    4. _InDeinerDLL.DoStuff()
    5. End Sub
    6. Private Sub Schritt1Fertig(sender As Object, e As InDeinerDLL.DoStuffEventArgs) Handles _InDeinerDLL.Step1Ready
    7. Console.WriteLine(e.data) 'Mach irgendwas mit den Daten
    8. End Sub
    9. End Module
    11. Class InDeinerDLL
    12. Event Step1Ready(sender As Object, e As DoStuffEventArgs)
    13. Sub DoStuff()
    14. Threading.Thread.Sleep(1000) 'Tu was aufwändiges
    15. RaiseEvent Step1Ready(Me, New DoStuffEventArgs(12345)) 'Schritt 1 fertig
    16. Threading.Thread.Sleep(1500) 'Tu was aufwändiges
    17. 'etc.
    18. End Sub
    19. Class DoStuffEventArgs
    20. Inherits EventArgs
    21. Sub New(_data As Integer)
    22. data = _data
    23. End Sub
    24. Public data As Integer
    25. End Class
    26. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BjöNi“ ()

Facebook
Telefonspende