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.
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)
|
ListeAffiche (en anglais ListDisplay)
ListeAffiche (en anglais ListDisplay)
// Rafraîchissement de la liste "ListeClient" à partir du début de la liste
ListeAffiche (ListeClient, taDébut )
|
ListeAjoute (en anglais ListAdd)
ListeCherche (en anglais ListSeek)
// Recherche de l'élément "Dubois" dans la liste "ListeClient"
ResCherche = ListeCherche (ListeClient, "Dubois")
|
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)
|
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
|
ListeInsere (en anglais ListInsert)
// Ajoute le nom "Dubois" à l'indice 4 dans la liste "ListeClient"
ResInsertion = ListeInsère (ListeClient, "Dubois", 4)
|
ListeModifie (en anglais ListModify)
// Modification de l'élément situé à l'indice 4 dans la liste "ListeClient"
ListeModifie (ListeClient, "Dupond", 4)
|
ListeOccurrence (en anglais ListCount)
// Nombre d'éléments présents dans la liste "ListeClient"
ResNombreElément = ListeOccurrence (ListeClient)
|
ListePosition (en anglais ListPosition)
// Indice du premier élément affiché dans la liste "ListeClient"
|
ListeSelect (en anglais ListSelect)
// Indice de l'élément sélectionné dans la liste "ListeClient"
ResIndiceElément = ListeSelect (ListeClient)
|
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
|
ListeSelectMoins (en anglais ListSelectMinus)
// Désélection de l'élément dont l'indice est 7 dans la liste "ListeClient"
ListeSelectMoins (ListeClient, 7)
|
ListeSelectOccurrence (en anglais ListSelectCount)
// Nombre d'éléments sélectionnés dans la liste "ListeClient"
ResElementSelect = ListeSelectOccurrence (ListeClient)
|
ListeSelectPlus (en anglais ListSelectPlus)
// Sélection de l'élément dont l'indice est 7 dans la liste "ListeClient"
ListeSelectPlus (ListeClient, 7)
|
ListeSupprime (en anglais ListDelete)
ListeSupprimeTout (en anglais ListDeleteAll)
// Suppression de tous les éléments présents dans la liste "ListeClient"
ListeSupprimeTout (ListeClient)
|