Discussion :

[castorameur]

J'ai trouvé dans la FAQ comment créer des contrôles dynamiquement. Maintenant je voudrais pouvoir les bouger en mode RUN.
Genre Créer un éditeur de Form, mais c'est moi qui le pilote.

Dit autrement c'est faire du dessin vectoriel (le contrôle de type shape par exemple) et de le déplacer à loisir.
Les contrôles vectoriels seront enregistrés dans une BDD, mais ça je sais faire.

merci

[avigeilpro]

il suffit d'agir sur les propriétés Left, Top (pour l'emplacement sur la feuille) ainsi que Heigh et Width (pour la taille du controle)

[castorameur]

Je m'aperçois que je n'ai pas été assez précis.
Je voudrais faire du drag and drop avec les contrôles.

1)Au Run de l'appli il n'y a aucun contrôle
2)puis il y a un traitement qui fabrique des contrôles dynamiquement.
3)l'utilisateur peut les déplacer.

Si je n'y arrive pas effectivement j'essaierai d'utiliser les clics de souris pour déplacer le contrôle à l'endroit du curseur.

merci.

[avigeilpro]

Tu as tout a fait été suffisament précis :
Exemple, nouveau projet avec juste un bouton sur la form.
tu met ceci comme code et tu compile :

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
26
Option Explicit
 
Dim FirstX As Single
Dim FirstY As Single
Dim Down As Boolean
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    Down = True
    FirstX = X
    FirstY = Y
 
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Down = True Then
Command1.Left = Command1.Left + X - FirstX
Command1.Top = Command1.Top + Y - FirstY
 
End If
 
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Down = False
End Sub

[jmfmarques]

En d'autres termes et plus simplement :
Il n'y a aucune différence de traitement entre un contrôle créé dynamiquement et un contrôle créé "physiquement" en mode design.

Que le contrôle ait été créé d'une façon ou de l'autre, les mêmes méthodes peuvent lui être appliquées, qu'il s'agisse d'un drag an drop, d'un déplacement, d'un redimensionnement, ou de toute modification de telle ou telle autre de ses propriétés.

Dans de telles conditions : la question à poser au demandeur est simple : avant même de parler de contrôles dynamiques : sait-il appliquer ces méthodes à des contrôles créés "normalement" .

[castorameur]

Merci pour ces premiers éléments, MAIS :

je ne sais pas comment identifier le contrôle qui est sélectionné.

Avec un contrôle fait en design je sais rajouter du code dans les trigger d'evenement.
Mais comment faire avec un contrôle dynamique?
dois je faire une boucle sur la collection qui contiendrait l'évenement onpush?

En d'autre terme comment accéder au OnPush du contrôle dynamique N°9 par exemple?

re-merci

[avigeilpro]

Tes contrôles dynamique font parti d'une collection (ils ont tous un index qui est donné en paramètre des evenements). Tu remplace tous les

Code :

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

Command1

par

Code :

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

Command1(index)

et le tour est joué

[ThierryAIM]

Tes contrôles dynamique font parti d'une collection (ils ont tous un index qui est donné en paramètre des evenements). Tu remplace tous les

Code :

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

Command1

par

Code :

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

Command1(index)

et le tour est joué

FAUX, s'ils sont créé avec la méthode Controls.Add (ou tu m'expliques comment, je suis très interessé )

[avigeilpro]

Je pensait qu'il les avait créé avec Load et un control ayant l'index 0
Perso c'est ce que j'aurais fait

[ThierryAIM]

Encore une fois, avi :

1)Au Run de l'appli il n'y a aucun contrôle
2)puis il y a un traitement qui fabrique des contrôles dynamiquement.

désolé

[avigeilpro]

Faut vraiment que j'aille dormir parce que la ... soit je suis fatigué, soit la myopie me guette

[ThierryAIM]

Faut vraiment que j'aille dormir parce que la ... soit je suis fatigué, soit la myopie me guette

mais tu n'as peut-etre pas forcement tort, vu qu'il ne nous a pas dit quelle méthode il a utilisé pour créé ses controles

Moi, je m'en tiens à ce qui est écrit en français, dans le texte, et sans jouer encore une fois aux devinettes !

[castorameur]

C'est plutôt avec un controls.add car je n'ai aucun contrôle au RUN

En fait je fait une lecture d'un script et je fabrique autant de contrôle (Line par exemple) que nécéssaire.

Une fois fabriqué, les contrôles (Line par exemple) sont déplaçables

[avigeilpro]

Peut tu mettre le morceau de code qui te permet de créer ton control ?