Hallo! ich habe ein programm geschrieben, wo es auch eine enwicklerconsole gibt! über diese würde ich mir gerne geld geben! funktioniert aber nicht so wie ich es will.
das ist nur der case command, den kompletten case code findet ihr unten.
Fehlermeldung:
soweit funkt jeder kommand, außer der money command!
das ist nur der case command, den kompletten case code findet ihr unten.
Fehlermeldung:
VB.NET-Quellcode
- If e.KeyCode = Keys.Return Then
- Dim LowerCase As String = MetroTextbox1.Text.ToLower
- ' Select is basically a very quick if statement which takes one variable and compares it with various possible outputs/states
- Select Case LowerCase ' This is where you assign the variable to check
- Case "helloworld" ' This should be something the variable may contain
- RichTextBox1.AppendText(GST.SayHelloWorld + vbNewLine)
- Exit Select
- Case "clear"
- RichTextBox1.Text = ""
- Exit Select
- Case "help"
- RichTextBox1.AppendText("hello - executes an test command" + vbNewLine)
- RichTextBox1.AppendText("clear - clears the console" + vbNewLine)
- RichTextBox1.AppendText("addcash - adds a amount of cash. example: addcash 5000" + vbNewLine)
- Exit Select
- Case "addcash" + My.Settings.CheatMoney
- My.Settings.Money = My.Settings.CheatMoney + My.Settings.Money
- Me.Refresh()
- RichTextBox1.AppendText("Added " & My.Settings.CheatMoney & " € !" + vbNewLine)
- Exit Select
- Case Else ' This is triggered when all cases fail
- RichTextBox1.AppendText("Unknown command! try help for a list!" + vbNewLine)
- End Select
- MetroTextbox1.Text = ""
- End If
soweit funkt jeder kommand, außer der money command!