Programming Forums > Application Development > Visual Basic

mikaoj · Aug 7th, 2005, 3:07 PM

Hi!

I try to make a program in Visual Basic. Just for fun.
This program is like the command line in Windows.
There is one textbox, Rich Textbox and one command button.
If you write help, it should come up a list of commands i can use in the program.
I wrote this:

(Toggle Plain Text)

If txtCommandLine = "help" Then
rtfConsole.Text = "Some text"
Etc...
End If

But, when I try to run the program and write help. Nothing happends.
It's my code bad?

BrianN · Aug 11th, 2005, 1:56 PM

try having your code say txtCommandLine.text instead of just txtcommandline
also another thing could be that the case of the text isn't the same. I would change your code to be something like this:

make sure that when you use the lcase$ command that your text that it is compairing it to is in lowercase

(Toggle Plain Text)

If lcase$(txtCommandLine.text) = "help" Then
rtfConsole.Text = "Some text"
Etc...
End If

Also if you have multiple commands i would suggest using a select case type setup instead.

(Toggle Plain Text)

Select case lcase$(txtcommandline.text)
case "help":
   'whatever you would do when they type help
case "anothercommand":
  ' whatever you would do when they type anothercommand
end select

mikaoj · Aug 12th, 2005, 11:38 AM

Ok! I'll try.

Rory · Sep 7th, 2005, 2:12 PM

If you use the split() and trim() functions appropriately you could also deal with whitespace and command parameters. Also using strcomp(a,b,vbTextCompare) or Select Case Ucase(something) will add case-insensitivity.

Aug 7th, 2005, 3:07 PM	#1
mikaoj Programmer Join Date: Aug 2005 Location: Norway Posts: 56 Rep Power: 0	Problems with Rich Textbox. Hi! I try to make a program in Visual Basic. Just for fun. This program is like the command line in Windows. There is one textbox, Rich Textbox and one command button. If you write help, it should come up a list of commands i can use in the program. I wrote this: (Toggle Plain Text) If txtCommandLine = "help" Then rtfConsole.Text = "Some text" Etc... End If If txtCommandLine = "help" Then rtfConsole.Text = "Some text" Etc... End If But, when I try to run the program and write help. Nothing happends. It's my code bad? __________________ Heh.

Aug 11th, 2005, 1:56 PM	#2
BrianN Newbie Join Date: Aug 2005 Posts: 6 Rep Power: 0	try having your code say txtCommandLine.text instead of just txtcommandline also another thing could be that the case of the text isn't the same. I would change your code to be something like this: make sure that when you use the lcase$ command that your text that it is compairing it to is in lowercase (Toggle Plain Text) If lcase$(txtCommandLine.text) = "help" Then rtfConsole.Text = "Some text" Etc... End If If lcase$(txtCommandLine.text) = "help" Then rtfConsole.Text = "Some text" Etc... End If Also if you have multiple commands i would suggest using a select case type setup instead. (Toggle Plain Text) Select case lcase$(txtcommandline.text) case "help": 'whatever you would do when they type help case "anothercommand": ' whatever you would do when they type anothercommand end select Select case lcase$(txtcommandline.text) case "help": 'whatever you would do when they type help case "anothercommand": ' whatever you would do when they type anothercommand end select

Aug 12th, 2005, 11:38 AM	#3
mikaoj Programmer Join Date: Aug 2005 Location: Norway Posts: 56 Rep Power: 0	Ok! I'll try. __________________ Heh.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sep 7th, 2005, 2:12 PM	#4
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	If you use the split() and trim() functions appropriately you could also deal with whitespace and command parameters. Also using strcomp(a,b,vbTextCompare) or Select Case Ucase(something) will add case-insensitivity.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Problems with Rich Textbox.