Bonjour,
J'ai crée un objet OLE (fichier dessin PAINT servant de base à mon travail) dans un sous formulaire que j'appelle avec ce code ! (le nom de l'objet est Schéma)
Lorsque je mets en surbrillance mon objet et que je clique sur une touche mon dessin source s'ouvre (Schéma)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Schéma_KeyDown(KeyCode As Integer, Shift As Integer) Schéma.Class = "paint" ' Définit le nom de classe. ' Spécifie le type d'objet. Schéma.OLETypeAllowed = acOLELinked ' Spécifie le fichier source. Schéma.SourceDoc = "C:\Documents and Settings\Administrateur\Bureau\Schéma.bmp" ' Crée l'objet lié. Schéma.Action = acOLECreateLink ' Ajuste la taille du contrôle. Schéma.SizeMode = acOLESizeZoom End Sub
Je complete mon schéma et je ferme Paint sans enregistrer évidement et ainsi de suite pour chaque nouveau champ.
J'obtiens donc plusieurs dessins differents dans mon formulaire c'est parfait
Jusqu'ici tout fonctionne bien, mais ce que je n'arrive pas a faire c'est revenir sur un dessin et le modifier, je dois repartir d'un dessin "vierge"
Si je veux faire une petite modification a mon dessin je ne peux pas, il faut tout refaire......
Je peux joindre un exemple de ma base de donnée si necessaire !
Merci par avance de vos réponses.
Partager