console application

[snipeytje]

hoe moet ik als ik in een console application iemand iets laat invoeren het programma in het zelfde scherm antwoord laten geven?

 

[That Guy]

bedoel je zoals je cmd.exe? dat weet ik niet, maar wat ik zelf meestal doe is 1 groot textvlak, en 1 een-regel-vlak waar je je commando's in kan typen.

V. :thumb:

 

[snipeytje]

ja als cmd.exe
en blijven de vorige dan ook staan?

 

[That Guy]

ja, ik zal even de 'code' hieronder zetten:

textbox2 = grote textbox (multiline = true en locked = true)
textbox1 = 1-regel-textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim standart As String
standart = "»"
If KeyAscii = 13 Then
Text2.Text = standart & "  " & Text1.Text _
& vbCrLf & Text2.Text
Text1.SetFocus

Wat je nu krijgt is dat als de gebruiker bijvoorbeeld in text1 typt: "hallo!" dan komt in text2 te staan:

»hallo!

als de gebruiker dan typt: "Hallo alweer!" dan staat in text2:

»Hallo alweer!
»hallo!

enzovoorts
wat je dan verder zou kunnen doen:
(in de text1_KeyPress)

if text1.text = "Hallo" then
[COLOR="Green"][COLOR="Lime"][COLOR="SeaGreen"][COLOR="SeaGreen"]'Hier de code wat moet worden uitgevoerd als de gebruiker "Hallo" typt en er op enter gedrukt word[/COLOR][/COLOR][/COLOR][/COLOR]
Text1.Text = "" [COLOR="seagreen"]'Maak text1 leeg[/COLOR]
Text1.SetFocus [COLOR="seagreen"]'Zet de focus weer op text1 zodat de gebruiker direct verder kan typen[/COLOR]
End If

V :thumb:

ps. planetsourcecode.com heeft ook aardig wat van dit soort scripts, zoek op "console" ?

 

[snipeytje]

als ik die code invoer en debug en ik type yo gebeurt er niets