pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

FichierVersListeMemoire (en anglais FileToMemoryList)

// Ajouter l'élément "<Aucun>" dans la liste "LISTE1"
// Lorsque l'utilisateur sélectionnera cet élément, la
// valeur "-1" sera retournée

ListeAjoute
(LISTE1, "<Aucun>" + gLien("-1"))
// Ajouter à la suite de l'élément "<Aucun>" les noms
// des clients contenus dans le fichier "CLIENT"
FichierVersListeMémoire (LISTE1, CLIENT, NOM, NOM, IDCLIENT)


Début de la page

ListeAffiche (en anglais ListDisplay)

// Rafraîchissement de la liste "ListeClient"
ListeAffiche (ListeClient)


Début de la page

ListeAffiche (en anglais ListDisplay)

// Rafraîchissement de la liste "ListeClient" à partir du début de la liste
ListeAffiche (ListeClient, taDébut )


Début de la page

ListeAjoute (en anglais ListAdd)

// Ajout de "Dubois" dans la liste "ListeClient"
ResAjout = ListeAjoute (ListeClient, "Dubois")


Début de la page

ListeCherche (en anglais ListSeek)

// Recherche de l'élément "Dubois" dans la liste "ListeClient"
ResCherche = ListeCherche (ListeClient, "Dubois")


Début de la page

ListeCherche (en anglais ListSeek)

// Recherche de l'élément "Dubois" dans la liste "ListeClient"
// Recherche à l'identique à partir de l'élément 5
ResCherche = ListeCherche (ListeClient, "Dubois", Vrai , 5)


Début de la page

ListeInfoXY (en anglais ListeInfoXY)

-- Code de survol du champ
// Afficher une bulle lors du survol des éléments
// de la liste par la souris
Indice est un entier
Indice = ListeInfoXY (Liste1, tiNumLigne , SourisPosX(), SourisPosY())
SI Indice > 0 ALORS
   Liste1..Bulle = Liste1[Indice]
FIN


Début de la page

ListeInsere (en anglais ListInsert)

// Ajoute le nom "Dubois" à l'indice 4 dans la liste "ListeClient"
ResInsertion = ListeInsère (ListeClient, "Dubois", 4)


Début de la page

ListeModifie (en anglais ListModify)

// Modification de l'élément situé à l'indice 4 dans la liste "ListeClient"
ListeModifie (ListeClient, "Dupond", 4)


Début de la page

ListeOccurrence (en anglais ListCount)

// Nombre d'éléments présents dans la liste "ListeClient"
ResNombreElément = ListeOccurrence (ListeClient)


Début de la page

ListePosition (en anglais ListPosition)

// Indice du premier élément affiché dans la liste "ListeClient"
ResPosition
= ListePosition ( ListeClient )


Début de la page

ListeSelect (en anglais ListSelect)

// Indice de l'élément sélectionné dans la liste "ListeClient"
ResIndiceElément = ListeSelect (ListeClient)


Début de la page

ListeSelect (en anglais ListSelect)

// Lignes sélectionnées dans une liste multi-sélections
i est un entier = 1
LigneSelectionnee est un entier
LigneSelectionnee = ListeSelect(Liste1,1)
TANTQUE LigneSelectionnee <> -1
  
Trace("La ligne n°"+ LigneSelectionnee +" est sélectionnée")
   i++
   LigneSelectionnee = ListeSelect(Liste1,i)
FIN


Début de la page

ListeSelectMoins (en anglais ListSelectMinus)

// Désélection de l'élément dont l'indice est 7 dans la liste "ListeClient"
ListeSelectMoins (ListeClient, 7)


Début de la page

ListeSelectOccurrence (en anglais ListSelectCount)

// Nombre d'éléments sélectionnés dans la liste "ListeClient"
ResElementSelect = ListeSelectOccurrence (ListeClient)


Début de la page

ListeSelectPlus (en anglais ListSelectPlus)

// Sélection de l'élément dont l'indice est 7 dans la liste "ListeClient"
ListeSelectPlus (ListeClient, 7)


Début de la page

ListeSupprime (en anglais ListDelete)

// Suppression de l'élément sélectionné dans la liste "ListeClient"
ListeSupprime (ListeClient)


Début de la page

ListeSupprimeTout (en anglais ListDeleteAll)

// Suppression de tous les éléments présents dans la liste "ListeClient"
ListeSupprimeTout (ListeClient)


Début de la page