Discussion :

[erfindel]

Bonjour voila je voudrais créer 3 trait j'ai donc écrit ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub create_fleche()
 
Set trdroit = CreateControl(Me.Organigramme(CtlTab11), acTrait, acDetail, 150, 150, 500, 500)
 
Set trgauche = CreateControl(Me.Organigramme(CtlTab11), acTrait, acDetail, 200, 200, 500, 500)
 
Set trcorps = CreateControl(Me.Organigramme(CtlTab11), acTrait, acDetail, 300, 300, 500, 500)
 
 Dim flechex As New fleche
 fleche = traceflch(Taille, Angle)
 
End Sub

J'ai donc 3 trait :

1. trDroit
2. trGauche
3. TrCorps

Je voudrai les créer dans mon formulaire organigramme, d'où le Me.organigramme, je voudrai les créer dans une fenêtre qui s'appelle CtlTab11 (déjà créer) le problème est que je n'arrive pas à faire fonctionner ce code il me sort une erreur sur ma première ligne. En ayant chercher sur le net et notre capains google je ne trouve rien qui parle de la syntaxe exact de CreateControl()

Je fais donc appelle à vous, merci par avance...

[cafeine]

Hello,

intuitivement (donc non testé), j'aurais essayé plutôt de jouer sur la propriété .Parent

[erfindel]

Hello,

intuitivement (donc non testé), j'aurais essayé plutôt de jouer sur la propriété .Parent

Code :

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

1
2
3
4
5
6
Set trdroit = CreateControl(CtlTab11.Parent, acTrait)
    With trdroit
        .Name = "trdroit" 'lui affecte un nom
        .Left = 500       'le positionne sur le trait à 500 du Bord gauche
        .Width = 250      'définir la largeur de la flèche
    End With

Sa doit ressembler a un truc comme ça alors?

[erfindel]

Il me dit un truc

Erreur d'exécution '450' :

Nombre d'arguments incorrect ou affectation de propriété incorrecte

[cafeine]

Non, non

ça se gère comme ça :

Code :

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

1
2
3
Dim toto As Control
set toto = CreateControl (forms(0).Name, actextbox, acDetail, _
      Forms(0).Controls("Page4").Name, , 0, 0, 3800, 1400)

Forms(0).Controls("Page4").Name est le parent du controle, ça veut dire que le controle sera contenu dans la Page4 d'un onglet par exemple.

[erfindel]

ah oki une autre question et je test sa tous de suite à quoi correspond le acDetail?

[cafeine]

La constante Access de la section Détail

ah oki une autre question et je test sa tous de suite à quoi correspond le acDetail?

[erfindel]

Non, non

ça se gère comme ça :

Code :

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

1
2
3
Dim toto As Control
set toto = CreateControl (forms(0).Name, actextbox, acDetail, _
      Forms(0).Controls("Page4").Name, , 0, 0, 3800, 1400)

Forms(0).Controls("Page4").Name est le parent du controle, ça veut dire que le controle sera contenu dans la Page4 d'un onglet par exemple.

Donc si j'ai bien compris :

Code :

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

1
2
3
Dim toto As Control
set toto = CreateControl (forms(0).Name, actextbox, acDetail, _
      Forms(0).Controls("Page4").Name, , 0, 0, 3800, 1400)

forms(0).Name = Le nom de ma form
Forms(0).Controls("Page4").Name = le nom de ma fenetre et onglet ou va se situer la flèche.

donc :

Code :

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

1
2
3
Dim trcorps As Control
set trcoprs = CreateControl (organigramme, acline, acDetail, _
      Forms(0).Controls("Organigramme").ctlTab11, , 0, 0, 3800, 1400)

Car l'onglet s'appelle aussi organigramme

[cafeine]

non, il faut que le form et le parent soient désignés par leur nom ...

c'est pour ça que j'avais mis .Name

[erfindel]

Donc si j'ai bien compris :

Code :

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

1
2
Dim trcorps As Control
set trcorps = CreateControl (forms(0).organigramme , acLine, acDetail, _ Forms(0).Controls("CtlTab11").organigramme, , 0, 0, 3800, 1400)

[cafeine]

Désolé, non ...

Code :

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

set trcorps = CreateControl ("organigramme" , acLine, acDetail, "CtlTab11", , 0, 0, 3800, 1400)

[erfindel]

Merci je suis pas très doué

Mais aïe il me que les contrôles ne peuvent êtres créers ou supprimés qu'en mode Création.


Sa ne veut pas dire que je ne pas gérer la création de trait ??

[cafeine]

Ah ben oui, il fallait peut être commencer par là ...

Pas de création de contrôle hors du mode conception.

Sinon tu peux utiliser des solutions comme celle d'Arkham ou la mienne pour dessiner avec les APIs.

Merci je suis pas très doué

Mais aïe il me que les contrôles ne peuvent êtres créers ou supprimés qu'en mode Création.


Sa ne veut pas dire que je ne pas gérer la création de trait ??

[erfindel]

Je me sent rouler la

Non la solutions pour dessiner les APIs ne correspond pas à mon besoin mais je cherche encore

[cafeine]

Tu n'es pas roulé, c'est le fonctionnement normal d'Access.

Je me sent rouler la

Non la solutions pour dessiner les APIs ne correspond pas à mon besoin mais je cherche encore

[erfindel]

Tu n'es pas roulé, c'est le fonctionnement normal d'Access.

Ben j'avais pas penser à cette hypothèses la !

[micniv]

Est-ce suffisant ? :
tu dessines en mode Design
puis tu reviens en mode normal ...

[erfindel]

ah non ce n'est pas suffisant du tout! car l'application va etre utiliser par normalement 600 personnes de tous niveaux je ne veux pas et elle n'ont pas le droit de modifier l'application


Vive le stage

[micniv]

Tu passes en mode Design
tu dessines tes traits
puis tu reviens en mode normal ..

Bien sur c'est à faire en VBA