How to create my commands except select case method vb.net

Question

Making a textbased game. I have a command prompt its made from richtextbox as outputbox and textbox for inputtextbox. i need to make some commands like "cls" "dir" "config". lots of more commands in my list. i just stuck how to that and how to approach to solution. Here is my code i tyred some of 'em with select case method but its too primitive.

    Private Sub Output(s As String)
    If s <> "" Then
        nCounter = nCounter + 1
        sCounter = Convert.ToString(nCounter)
        consoleoutputbox.AppendText(vbCrLf & sCounter & " " & s)
    End If
End Sub
Private Sub consoleinputbox_KeyDown(sender As Object, e As KeyEventArgs) Handles consoleinputbox.KeyDown
    Dim Command As String = consoleinputbox.Text
    If e.KeyCode = Keys.Enter Then
        If Command <> "" Then
            Select Case Command
                Case "cls"
                    consoleoutputbox.Clear()
                    consoleinputbox.Clear()
                    consoleinputbox.Focus()
                    nCounter = 0
                Case "help"
                    Output("Welcome to help section. Avaliable commands:")
                    Output("help, cls")
                Case Else
                    Output(Command)
                    consoleinputbox.Clear()
                    consoleinputbox.Focus()
            End Select
        End If
    End If
End Sub

what else would you be looking for? at the end of the day it will end up like this or each command in its own sub then the case selecting the sub, either way the code has to be written so it knows what to do — bensonsearch, Apr 17 '14 at 01:06

score 0 · Answer 1 · answered Apr 17 '14 at 01:23

0

One option might be to define a module and add methods named after your commands. You could then use Reflection to find and invoke the method with the name entered by the user as a command.

answered Apr 17 '14 at 01:23

jmcilhinney

50,448
5
26
46

score 0 · Accepted Answer · answered Apr 17 '14 at 01:41

0

Perhaps a Dictionary(Of String, Action) would help. Put each thing(s) you want done into sub routines and add them to the dictionary with the command as the key:

Dim Commands As New Dictionary(Of String, Action)
Commands.Add("test1", New Action(AddressOf test))

Then just pass the string to the dictionary as the index and invoke the sub routine

Commands("test1").Invoke()

answered Apr 17 '14 at 01:41

tinstaafl

6,908
2
15
22

thank you tinstaafl i did not know about dictionary i will start studying it asap. And if i understand correctly i can add commands to dictionary then i can run them with invoke right? – Corviuse Apr 17 '14 at 22:06
Yes as per my example – tinstaafl Apr 18 '14 at 02:23

How to create my commands except select case method vb.net

2 Answers2