Tutoriel LotusScript pour débutants en programmation

Un peu d'animation. Création d'un tableau de données

Fermer le classeur précédent et créer un classeur vierge.
Le script suivant va faire bouger les rectangles après leur création. On va donc avoir besoin de leur donner un nom différent pour chacun, pour pouvoir les manipuler après création.
Pour cela on va utiliser un tableau (ou matrice).

En programmation un tableau est un ensemble de variables ou d'objets identiques, que l'on manipule en les désignant par un numéro.
Création du tableau :
- Dans l'éditeur de script, sélectionner (Globals) et (Declarations) comme au V
- Dans l'éditeur, entrer la déclaration
  Dim table(0 To 10) As rectangle
  Cette ligne signifie qu'on va utiliser un tableau appelé table, contenant 11 rectangles numérotés de 0 à 10.

Créer un bouton et compléter son script Click

Script 7
Sub Click(Source As Buttoncontrol) For i=0 To 10 Set table(i)=[A].NewRectangle(1000+200i,600,1500+200i,1050) table(i).background.pattern=1 table(i).edgedashstyle=$none Set table(i).background.color=currentApplication.colors(16*i+10) Next End Sub

Script 7

Sub Click(Source As Buttoncontrol) For i=0 To 10 Set table(i)=[A].NewRectangle(1000+200*i,600,1500+200*i,1050) table(i).background.pattern=1 table(i).edgedashstyle=$none Set table(i).background.color=currentApplication.colors(16*i+10) Next End Sub

Ce script crée 11 rectangles appelés table(0), table(1),table(2)....table(10)

Créer un autre bouton et compléter son script Click :
Script 8
Sub Click(Source As Buttoncontrol) For i=0 To 10 table(i).clear Next End Sub
Ce second bouton permet d'effacer les rectangles créés.

*Script 8*
Sub Click(Source As Buttoncontrol) For i=0 To 10 table(i).clear Next End Sub

Créer un troisième bouton et modifier son script Click :

*Script 9*
Sub Click(Source As Buttoncontrol) For a=0 To 20 For i=0 To 10 table(10-i).left=table(10-i).left+100 debut=Timer While (Timer-debut<0.5) Wend Next debut=Timer While (Timer-debut)<0.5 Wend Next End Sub

Ce dernier script déplace successivement chaque rectangle, produisant une impression de "reptation".