Discussion :

[Invité]

bonjour a tousse
j'ai un tout petit probleme en vb

j'ai fait un bloc note en vb avec un richtextbox
je voullait faire un bouton édition annuler
mais alors la je ne sais vraiment pas comment on fait sa
je voullait juste quand j'appuie sur le bouton annuler sa annule la derniere opération

pouvez vous m'aider

[mactwist69]

Salut,

Je vois deux solution. Soit a chaque modification du texte, tu enregistre ce qui a changer (Ajouter "A" en fin de chaine), ducoup tu peux essayer de faire machine arrière (supprimer "A" en fin de chaine.

Mais ça me parait compliquer puisque l'utilisateur peut copier coller, supprimer et ajouter partout dans ton texte.

Sinon tu pourrais utiliser deux String pour faire un "historique". Par exemple a chaque Text_Changed tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonString1 = MonString2
MonString2 = MonRichTextBox.Text

Et si l'utilisateur fais annuler tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonRichTextBox.text = MonString1

Si tu veux sauvegarder deux actions, il faut 3 string etc...

[Invité]

a oki j'arrive un peu a comprendre
donc le code de mon bouton annuler c'est juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonRichTextBox.text = MonString1

ou doit-je placer sa ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonString1 = MonString2
MonString2 = MonRichTextBox.Text

[Sehnsucht]

Sinon il y a aussi la possibilité d'utiliser les possibilités offertes par le contrôle RichTextBox qui gère très bien l' Undo/Redo voici un exemple simple, un RichTextBox, deux Button (Enabled = False en mode design) :

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
' ... remplace ByVal sender As Object, ByVal e As EventArgs
Private Sub btnRedo_Click(...) Handles btnRedo.Click
    rtxtNote.Redo()
    SetUI()
End Sub
 
Private Sub btnUndo_Click(...) Handles btnUndo.Click
    rtxtNote.Undo()
    SetUI()
End Sub
 
Private Sub rtxtNote_TextChanged(...) Handles rtxtNote.TextChanged
    SetUI()
End Sub
 
Private Sub SetUI()
    btnRedo.Enabled = rtxtNote.CanRedo
    btnUndo.Enabled = rtxtNote.CanUndo
End Sub

Et voilà le travail ! pour quelque chose d'un peu plus poussé, regarder du côté des propriétés/méthodes (en vrac) du RichTextBox

• ClearUndo() [Note: lors de la sauvegarde du document par exemple]
• RedoActionName [Note: regarder le fonctionnement des boutons Undo/Redo de Visual Studio pour se faire une idée de l'utilisation]
• UndoActionName [Voir note précédente]

[Invité]

voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub AnnulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnnulerToolStripMenuItem.Click
        rtxtNote.Annuler()
        SetUI()
    End Sub
    Private Sub rtxtNote_TextChanged(...) Handles rtxtNote.TextChanged
        SetUI()
    End Sub
    Private Sub SetUI()
        btnAnnuler.Enabled = rtxtNote.CanUndo
    End Sub

par contre il me dit que rtxNote n'est pas déclarer
dans (...) il me souligne le premier point et dit: identificateur atendu
et pour finir il me souligne rtxNote après handles et il dit: la clause handles requiert une variable withevents définie dans le type conteneur ou l'un de ses type de base
que faire ?

[Sehnsucht]

Tu as su comprendre que "mon" btnUndo correspondait à "ton" btnAnnuler, il en est de même pour "mon" rtxtNote", tu doit le remplacer par le nom de "ton" RichTextBox