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.
DelaiAvantFermeture (en anglais DelayBeforeClosing)
// Fermeture de la boîte de dialogue dans 2 secondes
DélaiAvantFermeture (200) Erreur("L'application va se terminer") FinProgramme()
|
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
|
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
|
FenBoutonSysteme (en anglais WinSystemButton)
// Modifier le type de bouton de la fenêtre "SaisieClient"
FenBoutonSystème (SaisieClient, BoutonOK )
|
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")
|
FenEnCours (en anglais CurrentWin)
FenEnExecution (en anglais WinInput)
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
|
FenExtHaut (en anglais WinOutHeight)
FenExtLarg (en anglais WinOutWidth)
FenExtPosX (en anglais WinOutXPos)
// Position horizontale de le fenêtre "SaisieClient" par rapport à l'écran
ResPosH = FenExtPosX (SaisieClient)
|
FenExtPosY (en anglais WinOutYPos)
// Position verticale de le fenêtre "SaisieClient" par rapport à l'écran
ResPosV = FenExtPosY (SaisieClient)
|
FenHauteurBarreIcone (en anglais WinIconBarHeight)
FenHauteurBarreIcone (en anglais WinIconBarHeight)
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é )
|
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é )
|
FenIntHaut (en anglais WinInHeight)
FenIntLarg (en anglais WinInWidth)
FenIntPosX (en anglais WinIntXPos)
// Position horizontale de la zone interne de le fenêtre "SaisieClient"
ResPosH = FenIntPosX (SaisieClient)
|
FenIntPosY (en anglais WinIntYPos)
// Position verticale de la zone interne de le fenêtre "SaisieClient"
ResPosV = FenIntPosY (SaisieClient)
|
FenPrecedente (en anglais PreviousWin)
FenRepeint (en anglais WinRedraw)
FenTaille (en anglais WinSize)
// Augmenter la largeur et la hauteur de la fenêtre "Saisie"
FenTaille (Saisie, Saisie..Largeur + 20, Saisie..Hauteur + 30)
|
Ferme (en anglais Close)
Iconise (en anglais Iconize)
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")
|
InitFenetre (en anglais InitWindows)
Maximise (en anglais Maximize)
MenuAjoute (en anglais MenuAdd)
MenuDemarque (en anglais MenuUnMark)
MenuEtat (en anglais MenuStatus)
MenuInvisible (en anglais MenuInvisible)
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
|
MenuLibelle (en anglais MenuLabel)
MenuMarquage (en anglais MenuIsMarked)
MenuMarque (en anglais MenuMark)
// Marquage de l'option "Option1" du menu contextuel "MenuContextuel1"
MenuMarque (Option1) // Equivalent à : MenuMarque(MenuContextuel1.Option1)
|
MenuMarque (en anglais MenuMark)
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)
|
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)
|
MultitacheRepeint (en anglais MultitaskRedraw)
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)
|
OuvreFille (en anglais OpenChild)
// Ouverture de la fenêtre fille"SaisieFenêtre"
// sans positionnement et sans passage de paramètres OuvreFille (SaisieFenêtre)
|
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
|
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)
|
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
|
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)
|
OuvreSoeur (en anglais OpenSister)
// Ouverture de la fenêtre soeur "SaisieFenêtre"
// sans positionnement et sans passage de paramètres OuvreSoeur (SaisieFenêtre)
|
Restaure (en anglais Restore)
TitreEnCours (en anglais CurrentTitle)
// Remplacer le titre de la fenêtre en cours
TitreEnCours (gFond( iRougeClair )+gStylo( iNoir )+ ... "Modification d'une fiche client")
|
TitreEnCours (en anglais CurrentTitle)
// Modifier le titre de la fenêtre en cours
// Ajoute "en cours" TitreEnCours ( EOT +gFond( iRougeClair )+gStylo( iNoir )+ ... " en cours")
|
TitreSuivant (en anglais NextTitle)
// Modification du titre de la prochaine fenêtre à ouvrir
TitreSuivant ("Modification d'une fiche client")
|
Utilise (en anglais Use)
// Ouverture de la fenêtre "SaisieClient" et fermeture
// de toutes les autres fenêtres précédemment ouvertes Utilise (SaisieClient)
|