Dupliquer un panel d'objets

Version imprimable

12/07/2010, 11h55
neolive31

Dupliquer un panel d'objets

Salut à tous

Alors voilà je suis nouveau sur le forum et débutant en vb, donc excusez par avance si je crée un doublon de sujet.

Je vais vous exposer mon soucis. Je cherche à dupliquer un panel, composé de plusieurs boutons, textbox, labels etc...

C'est à dire, lorsque l'utilisateur veut rajouter un panel supplémentaire, il clique sur un bouton "Créer", et je souhaiterai qu'un panel identique au premier, se crée en dessous, et un 3ème s'il reclique et ainsi de suite à l'infini. Avec bien sur tous les noms des objets qui s'incrémente d'une valeur fixe (exemple objet du panel2 = objet panel1 + 1000, objet panel3 = objet panel2 + 1000 etc...).

On peut faire un visible true/false mais cette méthode est assez limitée.

Ensuite, lorsque le panel est créé, est il possible de dupliquer aussi le code associé, en incrémentant bien sur tous les noms des objets dedans ?

J'espère avoir été assez clair.

Merci par avance de vos réponses, car là je bloque...

Olive

Citation:

Envoyé par neolive31

Salut à tous

Alors voilà je suis nouveau sur le forum et débutant en vb...

Olive

Salut
Tu ne commences pas par le plus facile ;)
Dejà, créer des objets indexés me semble le plus pratique et quasi indispensable pour ton besoin

Citation:

Ensuite, lorsque le panel est créé, est il possible de dupliquer aussi le code associé, en incrémentant bien sur tous les noms des objets dedans ?

Sur un Form, 1 CommandButton, 1 Frame, dans se Frame 1 TextBox et un Label.
Tous ces objets, composants, mettre la proriété Index = 0
Et ce bout de

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private Sub Command1_Click()
Dim Idx As Integer
Load FramPannel(FramPannel.Count) 'ajout d'un nouveau FramPannel
Load Text1(Text1.Count) 'ajout d'un nouveau Text1
Set Text1(Idx).Container = FramPannel(Idx) 'placer l'objet dans le Frame
Load Label1(Label1.Count) 'ajout d'un nouveau Label1
Set Label1(Idx).Container = FramPannel(Idx)
 
'nouveau index créé = Nbr d'objet - 1
Idx = FramPannel.Count - 1
 
'placement de l'objet créé
FramPannel(Idx).Move FramPannel(Idx - 1).Left + 120, FramPannel(Idx - 1).Top + 180
FramPannel(Idx).ZOrder ' mise au premier plan
FramPannel(Idx).Caption = "Ajout " & Idx 'pour le distinguer des autres
'rendre visible les nouveaux objets
FramPannel(Idx).Visible = True
Text1(Idx).Visible = True
Label1(Idx).Visible = True
 
End Sub
 
 
 
 
Private Sub FramPannel_Click(Index As Integer)
'mettre l'objet au premier plan (surtout si il se recouvre partiellement les uns les autres
FramPannel(Index).ZOrder
End Sub
Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'utilisation de l'index pour distinguer le composant
Select Case Index
 Case 0: Text1(Index).ToolTipText = "objet original"
 Case Is <= 4: Text1(Index).ToolTipText = "coucou, index plus petit que 5"
 Case Else: Text1(Index).ToolTipText = "Pas coucou, na, index plus grand que 4"
End Select
End Sub

bonjour

J'ai essayé le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
    Dim i As Integer
    Dim j As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim panel(i) As System.Windows.Forms.Panel
        panel(i) = New System.Windows.Forms.Panel
        panel(i) = panel(j)
        panel(i).Top = panel(j).Top + 10
        i = i + 1
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = 2
        j = i - 1
    End Sub
End Class

Le problème est qu'il bug sur "panel(i).Top = panel(j).Top + 10". J'ai un panel 1 qui existe et j'essaye de le dupliquer en panel(i).

Où est le soucis ?

Merci

Olive