Tutoriel LotusScript pour débutants en programmation

Un dessin un peu mieux contrôlé . Déclaration de variables globales.

Créer un nouveau classeur . Créer un bouton dans le coin haut gauche et compléter le script Click comme ceci :

*Script 5a*
Sub Click(Source As Buttoncontrol) Set r=[a].newellipse(7000,2000,9000,4000) r.edgecolor.colorname="dark orange" r.edgelinewidth=$thin r.background.backcolor.colorname="black" r.background.color.colorname="orange" r.background.pattern=35 End Sub

Script 5a

Sub Click(Source As Buttoncontrol) Set r=[a].newellipse(7000,2000,9000,4000) r.edgecolor.colorname="dark orange" r.edgelinewidth=$thin r.background.backcolor.colorname="black" r.background.color.colorname="orange" r.background.pattern=35 End Sub

A la ligne 3, on voit une autre façon de désigner une couleur, en utilisant colorname. La valeur de colorname doit être écrite entre guillemets. Elle doit faire partie de la liste des noms de couleurs de Lotus, en anglais. Pour accéder à la liste des noms, dans l'aide de l'éditeur de script choisir Lotus 123 Objects et chercher Color Palette dans l'index.
La ligne 4 permet de modifier la largeur de la ligne de contour edgelinewidth
Les lignes 5 et 6 modifient les deux couleurs d'arrière-plan : celle du fond (backcolor) et celle du motif qui remplit l'ellipse.
La ligne 7 modifie le motif de remplissage. Il existe aussi une liste de noms désignant les valeurs possibles pour Pattern mais ils sont peu pratiques : il vaut mieux chercher le n° en regardant dans la boîte de propriétés les motifs disponibles, ils sont numérotés de gauche à droite et de haut en bas en partant de 0. Les motif n°49 et 50 ne figurent pas parmi les motifs proposés dans la boîte de propriétés, qui passe directement du n°48 au 51. Les motifs 62 à 73 sont des dégradés ou des rayures.