Chargement dynamique d'objets

Question

Bonjour, j'ai un probl&#232;me concernant le chargement d'objets avec l'instruction Load...


Explication : j'ai cr&#233;&#233; un objet PictureBox que j'ai appel&#233; Containeur
avec son Index &#224; 0. Cet objet sert &#224; 'contenir' d'autres &#233;l&#233;ments (&#224;
savoir, une image, des labels, une progressbar) tous ind&#233;x&#233;s de la m&#234;me
fa&#231;on &#224; 0. Lorsque je charge un nouveau PictureBox comme ceci : 


Load Containeur(Index) (avec l'index incr&#233;ment&#233; bien s&#251;r), le nouveau
conteneur est vide et ne contient pas les &#233;l&#233;ments de son original
(l'image, les labels...), donc je les charge &#233;galement (Load machin...)
avec eux aussi des index incr&#233;ment&#233;s... Et voici le probl&#232;me : les
nouveaux &#233;l&#233;ments du conteneur ne sont pas cr&#233;es dans celui qui vient
d'&#234;tre charg&#233; mais dans l'original !!!



Ma question est donc :
quelqu'un conna&#238;t t'il un moyen pour charger un nouvel objet dans un
&#233;l&#233;ment pouvant en contenir d'autres (que ce soit une PictureBox ou une
Frame... le principe est le m&#234;me je suppose) ?


Merci d'avance.

Gobillot · Answer

1&#233;re solution:

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Private Sub Command2_Click()
    Load Picture1(1)
    Picture1(1).Move 3840, 540
    Picture1(1).Visible = True


    Load Command1(1)
    Command1(1).Move 0, 0
    SetParent Command1(1).hWnd, Picture1(1).hWnd
    Command1(1).Visible = True
End Sub

Daniel

Gobillot · Answer

2&#233;me solution:

Private Sub Command2_Click()
    Dim n              As Integer
    Dim Pict(2)     As PictureBox
    Dim Cmd1(2) As CommandButton
    
    n = 1
    Set Pict(n) = Controls.Add("VB.picturebox", "Pict1")
    Pict(n).Move 3840, 540, 2835, 3255
    Pict(n).Visible = True
    Pict(n).SetFocus
    Set Cmd1(n) = Controls.Add("VB.CommandButton", "Bouton1")
    Set Cmd1(n).Container = Pict(n)
    Cmd1(n).Move 0, 0, 1000, 500
    Cmd1(n).Caption = "Bouton 1"
    Cmd1(n).Visible = True
End Sub

Daniel

crenaud76 · Answer

Gobillot < pourquoi utilises-tu une api dans la solution 1 et Controls.add dasn la seconde ?
Tu peux faire un Load Command1(1) puis un Set Command1(1).container = picturebidule

Christophe R

cbnet · Answer

Merci a vous deux pour ces reponses. Elles me seront bien utiles
@+ et bonne prog !

harryjc · Answer

Il me semble qu'il faut plutot passer par un usercontrol pour faire cet action.

Specifier une nouvelle propriete "Type" le type de control conteanant (Label, Bouton...) que tu veux afficher via cet usercontrol et lui envoyer les parametres graphiques du dit usercontrol (Largeur, Hauteur).
Aussi, il faut que tu te sers de TAG du usercontrol pour faire evoluer les donn&#233;es de tes control internes du usercoontrol

Cordialement,
.

Chargement dynamique d'objets

5 réponses

Discussions similaires