Hallo.
Und zwar möchte ich in der Konsole Befehle auswerten.
in Submain Rufe ich auf:
Ich gebe "n" ein und das klappt soweit.
Gebe ich dann jedoch "y" ein, schliesst sich die Konsole. Wieso das?
Hab doch eine While True Schleife , in der immer wieder
Dim T As String = Console.ReadLine aufgerufen wird.
Und zwar möchte ich in der Konsole Befehle auswerten.
VB.NET-Quellcode
- Private Sub FillCommands()
- CommandDict.Clear()
- Dim ad As Action(Of String, Action) = Sub(x As String, d As Action)
- CommandDict.Add(x, d)
- End Sub
- ad("n", Sub()
- GetNewRandomAcc()
- W(String.Concat("Use this? (Nick|Age|PLZ): ", CurrentFinNick.Name, " | ", CurrentFinNick.Age, " | ", CurrentFinNick.PLZ), False, ConsoleColor.Yellow)
- End Sub)
- ad("y", Sub()
- Console.WriteLine("I did send.")
- End Sub)
- End Sub
- Private Sub ReadCommands()
- Task.Factory.StartNew(Sub()
- While True
- Dim T As String = Console.ReadLine
- Dim de As Action = CommandDict.SingleOrDefault(Function(w) w.Key.ToLower = T.ToLower).Value
- de()
- End While
- End Sub)
- End Sub
in Submain Rufe ich auf:
Ich gebe "n" ein und das klappt soweit.
Gebe ich dann jedoch "y" ein, schliesst sich die Konsole. Wieso das?
Hab doch eine While True Schleife , in der immer wieder
Dim T As String = Console.ReadLine aufgerufen wird.