CallByName - Konsolenanwendung

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von 360.

    CallByName - Konsolenanwendung

    Hi,

    ich habe schon die SuFu und ausführlich Google benutzt, allerdings komm ich einfach nicht weiter und bin schon langsam am verzweifeln.

    Ich habe eine Konsolenanwendung in der mehrere Subs sind. Dazu kommt ein Array das die Namen der vorhandenen Subs speichert, macht der User jetzt eine Eingabe wird überprüft ob die Eingabe mit einem der im Array angegebenen Strings vorhanden ist.. wenn ja, soll die entsprechende Sub ausgeführt werden..

    Ich möchte das ohne If und Case machen, das wäre zum Schluss nämlich mehrere 100 Zeilen lang und mir zu unübersichtlich.

    Wenn ich CallByName(Me, ...) mache, sagt er mir: "Me" ist innerhalb eines Moduls ungültig.

    Wie kann ich denn dem sagen dass das ne Sub ist auf der er das ausführen soll?



    Ich hoffe ihr versteht mich und ich hab hier jetzt nichts durcheinander gebracht..

    Gruß! :)

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. setCommand(Console.ReadLine())
    5. End Sub
    7. Public Sub setCommand(ByVal commandTotal As String)
    9. Dim availableCommands() As String = {"befehl1", "befehl2", "befehl3"}
    11. For i As Integer = 0 To availableCommands.Length - 1
    12. If commandTotal = availableCommands(i) Then
    13. Console.WriteLine("True! - " & availableCommands(i))
    14. Console.ReadLine()
    15. CallByName(Me, availableCommands(i), CallType.Method)
    16. Else
    17. Console.WriteLine("False!")
    18. End If
    19. Next
    21. End Sub
    23. Public Sub befehl1()
    24. Console.WriteLine("Das war befehl1")
    25. Console.ReadLine()
    26. End Sub
    28. Public Sub befehl2()
    29. Console.WriteLine("Das war befehl2")
    30. Console.ReadLine()
    31. End Sub
    33. Public Sub befehl3()
    34. Console.WriteLine("Das war befehl3")
    35. Console.ReadLine()
    36. End Sub
    38. End Module

    VB.NET-Quellcode

    1. CallByName(Module1, availableCommands(i), CallType.Method)


    "Module1" ist ein Typ und kann nicht als Ausdruck verwendet werden.


    Die Idee hatte ich vorher auch schon ausprobiert, aber wie man sieht funktioniert auch das nicht. :(

    Perfekt! Ich habs nach der Möglichkeit von Warflev gemacht:

    Modul1.vb

    VB.NET-Quellcode

    1. Module Module1
    3. Dim Class1 As New Class1
    5. Sub Main()
    6. Class1.setCommand(Console.ReadLine())
    7. End Sub
    9. End Module


    Class1.vb

    VB.NET-Quellcode

    1. Public Class Class1
    3. Public Sub setCommand(ByVal commandTotal As String)
    4. Dim availableCommands() As String = {"befehl1", "befehl2", "befehl3"}
    6. For i As Integer = 0 To availableCommands.Length - 1
    7. If commandTotal = availableCommands(i) Then
    8. Console.WriteLine("True! - " & availableCommands(i))
    9. Console.ReadLine()
    10. CallByName(Me, availableCommands(i), CallType.Method)
    11. Else
    12. Console.WriteLine("False!")
    13. End If
    14. Next
    15. End Sub
    17. Public Sub befehl1()
    18. Console.WriteLine("Das war befehl1")
    19. Console.ReadLine()
    20. End Sub
    22. Public Sub befehl2()
    23. Console.WriteLine("Das war befehl2")
    24. Console.ReadLine()
    25. End Sub
    27. Public Sub befehl3()
    28. Console.WriteLine("Das war befehl3")
    29. Console.ReadLine()
    30. End Sub
    31. End Class


    Danke an euch!

Facebook