Fonction liste chois sur argument

pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
- 6 janv. 2004 à 13:40
pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
- 6 janv. 2004 à 17:04
Bonjour je voudrais faire une fonction qui propose une liste de choix definit sur un argument!!

Un peu comme le Boléan (True ou false)

Ex: Fonction tous con!!:

Ecrit (Text1, Valeur)
Valeur aurait pour liste automaique (Test,test1,test2)

Merci!!

4 réponses

Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
6 janv. 2004 à 15:00
Salut PcPunch.

Il te faut utiliser une énumération :

Enum Enum_Test
    Test = 0
    Test1  '# pas besoin de valoriser, ca s'incrémente tout seul
    Test2
End Enum

Function Ecrit ( Str as String , Value as Enum_Test )
    ......
End Function


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)
0
pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
6 janv. 2004 à 16:44
Ok nikel Renfield, mais si je veu utiliser ma fonction comme avec la liste des bolean (true et false)

Voila ma fonction :
'declarations
Enum Enum_Param
vbMillimeters = 0
vbCentimeters
End Enum

'fonction
Function ModeImpression(Value As Enum_Param)
Printer.ScaleMode = Value
End Function


Comment faire pour que lorsque j utilise la fonction ca donne automatiquement la liste enum apres insertion du =
exemple : ModeImpression=vbMillimeters
actuellement j'ecrit ModeImpresion[Un Spc] et la liste s affiche!!!
Je voudrais que lorsque j'ecrit ModeImpression= , ca affiche la liste enum.

Dois je utiliser une fonction????
0
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
6 janv. 2004 à 17:01
Ce n'est pas une fonction qu'il te faut utiliser !!! mais une propriété.....

'# Partie lecture de  ta propriété.... quand tu fais a = ModeImpression
Public Property Get ModeImpression() As Enum_Param
    ModeImpression = Printer.ScaleMode
End Property

'# Partie affectation de la propriete, si tu ne met pas cette partie, ta propriete...est en lecture seule !!
Public Property Let ModeImpression(Value As Enum_Param)
    Printer.ScaleMode = Value
End Property


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)
0
pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
6 janv. 2004 à 17:04
merci!!!!
0