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

DelaiAvantFermeture (en anglais DelayBeforeClosing)

// Fermeture de la boîte de dialogue dans 2 secondes
DélaiAvantFermeture (200)
Erreur("L'application va se terminer")
FinProgramme()


Début de la page

DelaiAvantFermeture (en anglais DelayBeforeClosing)

// Exécution du code de BoutonFerme dans 5 secondes
DélaiAvantFermeture (MaFenêtre, BoutonFerme, 500)
// Le code du bouton BoutonFerme appelle la fonction Ferme


Début de la page

EnumereMenu (en anglais EnumMenu)

i est entier = 1
NomMenu est une chaîne
NomMenu = EnumèreMenu (MaFenêtre, 1) // lecture du 1er menu de la fenêtre
TANTQUE NomMenu <> ""
  Trace(NomMenu)
  j est entier = 1
  NomSousMenu est une chaîne
  NomSousMenu = EnumèreMenu (NomMenu, j) // lecture de la 1er option du menu
  TANTQUE NomSousMenu <> ""
      Trace(" " + NomSousMenu)
      j++ // option suivante
      NomSousMenu = EnumèreMenu (NomMenu, j)
  FIN
  i++ // menu suivant
  NomMenu = EnumèreMenu (MaFenêtre,i)
FIN


Début de la page

FenBoutonSysteme (en anglais WinSystemButton)

// Modifier le type de bouton de la fenêtre "SaisieClient"
FenBoutonSystème (SaisieClient, BoutonOK )


Début de la page

FenChangeAlias (en anglais WinChangeAlias)

// Ouvre une nouvelle fenetre MDI.
// WinDev choisit un alias.
sNomAlias = MDIOuvre(SaisieClient, "Nouveau client", Valeur1, Valeur2)
// On met un alias personnalisé
FenChangeAlias (sNomAlias, "TEMP0001")


Début de la page

FenEnCours (en anglais CurrentWin)

// Nom de la fenêtre en cours
ResFenEnCours = FenEnCours()


Début de la page

FenEnExecution (en anglais WinInput)

// Nom de la fenêtre dont le code est en cours d'exécution
ResFenEnCoursExéc = FenEnExécution ()


Début de la page

FenEtat (en anglais WinStatus)

// Identification de l'état de la fenêtre en cours
ResFenEtat = FenEtat ()
// Modification de l'état de la fenêtre
SELON FenEtat (NomFenetre)
   CAS Actif
 
  FenEtat (NomFenetre, Grisé )
   CAS Inexistant
 
  Ouvre(NomFenetre)
FIN


Début de la page

FenExtHaut (en anglais WinOutHeight)

// Hauteur de le fenêtre "SaisieClient"
ResHauteur
= FenExtHaut ( SaisieClient )


Début de la page

FenExtLarg (en anglais WinOutWidth)

// Largeur de le fenêtre "SaisieClient"
ResLargeur = FenExtLarg (SaisieClient)


Début de la page

FenExtPosX (en anglais WinOutXPos)

// Position horizontale de le fenêtre "SaisieClient" par rapport à l'écran
ResPosH = FenExtPosX (SaisieClient)


Début de la page

FenExtPosY (en anglais WinOutYPos)

// Position verticale de le fenêtre "SaisieClient" par rapport à l'écran
ResPosV = FenExtPosY (SaisieClient)


Début de la page

FenHauteurBarreIcone (en anglais WinIconBarHeight)

// Modifie la hauteur de la zone
FenHauteurBarreIcone (50)


Début de la page

FenHauteurBarreIcone (en anglais WinIconBarHeight)

// Récupère la hauteur de la zone
Hauteur est un entier = FenHauteurBarreIcone ()


Début de la page

FenImageFond (en anglais WinBackgroundImage)

// Modification de l'image de fond de la fenêtre "SaisieImage"
// La nouvelle image est "C:\Documents\Fond.GIF"
// Cette image sera centrée dans la fenêtre
Res = FenImageFond (SaisieImage, "C:\Documents\Fond.GIF", imgCentré )


Début de la page

FenImageFond (en anglais WinBackgroundImage)

// Modification de l'image de fond de la fenêtre "SaisieImage"
// La nouvelle image est "\Documents\Fond.GIF"
// Cette image sera centrée dans la fenêtre
Res = FenImageFond (SaisieImage, "\Documents\Fond.GIF", imgCentré )


Début de la page

FenIntHaut (en anglais WinInHeight)

// Hauteur interne de le fenêtre "SaisieClient"
ResHauteurInterne = FenIntHaut (SaisieClient)


Début de la page

