Discussion :

[Cotte Cotte Coq]

Bonjour,
Je suis en train de me faire un petit éditeur de texte sous VB.net (VS 2005). Comme je voudrais pouvoir ouvrir plusieurs fichiers dans la fenêtre principale j’ai, sur cette fenêtre, créé un TabControl auquel je rajoute un TabPage pour chaque nouvel onglet. Sur chacun de ces TabPage, j’ai voulu mettre une TextBox. J’ai commencé par mettre ceci dans les déclarations : Dim WithEvents newfichier As New TextBox. Puis, j’ai voulu rajouter ce newfichier sur chacun des mes TabPage. Ça ne fonctionne pas, chaque nouveau TabPage vole newfichier au TabPage précédent : je n’ai qu’un newfichier qui passe d’un TabPage au suivant. J’ai donc été obligé de construire une classe « UnFichier » qui hérite de TextBox que j’initialise et que je peux ainsi placer pour chaque TabPage. Cette fois-ci ça fonctionne, j’ai autant de TextBox de TabControl. Mais il reste un gros problème, je perds ainsi l’accès à chaque instance de « UnFichier ». Je m’explique, si je veux lancer à partir d’un menu une action, coller par exemple, il faut que j’indique à la fonction rattaché au menu sur quelle TextBox travailler, je peux bien lui indiquer sur quel TabPage travailler mais les TextBox n’ont ni nom ni numéro…

Je ne sais pas du tout si ce que je raconte est clair pour quelqu’un. Si c’est le cas, voyez-vous une solution ? Soit en se passant de la création de la classe « UnFichier », soit avec un moyen pour accéder à une instance de « UnFichier » quand le code ne fait pas parti de la classe.

Merci.


CCC

[The eye]

Une solution serait de travailler avec les évènements :

Si je comprends bien tu as un "fichier" par TabPage, donc il faut que tu récupère le tabPage approprié pour pouvoir appliquer ton coller à l'objet "fichier".

Désires-tu plus de précision?

[The eye]

Voici un exemple de ce que je t'expliquais plus haut :

Public Event eComboListDateLostFocus(ByVal _monControle As monControle)
Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus
If Not Me.ComboBox1.Text = "" Then
RaiseEvent eComboListDateLostFocus(Me)
End If
End Sub

Il te suffit donc de renvoyer un évènement qui retourne l'instance de ton objet, ensuite dans la classe qui effectue ton traitement tu récupère cet évènement.

Lorsque tu construits ton objet tu lui ajoute un handler ainsi :

monControleParent.Add(monControle)
AddHandler monControle.eComboListDateLostFocus, AddressOf Me.mChequesDifferes_eComboListDateLostFocus

ensuite tu gère ton évènement dans la méthode :

Public Sub mChequesDifferes_eComboListDateLostFocus(ByVal monControle As monControle)
Dim index As Integer = monControleParent.IndexOf(monControle)
End Sub

Comprends tu le principe?