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

[Invité]

oki mais voici mon nouveau 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
        RichTextBox.Annuler()
        SetUI()
    End Sub
    Private Sub rtxtNote_TextChanged(...) Handles RichTextBox.TextChanged
        SetUI()
    End Sub
    Private Sub SetUI()
        btnAnnuler.Enabled = RichTextBox.CanUndo
    End Sub

alors cette fois si il en souligne un peu moins
il souligne richtextbox.annuler et il dit que: annuler n'est pas un membre de richtextboxprintctrl
et aussi que btnannuler n'est pas déclarer
que faire ?

[Sehnsucht]

Au lieu de mettre n'importe quoi n'importe où, regarde un peu mon exemple essaie de comprendre comment il fonctionne (rappel pour MON EXEMPLE j'utilise deux Button et un RichTextBox).

Toi tu as aussi un RichTextBox, je ne suis pas devin je ne peux pas deviner son nom, donc j'ai utilisé un nom "fictif" pour mon exemple à toi de le remplacer par le nom du tien.

Quant au bouton Undo ou Annuler peu importe, du peu que je vois de ton code tu n'utilise pas un contrôle de type Button, donc je ne sais pas où tu es allé inventer un "btnAnnuler".

Bref, pour faire court, utilise tes noms de contrôles en remplacement des miens et ça marchera tout seul sans erreur

[Invité]

oki oki
j'ai un richtextbox
et un bouton annuler
donc voici mon nouveau code je progresse parce que cette fois si il n'y a plus d'erreur mais sa ne marche pas quand je clique sur annuler il supprimer
ma richtextbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub AnnulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnnulerToolStripMenuItem.Click
        RichTextBox.Undo()
        SetUI()
    End Sub
 
    Private Sub SetUI()
        RichTextBox.Enabled = RichTextBox.CanUndo
    End Sub
 
    Private Sub RichTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox.TextChanged
        SetUI()
    End Sub

[Invité]

j'ai voulu éssayer le premier exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub AnnulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnnulerToolStripMenuItem.Click
        Dim monstring1 As String
        RichTextBox.Text = MonString1
    End Sub
 
    Private Sub RichTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox.TextChanged
        Dim monstring1 As String
        Dim monstring2 As String
        monstring1 = monstring2
        monstring2 = RichTextBox.Text
    End Sub

et dans monstring1 = monstring2 il souligne monstring2 et dit:

La variable 'monstring2' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution

dsl si j'ai pas bien compris le 2eme exemple mais bon c'est pas toujours simple