Discussion :

[BM42]

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 :

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

1
2
Public Rch As RichTextBoxPrintCtrl
Rch = New RichTextBoxPrintCtrl

Evènement d’un Bouton

Code :

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

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

[BM42]

Re.

Problème résolu

en fait le problème venait de

Code :

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

For Each Page As Control In Page1.Controls

devient

Code :

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

For Each Page As Control In Page2.Controls

Il suffisait juste de chercher au bon endroit

La j'ais un peu honte ...

A+

BM42