FenIntLarg (en anglais WinInWidth)

// Largeur interne de la fenêtre "SaisieClient"
ResLargeurInterne = FenIntLarg (SaisieClient)


Début de la page

FenIntPosX (en anglais WinIntXPos)

// Position horizontale de la zone interne de le fenêtre "SaisieClient"
ResPosH = FenIntPosX (SaisieClient)


Début de la page

FenIntPosY (en anglais WinIntYPos)

// Position verticale de la zone interne de le fenêtre "SaisieClient"
ResPosV = FenIntPosY (SaisieClient)


Début de la page

FenPrecedente (en anglais PreviousWin)

// Nom de la fenêtre précédente
ResFenPrécédente = FenPrécédente ()


Début de la page

FenRepeint (en anglais WinRedraw)

i est un entier
POUR i = 1 à 1000
    TraitementLong()
    FenRepeint ()
FIN


Début de la page

FenTaille (en anglais WinSize)

// Augmenter la largeur et la hauteur de la fenêtre "Saisie"
FenTaille (Saisie, Saisie..Largeur + 20, Saisie..Hauteur + 30)


Début de la page

Ferme (en anglais Close)

// Fermeture de la fenêtre "SaisieFenêtre"
Ferme (SaisieFenêtre)


Début de la page

Iconise (en anglais Iconize)

// Iconise la fenêtre "SaisieClient"
Iconise (SaisieClient)


Début de la page

ImageFenetre (en anglais WindowsBitmap)

// Création des images de la fenêtre "C:\Projet\SaisieClient.WDW"
// dans le fichier "C:\Images\SaisieClient"

Res = ImageFenêtre ("C:\Projet\SaisieClient.WDW","C:\Images\SaisieClient")


Début de la page

InitFenetre (en anglais InitWindows)

// Initialise les champs à zéro et lance les traitements d'initialisation des champs
InitFenêtre ()


Début de la page

Maximise (en anglais Maximize)

// Affichage de la fenêtre "SaisieClient" dans sa taille maximale
Maximise (SaisieClient)


Début de la page

MenuAjoute (en anglais MenuAdd)

// Ajout du menu "MenuContextuel1" dans le menu Fichier
MenuAjoute (Fichier,MenuContextuel1)


Début de la page

MenuDemarque (en anglais MenuUnMark)

// Démarquage de l'option "BarreIcone"
MenuDémarque (BarreIcone)


Début de la page

MenuEtat (en anglais MenuStatus)

// Etat de l'option "BarreIcone"
ResEtat = MenuEtat (BarreIcone)


Début de la page

MenuInvisible (en anglais MenuInvisible)

// L'option "BarreIcone" devient invisible
MenuInvisible (BarreIcone)


Début de la page

MenuInvisible (en anglais MenuInvisible)

// Rend invisible la sous option "Sauvegarder"
// du menu "Fichier" dans la fenêtre "FenMenu"
// à partir de la fenêtre "Client"
MenuInvisible (FenMenu,Fichier.Sauvegarder)
// équivalent à FenMenu.Fichier.Sauvegarder..Visible = Faux


Début de la page

MenuLibelle (en anglais MenuLabel)

// Connaître le libellé de l'option "BarreIcone"
ResLibellé = MenuLibellé (BarreIcone )


Début de la page

MenuMarquage (en anglais MenuIsMarked)

// L'option "BarreIcone" est-elle marquée ?
ResMarquage = MenuMarquage (BarreIcone)


Début de la page

MenuMarque (en anglais MenuMark)

// Marquage de l'option "Option1" du menu contextuel "MenuContextuel1"
MenuMarque (Option1)
// Equivalent à : MenuMarque(MenuContextuel1.Option1)


Début de la page

MenuMarque (en anglais MenuMark)

// Marquage de l'option "BarreIcone"
MenuMarque (BarreIcone)


Début de la page

MenuSelectMoins (en anglais MenuSelectMinus)

// Grise l'option "BarreIcone" dans
// le menu déroulant "Menu" de la fenêtre en cours
MenuSelectPlus(BarreIcone)
// Grise l'option "BarreIcone" dans le menu "Menu" de la fenêtre "Fen1"
// La fenêtre Fen1 n'est pas la fenêtre en cours
MenuSelectMoins (Fen1,BarreIcone)
// Grise l'option "BarreIcone" dans le menu contextuel "MenuContextuel1"
MenuSelectMoins (Fen1,MenuContextuel1.BarreIcone)


Début de la page

MenuSelectPlus (en anglais MenuSelectPlus)

