VB6 richtextbox codice per cancellare un carattere

[androita]

Ciao a tutti nel mio form ho creato una tastiera, dove ad ogni pulsante è assegnata una lettera, percio in base ai pulsanti che sciaccio, inserisco delle lettere dentro la richtextbox...

il codice di ogni pulsante è

Private Sub Command20_Click()
RichTextBox1.SelText = "W"
RichTextBox1.SetFocus
End Sub


il problema è che qnd voglio cancellare una lettera, io ho provato a srivere

Private Sub Command20_Click()
RichTextBox1.SelText = chr(8)
RichTextBox1.SetFocus
End Sub

ma non cancella niente, anzi compare la barra verticale |

la mia esigenza è quella di poter cancellare la lettere prima del tratto che lampeggia, perche ho visto che potrei prendere il contenuto delle richtextbox togliedo l'ultima lettera, pero se io devo cancellare una lettere in mezzo devo selezionarla col mouse e poi cancellarla....


Spero di essere stato chiaro

grazie

[androita]

nessuno riesce a darmi una mano????

ho pensato ad un altra soluzione

cosi come detto prima cancello l'ultima lettera delle richtextbox,

lung = Len(RichTextBox1.Text)
If lung > 0 Then
stringa = Mid(RichTextBox1.Text, 1, lung - 1)
RichTextBox1.Text = stringa
RichTextBox1.SelStart = lung
End If

esempio:

"ciao a tutti"

diventa con il codice scritto sopra "ciao a tutt"

io vorrei che se metto il puntatore del mouse in mezzo al testo mi cancelli la parola..

ESEMPIO:

"ciao a tu|tti"

diventa "ciao a ttti"

percio il problema sta nella variabile lung, perche questa variabile prende l'intera lunghezza della richtextbox, mentre io vorrei che prendesse la lunghezza dall'inizio a dove è posizionato il puntatore, secondo voi è possibile????


grazie

[gibra]

A parte che:
1) Inserire un carattere, è una cosa.
2) Premere un tasto, è un'altra.
3) la funzione Chr() serve solo a visualizzare il codice ASCII di un carattere.

Si usa SendKeys che simula l'invio di un tasto al controllo attivo:

Private Sub Command1_Click()
    RichTextBox1.SetFocus    'Deve avere il focus!
    SendKeys "{BACKSPACE}"
End Sub

[androita]

grazie gibra, un altra volòta mi sei stato di aiuto...

stavo impazzendo nn sapevo piu cosa pensare!!!


grazie ancora

[gibra]

Prego!