How do I get this to return the text (like in dos)

[dimava]

here is my current code:

Private Sub txtLine1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
    Case vbKeyLeft:
    txtLine1.Text = Left(txtLine1.Text, Len(txtLine1.Text) - 1)
    txtLine1.SelStart = Len(txtLine1.Text) & " "
    txtLine1.SetFocus
    SendKeys "{END}"

    Case vbKeyControl:
    KeyCode = 0
    
    Case vbKeyRight:
    KeyCode = 0
    
    Case vbKeyUp:
    KeyCode = 0
    
    Case vbKeyDown:
    KeyCode = 0
    
    Case vbKeyHome:
    KeyCode = 0
    
    Case vbKeyDelete:
    KeyCode = 0
    
    Case vbKeyEscape:
    SendKeys "`", True
    
    Case vbKeySnapshot:
    frmDOS.PrintForm
    End Select

End Sub

now when someone clicks the left arrow it deletes the stuff from the right (just like dos)
now how do I get it restore what was there when someone clicks the right arrow (just like in dos)?

thanks in advance


Dimava

Try this:

Case vbKeyRight:
    SendKeys "^z", True

This will undo what was done.

[Iain17]

If i remember correctly, to get DOS to remember what was typed for more than the current command, you had to load the DOSKEY program.

The way i think it worked, is it kept a list of what had been typed in. I suggest you keep what has been typed into the text box, and work on that, depending on the cursor position.

And by the way, if you press the left key in DOS, it does not delete anything. The backspace key does that job, as it should, but pressing the right key, restores what has been deleted.