1 -
Une table T_Paramètres contient (entre autres champs, voir
05) les champs suivants:
Prm_CheminLogo / Texte assez long
Prm_ModeAffichage / Numérique Octet
Prm_Mosaïque / OuiNon
Prm_AligneImage / Numérique Octet
2 -
Un formulaire "F_Paramètres" permet de changer
aisément ces informations.
3 -
Pour modifier l'image de fond du formulaire "Menu" en
fonction des réglages de T_Paramètres, placer dans
la procédure sous-jacente de l'évènement "sur
ouverture" de ce formulaire
Dim strLogo
as String
strLogo = DLookup("Prm_CheminLogo", "T_Paramètres")
Me.Picture = strLogo
Me.PictureSizeMode = DLookup("Prm_ModeAffichage", "T_Paramètres")
Me.PictureTiling = DLookup("Prm_Mosaïque", "T_Paramètres")
Me.PictureAlignment = DLookup("Prm_AligneImage", "T_Paramètres")
|