PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → Traduction vb -> Windev ?
Traduction vb -> Windev ?
Débuté par abbeel_fabian, 21 déc. 2004 06:19 - 4 réponses
#1
Posté le 21 décembre 2004 - 06:19
Bonjour,

Qui peux me traduire ce code en windev ? Merci
Car je ne trouve pas l'equivalant de For Each en windev !

// debut du code VB
Dim ol As Object
Dim olns As Object
Dim objFolder As Object
Dim objAllContacts As Object
Dim Contact As Object

' Etablir l'objet Application.
Set ol = New Outlook.Application

' Etablir l'objet Namespace.
Set olns = ol.GetNamespace("MAPI")

' Definir de dossier par défaut Contacts.
Set objFolder = olns.GetDefaultFolder(olFolderContacts)

' Définir objAllContacts comme la collection de tous les contacts.
Set objAllContacts = objFolder.Items

' Répéter pour chaque contact.
For Each Contact In objAllContacts

' Afficher le champs NomComplet Display pour le contact.
MsgBox Contact.FullName

Next
#2
Posté le 21 décembre 2004 - 11:38
Abbeel FAbian a écrit :

> Car je ne trouve pas l'equivalant de For Each en windev !

Tu n'as pas dû chercher beaucoup.

For Each = Pour Tout

A+

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
#3
Posté le 21 décembre 2004 - 15:28
Tu n'as pas dû chercher beaucoup.
For Each = Pour Tout


Toi non plus :)

A lire dans l'aide ... :

<----------
L'instruction POUR TOUT permet d'effectuer différents types de parcours Hyper File :

parcours complet (selon une clé spécifiée ou non)

parcours avec filtre (filtre simple, filtre selon une clé ou filtre sur la clé de parcours
----------->

... Non applicable à FOR EACH sur un objet :)
#4
Posté le 21 décembre 2004 - 18:18
L'utilisation du for each sur un objet ole automation avec pour tout ne
sera en effet pas possible. A voir si l'objet renvoie par exemple le nb
total d'enregistrements de la liste des adresses mails, il faudra se
tourner vers une boucle pour classique.


Manu wrote:

Tu n'as pas dû chercher beaucoup.
For Each = Pour Tout


Toi non plus :)

A lire dans l'aide ... :

<----------
L'instruction POUR TOUT permet d'effectuer différents types de parcours Hyper File :

parcours complet (selon une clé spécifiée ou non)

parcours avec filtre (filtre simple, filtre selon une clé ou filtre sur la clé de parcours
----------->

.. Non applicable à FOR EACH sur un objet :)



#5
Posté le 24 décembre 2004 - 04:21
Bonjour Fabian,

La fonction For Each qui existe sous VB et bien d'autres languages n'a
malheureusement pas d'équivalent en WinDev car WinDev ne manipule pas les
collections d'objets.
Une métode dans certain cas permet de contourner ce manque,c'est
l'utilisation de l'indice de l'objetdans la collection:

Exemple:
NbObjet est un entier = objFolder>>Items>>Count()
i est un entier
objContact est un objet automation dynamique

Pour i = 1 a NbObjet
objContact = objFolder.Items(i)
Fin
[/code]
Dans certain cas cette méthode n'est pas applicable car meme s'il on peut
récuprérer le nombre d'objet contenu dans la collection,
on ne peut pas récupérer un objet via son indice, cela provoque une erreur.

En WinDev 8 une alternative existe en utilisant la plate forme .Net via
l'interface IEnumertor
Cette Interface permet de récupérer chaque objet de la collection.
Un exemple d'utilisation de cette interface est disponible a l'adresse
suivante:
http://www.wdforge.org/modules/news/article.php…

[DrCharly93] www.wdforge.org
A+

objAllContacts = objFolder.Items
"Abbeel FAbian" <abbeel_fabian@skynet.be> a écrit dans le message de news:
41c79b1c$1@news.pcsoft.fr...

Bonjour,

Qui peux me traduire ce code en windev ? Merci
Car je ne trouve pas l'equivalant de For Each en windev !

// debut du code VB
Dim ol As Object
Dim olns As Object
Dim objFolder As Object
Dim objAllContacts As Object
Dim Contact As Object

' Etablir l'objet Application.
Set ol = New Outlook.Application

' Etablir l'objet Namespace.
Set olns = ol.GetNamespace("MAPI")

' Definir de dossier par défaut Contacts.
Set objFolder = olns.GetDefaultFolder(olFolderContacts)

' Définir objAllContacts comme la collection de tous les contacts.
Set objAllContacts = objFolder.Items

' Répéter pour chaque contact.
For Each Contact In objAllContacts

' Afficher le champs NomComplet Display pour le contact.
MsgBox Contact.FullName

Next



→ Revenir à WINDEV 2025