Discussion :

[Appwal]

Bonjour!

Voici mon problème.

J'ai créé une feuille à laquelle j'ai ajouté une Frame.
Ensuite je crée dynamiquement des TextBox que je souhaierais afficher par dessus cette frame. Seulement, la frame se place devant les Textbox que je ne peux donc pas voir...

Comment est-il possible de placer les TextBox au 1er plan?? Sachant que je ne peux pas mettre la frame en arrière plan, l'option étant grisée...

Merci d'avance

[Delbeke]

Il faut desiner le textbox Dans le frame. Pas à coté, puis le déplacer sur le frame.
Tu peux vérifier si le textbox est dans la frame ou pas en selectionnant le textbox et tenter de le depalcer hors de la frame. si le composant ne peux pas sortir de la frame, il est dedans, sinon il est à coté

S'il sont déjà déssinés sur ta form, selectionnes les, puis tu coupes (Ctrl+X), tu selectionnes le frame, et tu colles (Ctrl+C)

[Appwal]

Le problème est que les TextBox sont créées dynamiquement! Je fais appel à la méthode CreateTextBox. Elles ne sont donc pas présentes dans mon éditeur graphique!

[Delbeke]

Alors change de methode.
Cree ton premier textbox dans le frame, avec la propriété index à zéro
Puis dans ton programme tu fais un load des textbox avec un index unique

[Appwal]

Je vois à peu près le fonctionnement de ta méthode mais je ne vois pas bien comment me servir du load pour créer mes textbox

Edit: J'ai finalement trouvé la solution! Assez simple finalement!

Il suffit de passer la frame en paramètre lorsque l'on ajoute le composant à la feuille:

Code :

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

Form1.Controls.Add("vb.textBox", name, laFrame)

Merci quand même ;-)

[ProgElecT]

Comment est-il possible de placer les TextBox au 1er plan??

Il faut desiner le textbox dans le frame.

A savoir, passage d'un control quelconque, d'un control conteneur à un autre control conteneur, par code.
Un TextBox, une Frame et un PictureBox sur une Form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Private Sub Form_Load()
Me.Height = 2130: Me.Width = 3360
Frame1.Height = 945: Frame1.Width = 2745
Frame1.Left = 120: Frame1.Top = 210
Frame1.BackColor = &HC0C0C0
Picture1.Height = 1005: Picture1.Width = 2685
Picture1.Left = 390: Picture1.Top = 660
Picture1.BackColor = &H808080
Picture1.ZOrder
Text1.Height = 405: Text1.Width = 1695
Text1.Left = -120: Text1.Top = 0
End Sub
Private Sub Form_Click()
Set Text1.Container = Me
Text1.Left = -120: Text1.Top = 0
End Sub
Private Sub Frame1_Click()
Set Text1.Container = Frame1
Text1.Left = 1740: Text1.Top = 240
End Sub
Private Sub Picture1_Click()
Set Text1.Container = Picture1
Text1.Left = -90: Text1.Top = 180
End Sub

Cliquez alternativement sur la frame, le PictureBox et sur la Form, Text1 passe de l'un à l'autre.