![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
decour
Comment faire pour le rafraîchir, ie en cliquant sur "form_level1" le "form_level2" cliquable lui aussi s'affiche à la place?
je ne suis pas sûr d'avoir bien compris mais tu dois pouvoir transférer le contenu d'un contrôle image dans un autre :
Image1.Picture = Image0.Picture
ou
Image1.PictureData = Image0.PictureData
(Je ne me rappelle plus quelle propriété c'est...)
Ensuite avec la classe il faudrait réinitialiser le contrôle :
pour que les changements soient pris en compte si on veut dessiner sur la nouvelle image.
J'ai pas encore testé çà mais il y a des chances que ça marche...
![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
marot_r
Je peux m'en occuper dés que ta classe est finale :o) ... oui, oui, j'y tiens ;-) et si on peut forcer que le type soit 'propriété' on sécurise l'appli contre l'entrée de paramètres faux.
C'est une idée...
Par contre je ne vois ce que tu entends pas "forcer que le type soit 'propriété'
:
Sinon y a un truc sympa c'est la compilation conditionnelle :
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
|
#If VBA6 Then
' Déclaration d'énumération pour Access >= 2000
Public Enum ETextAlign
TEXT_ALIGN_LEFT = 1
TEXT_ALIGN_RIGHT = 0
End Enum
#Else
' Déclaration de propriétés pour Access 97
Public Property Get TEXT_ALIGN_LEFT() As Integer
TEXT_ALIGN_LEFT = 1
End Property
Public Property Get TEXT_ALIGN_RIGHT() As Integer
TEXT_ALIGN_RIGHT = 0
End Property
#Endif
#If VBA6 Then
' Paramètre avec énumération pour Access >= 2000
Public Function DrawText(...., pAlignHoriz as ETextAlign, ...) as Boolean
#Else
' Paramètre sans énumération pour Access 97
Public Function DrawText(...., pAlignHoriz as Integer, ...) as Boolean
#Endif
...
End Function |
Comme ça ceux qui ont Access 2000 profite des énumérations et ceux qui ont Access 97 ont accès aux propriétés...
Une piste à tester...
Partager