[VB6] Emulare "backspace" nella finestra di un terminale

[tecnoguru]

Ho creato una sorta di hyperterminal ma il BACK SPACE non funziona, al posto di tornare indetro di un carattere mi scrive caratteri strani. Come posso risolvere?......

[oregon]

Originariamente inviato da tecnoguru
Come posso risolvere?......

Postare il codice ... ?

[tecnoguru]

Private Sub Rich_terminal_KeyPress(KeyAscii As Integer)
frmMain.MSComm1.Output = Chr$(KeyAscii)

End Sub

Rx$ = frmMain.MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
frm_Terminal.Rich_terminal.Text = frm_Terminal.Rich_terminal.Text & Rx$
End If

spero che sia sufficente.....

[tecnoguru]

Originariamente inviato da tecnoguru
Private Sub Rich_terminal_KeyPress(KeyAscii As Integer)
frmMain.MSComm1.Output = Chr$(KeyAscii)

End Sub

Rx$ = frmMain.MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
frm_Terminal.Rich_terminal.Text = frm_Terminal.Rich_terminal.Text & Rx$
End If

spero che sia sufficente.....

[oregon]

All'interno di questa If

If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
   frm_Terminal.Rich_terminal.Text = frm_Terminal.Rich_terminal.Text & Rx$
End If

devi considerare che, se il dato ricevuto e' il back space (ASCII 8), non devi aggiungere Rx$ al testo ma eliminare dal testo l'ultimo carattere a destra ...