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

ObjetActif (en anglais GetActiveObject)

Excel est un objet Automation dynamique
// Si Excel est déjà lancé, utilisation de ce programme
Excel = ObjetActif ("Excel.Application")
SI Excel = NULL ALORS
   // On lance Excel
  
Excel = allouer un objet Automation "Excel.Application"
   ...

FIN


Début de la page

OLECharge (en anglais OLELoad)

OLECharge ("OLE2", "OBJET1.OLE") // Chargement de l'objet
// Traitement de l'objet
OLESauve("OLE2", "OBJET1.OLE") // Sauvegarde de l'objet


Début de la page

OLEColle (en anglais OLEPaste)

// La portion d'image est collée depuis Paint Brush dans le presse-papiers.
// Le contenu du presse-papiers est collé dans le champ.
// Le serveur associé est Paint Brush.
OLEColle ("OLE1")
OLESauve("OLE1", "OBJET1.OLE")


Début de la page

OLECopie (en anglais OLECopy)

// Création d'un objet PaintBrush
OLECréeVide("OLE1", "PBrush")
// L'objet est copié dans le presse-papiers
OLECopie ("OLE1")
// L'objet est collé et sauvé dans un autre champ
OLEColle("OLE2")
OLESauve("OLE2", "OBJET.OLE")


Début de la page

OLECreeCopie (en anglais OLECreateCopy)

// L'image Château.bmp a été créée avec Paint Brush.
// Lancement de Paint Brush avec l'image Château.bmp chargée.
OLECréeCopie ("OLE1", "C:\Windows\Château.bmp")
// Traitement
// Sauvegarde
OLESauve("OLE1", "OBJET.OLE")


Début de la page

OLECreeVide (en anglais OLECreateEmpty)

// Lance PaintBrush sur un document vide
OLECréeVide ("OLE1", "PBrush")
// Traitement
// Sauvegarde
OLESauve("OLE1", "OBJET.OLE")
// Récupère le serveur à lancer
Choix est une chaîne
Ind est un entier = ListeSelect("SERVOLE")
Choix = SERVOLE[Ind] + TAB
Choix = ExtraitChaîne(Choix, 2)
OLECréeVide ("OLE1", Choix)


Début de la page

OLEEdite (en anglais OLEActivate)

// Création d'un objet PaintBrush
OLECharge("OLE1", "C:\WINDEV\OLE1.OLE")
// ...
// Lancement de PaintBrush pour éditer l'objet
OLEEdite ("OLE1")
// Sauvegarde
OLESauve("OLE1", "OBJET.OLE")


Début de la page

OLEJoue (en anglais OLEPlay)

// Crée un objet à partir d'un .WAV
OLECréeCopie("OBJET1", "C:\Windows\tada.wav", Faux )
// Joue le .WAV
OLEJoue ("OLE1", "&Lecture")
ListeAjoute("Liste1", OLEJoue ("OBJET1"))


Début de la page

OLESauve (en anglais OLESave)

OLECréeVide("OLE1", "PBrush")
// Traitement
// Sauvegarde de l'objet
OLESauve ("OLE1", "OBJET1.OLE")
OLEColle("OLE1", "PBrush")
// Sauvegarde de l'objet
OLESauve ("OLE1", "OBJET1.OLE")


Début de la page

OLEserveur (en anglais OLEServer)

// Initialiser la liste avec les serveurs OLE disponibles
ListeAjoute("SERVOLE", OLEServeur ())
// Récupérer le serveur à lancer
Choix est une chaîne
Ind est un entier = ListeSelect("SERVOLE")
Choix = SERVOLE[Ind] + TAB
Choix = ExtraitChaîne(Choix, 2)
OLECréeVide("OLE1", Choix)


Début de la page