Creer un bouton qui change de couleur quand le quota de la b

[jb]

Bonjour,J'ai developpé un script qui permet à un utilisateur de voir son quota et la place actuellement occupé par sa boite mail.Je cherche à mettre ce code derriere un bouton qui change de couleur (passage de bleu à rouge) quand le quota de la base est depassé, afin d'attirer l'attention sur lui.Je ne suis pas fort en formule Lotus, si quelque qu'un à une idée pour ce bouton je suis preneur.Merci d'avance.JB

[Raziel]

Si c'est du client lour, tu ne peux pas modifier la couleur d'un bouton. Il te faut passé par deux boutons dont l'un est masqué et l'autre visible en fonction de la taille de la base.

[jb]

OK mais comment faire çà ?

[Raziel]

Je pense que le plus simple, c'est que tu ai un champ caché calculé dans lequel tu affiche, par exemple 1 si Taille > Quota et 0 dans le cas contraire.Ensuite, tu met en formule de masquage des boutons:Pour le bouton 1, Masqué si MonChamp = 1Pour le bouton 2, Masqué si MonChamp = 0

[jb]

Eh ? Desolé je suis vraiment pas un pro du developpement, comment crée t'on un champ partagé ?

[Raziel]

Dans le designer, Ressources/Champs partagés. Tu le créé en lui donnant sa formule. Ensuite, pour l'inclure dans un masque ou un sous masque, tu fais Création / Insérer champs partagés.

[jb]

J'ai le code suivant dans mon champ partagé :Sub Initialize Dim db As NotesDatabase Dim MFSsession As New NotesSession Dim MaxSize As Double, CurrSize As Double, useSize As Double, useSize2 As Double Dim dbTitle As String Dim overquota As Double Set db = MFSsession.CurrentDatabase'Get this database's name dbTitle = db.Title MaxSize = Round( db.SizeQuota/1024, 1) useSize = db.Size * db.PercentUsed / 100 CurrSize= Round( useSize/1024000, 1) If CurrSize > MaxSize Then overquota = 1 Else overquota = 0 End If End SubJe ne suis pas sur de la declaration de la variable overquotaEst-ce que je peux utiliser directement ce champ partagé sur un texte dans la page NotesMail Title ?