Ciao a tutti,
dopo un replace all la normale funzione undo e redo non funzionano.
Allora ne codice ho trovato una funzione che risolve il problema dell'undo.
Ho fatto così:
a livello di modulo ho inserito lr istruzioni:
codice:
Private Undos As List(Of String) = New List(Of String)()
Private AddUndo As Boolean = True
Poi nella voce di menu 'undo' ho inserito il seguente codice:
codice:
If Undos.Count <> 0 Then
AddUndo = False
If Undos.Count > 1 Then
Document.Text = Undos(Undos.Count - 2)
Undos.RemoveAt(Undos.Count - 1)
Else
Undos.RemoveAt(0)
End If
AddUndo = True
End If
Poi nell'evento richtexbox_TextChanged ho inserito_
codice:
If AddUndo = True Then
Undos.Add(Document.Text)
End If
E così ho risolto il problema dell'undo
Ora non riesco a fare la stessa cosa per in redo.
Non dovrebbe essere difficile perchè ho il codice per l'undo, mo non riesco a farlo.
Qualcuno potrebbe aiutami a risolvere il problema?
Grazie a tutti in anticipo
Saluti