Utilisation et déclaration de Class

Bonjour,

Un tour sur le site de Jean-Luc Antoine : http://www.interclasse.com/

et bien sûr la documentation française téléchargeable de Windows Script 5.6 :
http://download.microsoft.com/download/winscript56/install/5.6/w98nt42kme/fr/scd56fr.exe

dont le correspondant Anglais est disponible en ligne sur le site MSDN :
http://msdn.microsoft.com/library/en-us/dnanchor/html/Scriptinga.asp?frame=true

Instruction Class
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsstmclass.asp

Amicalement,

Jean - JMST
Belgium

"Paul Atreide" <arrakis_as01(supprimerceci)@yahoo.fr> a écrit dans le message de news: eILldB4rEHA.592@TK2MSFTNGP11.phx.gbl...

Salut à tous,

Quelqu'un connait il une doc online en français sur la création et
l'utilisation des Class dans un programme Vbs ?

A+
Muad'Dib
"L'ombre de la souris dans la seconde lune"

Dans le message news:eILldB4rEHA.592@TK2MSFTNGP11.phx.gbl ,
Paul Atreide <arrakis_as01(supprimerceci)@yahoo.fr> s'est ainsi exprimé:

Salut à tous,

Quelqu'un connait il une doc online en français sur la création et
l'utilisation des Class dans un programme Vbs ?

Je ne connais pas de doc particulière, vu que l'utilisation de classes en
VBS n'a rien de sorcier !
http://www.bellamyjc.org/fr/vbsinstructions/vsstmclass.html

Exemple :

Class MaClasseAMoi
Public Prop1 ' Propriété publique scalaire
Public Prop2 ' Propriété publique scalaire
Public Prop3() ' Propriété publique tableau
Public NbItem ' Propriété publique scalaire
...

Private Sub Class_Initialize
' Méthode d'initialisation privée
' Elle est appelée automatiquement à la création d'un
' nouvel objet de cette classe
Prop1="" ' Initialisation des propriétés de la classe
Prop2=0
...
NbItem=0
End Sub

Public Sub AddItem(nouveau)
' Méthode publique
nbItem=nbItem+1
redim preserve Prop3(nbItem)
Prop3(nbItem)=nouveau
...
end sub

Public Function GetNum
' Méthode publique
GetNum=nbItem
end function

...

End class


et pour utiliser cette classe :


Set Machin= new MaClasseAMoi
Machin.Prop1="Un tableau débile"
Machin.AddItem "Truc"
Machin.AddItem "Bidule"
Machin.AddItem "Bazar"
wscript.echo "Il y a " & Machin.GetNum & " items dans " & Machin.Prop1
....

NB: dans mon exemple, pour faire simple, j'accède directement de l'extérieur
à des propriétés de la classe.
Ce n'est pas ce qu'il se fait de mieux en programmation objet !
Si on veut être "puriste", il vaut mieux passer par les instructions
"Property Get" et "Property Set"
http://www.bellamyjc.org/fr/vbsinstructions/vsstmpropertyget.html
http://www.bellamyjc.org/fr/vbsinstructions/vsstmpropertyset.html


p.ex. :
Public Property Set Init(ch)
Prop1=ch
End Property

Public Property Get Titre
Titre=Prop1
End Property

et

Machin.Init "Un tableau débile"
...
wscript.echo "Il y a " & Machin.GetNum & " items dans " & Machin.Titre

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr