Boucle FOR - Effacer contenu RichTextBOx

Bonjour à tous,

je désire effectuer une boucle for pour effacer le contenu dans des Richtextbox (de 1 à 70).

j'ai effectuer cela mais, cela ne marche pas :(.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click   Dim A As String For A = RichTextBox1 To RichTextBox70 Step 1   RichTextBox.clear ()   Next A   End Sub

---

MErci d'avance des réponses.

Salut,

Code:

---

1 2 3 4 5 6 7 8 9

For Each ctrl In Me.Controls   If TypeOf ctrl Is RichTextBox Then   ctrl.Clear()   End If   Next

---

Bonjour,
Voila un bout de code permettant d'effacer le contenu des controles dont le type est richtextbox tu peux le refaire par n'import quel autre control(textbox,..)

Code:

---

1 2 3 4 5 6

Dim x As Control For Each x In Controls If TypeOf x Is RichTextBox Then x.Text = "" End If Next

---

bonne continuation:ccool:

merci beaucoup