Discussion :

[lepiaf69]

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 :

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

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.

[methylene]

Salut,

Code :

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

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

[sihammaster]

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 :

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

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

[lepiaf69]

merci beaucoup