// dé-grise l'option "BarreIcone" dans
// le menu déroulant "Menu" de la fenêtre en cours
MenuSelectPlus (BarreIcone)

// Dé-Grise l'option "BarreIcone" dans le menu "Menu" de la fenêtre "Fen1"
// La fenêtre Fen1 n'est pas la fenêtre en cours
MenuSelectPlus (Fen1,BarreIcone)

// Dé-Grise l'option "BarreIcone" dans le menu contextuel "MenuContextuel1"
MenuSelectPlus (Fen1,MenuContextuel1.BarreIcone)


Début de la page

MultitacheRepeint (en anglais MultitaskRedraw)

i est un entier
POUR i = 1 à 1000
  
TraitementLong()
   MultitâcheRepeint ()
FIN


Début de la page

Ouvre (en anglais Open)

// Ouverture et repositionnement de la fenêtre "SaisieFenêtre"
// Les paramètres Valeur1 et Valeur2 sont passés au traitement de
// déclaration des globales de la fenêtre "SaisieFenêtre"
// ValeurRenvoyée récupérera la valeur renvoyée
// lors de la fermeture de la fenêtre "SaisieFenêtre"
ValeurRenvoyée = Ouvre ("SaisieFenêtre, 10, 15", Valeur1, Valeur2)


Début de la page

OuvreFille (en anglais OpenChild)

// Ouverture de la fenêtre fille"SaisieFenêtre"
// sans positionnement et sans passage de paramètres

OuvreFille (SaisieFenêtre)


Début de la page

OuvreFille (en anglais OpenChild)

// Ouverture de la fenêtre fille "SaisieFenêtre".
// La valeur du champ "SaisieClient" est passé en paramètre au traitement
// de déclaration des globales de la fenêtre "SaisieFenêtre".
OuvreFille (SaisieFenêtre, SaisieClient)
-- Traitement de déclaration des globales de la fenêtre "SaisieFenêtre"
// Récupération des paramètres

Procédure SaisieFenêtre(Client)
  HLitRecherche(Client, NomClient, Client)
  SI HTrouve() ALORS
    FichierVersEcran()
  SINON
    Erreur("Aucun client ne correspond")
  FIN


Début de la page

OuvreFille (en anglais OpenChild)

// Ouverture de la fenêtre fille "SaisieFenêtre"
// au dessus de toutes les autres fenêtres sœurs

OuvreFille ("SaisieFenêtre"+ Dessus )
// équivalent à :
//    OuvreFille(SaisieFenêtre)
//    FenEtat(SaisieFenêtre,Dessus)


Début de la page

OuvreFille (en anglais OpenChild)

// Ouverture de la fenêtre fille "SaisieFenêtre" deux fois
// en spécifiant un alias pour chacune de ces fenêtres

OuvreFille ("Saisie1 = SaisieFenêtre, 10, 20")
OuvreFille ("Saisie2 = SaisieFenêtre, 10, 500")
// la position d'affichage est spécifié à chaque ouverture
// pour éviter que les fenêtres soient superposées


Début de la page

OuvreFille (en anglais OpenChild)

// Ouverture de la fenêtre fille "SaisieFenêtre"
// au dessus de toutes les autres fenêtres de l'application
// avec positionnement et passage de paramètres

OuvreFille ("SaisieFenêtre, 10, 20"+ Dessus , Valeur1, Valeur2)


Début de la page

OuvreSoeur (en anglais OpenSister)

// Ouverture de la fenêtre soeur "SaisieFenêtre"
// sans positionnement et sans passage de paramètres

OuvreSoeur (SaisieFenêtre)


Début de la page

Restaure (en anglais Restore)

// Affichage de la fenêtre "SaisieClient" dans sa taille initiale
Restaure (SaisieClient)


Début de la page

TitreEnCours (en anglais CurrentTitle)

// Remplacer le titre de la fenêtre en cours
TitreEnCours (gFond( iRougeClair )+gStylo( iNoir )+ ...
                  "Modification d'une fiche client")


Début de la page

TitreEnCours (en anglais CurrentTitle)

// Modifier le titre de la fenêtre en cours
// Ajoute "en cours"
TitreEnCours ( EOT +gFond( iRougeClair )+gStylo( iNoir )+ ...
                   " en cours")


Début de la page

TitreSuivant (en anglais NextTitle)

// Modification du titre de la prochaine fenêtre à ouvrir
TitreSuivant ("Modification d'une fiche client")


Début de la page

Utilise (en anglais Use)

// Ouverture de la fenêtre "SaisieClient" et fermeture
// de toutes les autres fenêtres précédemment ouvertes
Utilise (SaisieClient)


Début de la page