Discussion :

[chakhsonma]

Bonjour tout le monde
j'ai cherché et cherché et je n'arrive pas à trouver de solution,
voila le topo,
dans un formulaire qui contiendra le plan (croquis) de l'établissement , je veux créer une application qui permette de cliquer sur les bouton images (PC, IMPRIMANTE, ROUTEUR) puis cliquer su un emplacement dans le plan, bureau ou salle par exemple et y coller une instance de l'image sélectionnée, et ainsi de suite pour avoir en final un plan de l'établissement avec l'emplacement des PCs et Imprimantes etc, après je m'occuperai de la BD qui me permettra au passage de la souris sur l'image de m'afficher une bulle contenant la marque, le bureau etc...;
le problème c'est qu'on peut créer un formulaire et y ajouter des contrôles en vba en mode design, moi je veux créer des instances d'image dynamiquement dans le formulaire qui est cours d’exécution et les placer la ou je veux et mémoriser leurs emplacement, je requiert votre aide pour juste créer des instances de contrôles , la méthode NEW et CreateControl ne m'ont pas donné grand chose et access affiche qu'un active x ne peux pas créer un active x alors je suis bloqué, quelqu'un a une idée?
merci beaucoup d'avance
Cordialement

[EricDgn]

Bonjour,

Un tout début de solution, péchée sur ce post. Permet le déplacement et le redimensionnement d'une Textbox mais n'enregistre pas la nouvelle position! A adapter. Reste beaucoup à faire!

Cordialement.

[Robert1957]

Bonjour chakhsonma, EricDgn,

Dans la même ligne de pensée qu'Éric voici une manière de faire avec des boutons de commande et des rectangles. Ce code fait partie d'une application que je ne peux partager dans son entier, j'ai donc gardé seulement la partie qui pourrait vous intéresser. Je dois aussi spécifier qu'au départ une partie de ce code a été récupérer lors d'une formation. Ce code permet le déplacement et le redimensionnement d'un bouton de commande ou un objet rectangle et il sauvegarde au moyen de 2 tables.

Bonne journée

Plan.zip

[loufab]

Bonjour,

moi je veux créer des instances d'image dynamiquement dans le formulaire qui est cours d’exécution et les placer la ou je veux et mémoriser leurs emplacement, je requiert votre aide pour juste créer des instances de contrôles , la méthode NEW et CreateControl ne m'ont pas donné grand chose et access affiche qu'un active x ne peux pas créer un active x alors je suis bloqué, quelqu'un a une idée?

CreateControl ne fonctionne qu'avec un formulaire/état en mode création. En mode utilisation cette commande est indisponible.
Ce que vous pouvez faire c'est prévoir un nombre maximum de contrôle image que vous allez cacher (me.imgxxx.visible=false) pour les faire apparaitre (.visible=true) à la demande.

Il n'y a pas de moyen à ma connaissance pour faire sortir de controle du chapeau autrement qu'avec CreateControl et surtout en mode utilisation.
Peut-être que vous n'utilisez pas le bon outil de développement ou bien vous devez adapter votre ergonomie d'utilisation à cette contrainte.

Cordialement,

[chakhsonma]

Bonjour.
Merci tout le monde.
Merci eric, loufab, robert
Merci bcp pour vos réponses.
Je pourrais bien creer ça avec excel mais je prefere access 😀
Tout ce qui le manque c est creer des instances a volonté.
Je creuse encore 😀👍
J'ai déja la BD complete de l'inventaire du materiel sur access alors je voudrai l'utiliser.
Je pense lancer excel depuis access pr creer les instances d'images et enregistrer les positions.
Mais je creuse encore dans access.
Si qqn a une idée.
Merci bcp pour votre réactivité 😀👍

[chakhsonma]

Bonjour.
Y a t il des nouvelles idées?
Merci d'avance
Cordialement

[deedolith]

Les formulaires Access n'autorisent pas la création dynamique de contenu, du entre autre au mode continu (les contrôles se dupliquent automatiquement dans ce mode).

Une solution simple consiste à utiliser des contrôles cachés que tu pourras dimensionner / remplir / faire apparaitre / disparaitre.

Une solution plus complexe consiste à utiliser les formulaires Microsoft Forms (Microsoft Forms 2.0 Object Library), par contre ces formulaires ne peuvent être liés aux données.

[chakhsonma]

Bonjour.
Merci bcp deedolith pour ta réponse.
Je creuse encore j'essaie de perseverer je veux trouver une solution sur acces
Merci👍😀

[deedolith]

Après avoir inséré un conteneur adequat (ici: ActiveX MSForm 2.0 Multipage), tu peux essayer quelque chose comme suit:

Code :

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

1
2
3
4
5
6
7
8
    Dim Mtp As MSForms.MultiPage
    Set Mtp = MultiPage.Object
 
    Dim Page As MSForms.Page
    Set Page = Mtp.Pages(0)
 
    Dim Button As MSForms.CommandButton
    Set Button = Page.Controls.Add("Forms.commandbutton.1", "newName", True)

[chakhsonma]

Binjour.
Merci mais malheureusement ça ne marche pas, je cherche autre chose.
du dessin assisté par ordinateur sous access 😀👍

[loufab]

A voir avec cette série de tuto sur Gdi32

https://arkham46.developpez.com/arti...e/clgdi32/doc/