For Each et RichTextBoxPrintCtrl

Bonjour a tous.

Je travail actuellement sur une appli de présentation. L’utilisateur réalise des pages de présentation a l’aide de picturebox (pour des photos), textbox (pour des titres), Richtextbox (pour des zones de text), ….
Pour pouvoir imprimer les richtextbox j’utilise le célèbre RichTextBoxPrintCrtl de microsoft.
Tous les controles sont insérés dynamiquement.
Le problème est le suivant.
Je ne peut pas travailler mes Richtextbox avec des instructions For each.
Ex.

Déclaration

Code:

---

1 2	Public Rch As RichTextBoxPrintCtrl Rch = New RichTextBoxPrintCtrl

---

Evènement d’un Bouton

Code:

---

1 2 3 4 5 6

For Each Page As Control In Page1.Controls If TypeOf Page Is RichTextBoxPrintCtrl Then Dim C As RichTextBoxPrintCtrl = CType(Page, RichTextBoxPrintCtrl) C.BorderStyle = BorderStyle.FixedSingle End If Next

---

Mais la Rien …

Si vous avez une idée je suis preneur…

BM42

Re.

Problème résolu

en fait le problème venait de

Code:

---

For Each Page As Control In Page1.Controls

---

devient

Code:

---

For Each Page As Control In Page2.Controls

---

Il suffisait juste de chercher au bon endroit :oops:

La j'ais un peu honte ...:pleure:

A+

BM42