PromptStringOptions

[sam-123]

Bonjour,

 

Voilà j’ai un petit soucie :

Je n’arrive pas a déroulée ma liste, il faux chaque fois utilisée la flèche pour la voir enfin ?

Y a t-il une option que je n’ai pas mise ? :casstet:

Voila les lignes du programme:

 

Dim DnOption As PromptStringOptions = New PromptStringOptions(vbCrLf & "Choix du diamètre:[DN15/DN20/DN25/DN32]:")

DnOption.AllowSpaces = True

DnOption.DefaultValue = "DN25"

Dim DnRep As PromptResult = Application.DocumentManager.MdiActiveDocument.Editor.GetString(DnOption)

Dim Rep As String = DnRep.StringResult

 

 

(En Vba cela se faisait naturellement)

S’il y un bénévole pour m’indiquer l’erreur commise, ça serais gentil de sa part ;)

Merci d’avance

 

[(gile)]

Salut,

 

Toujours aussi difficile à comprendre tes messages :

Je n’arrive pas a déroulée ma liste, il faux chaque fois utilisée la flèche pour la voir enfin ?

Je ne vois pas de liste dans ton code (toujours pas entre les balises :mad: )

 

Sinon, je ne vois pas d'erreur dans le code.

[sam-123]

La liste c’est le choix entre plusieurs DN !

 

[DN15/DN20/DN25/DN32]

 

[(gile)]

Pas de problème chez moi :

http://img502.imageshack.us/img502/2938/62877656.png

[sam-123]

Oui la elle apparaisse toujours quand tu n’es pas en mode Dynamic, et la pour choisir une option il faux l’écrire.

 

Mais quand tu es en mode Dynamic cela apparaît à l’écran, et la tu as deux choix :

Soit tu déroule ta liste avec tes choix

Soit tu la déroule avec la flèche de ton clavier

 

Et c’est la que ca coince tu dois lâcher ta souris, appuyer sur la flèche, choisir une option puis taper enter sur ton clavier.

 

En Dynamic seulement clické sur l’option.

Bien sur à condition qu’elle soit déroule et c’est la que je ne vois pas ce que j’ai raté en écrivant mes lignes de commande.

 

 

Ps : je vois que tu as une version AutoCad inferieure à 2008, si je ne me trompe le Dynamic des objets est apparu avec la version 2008.

J’aurais voulue t’insère une image avec l’exemple, mais je ne sais pas comment faire pour l’insérer avec le commentaire

 

[(gile)]

La saisie dynamique existe sur la 2007 mais je ne supporte pas, je ne lâche pas la souris, je "claviote" avec la main gauche.

 

Si tu veux que les options l'affichent essaye plutôt avec GetKeyword

 

Comme ça :

string[] kw = new string[4] { "DN15", "DN20", "DN25", "DN32" };
PromptResult pr = ed.GetKeywords("\nChoix du diamètre: ", kw);

 

ou comme ça :

PromptKeywordOptions pko = new PromptKeywordOptions(
   "\nChoix du diamètre [DN15/DN20/DN25/DN32]: ",
   "DN15 DN20 DN25 DN32");
PromptResult pr = ed.GetKeywords(pko);

[sam-123]

Ca fonctionne, super

 

Gile l’homme de la solution :o

 

merci ;)

 

[sam-123]

Voilà la bonne méthode

 

Dim DnOption As PromptKeywordOptions = New PromptKeywordOptions("")

DnOption.Message = vbLf & "Choix du Diametre: "

DnOption.Keywords.Add("DN10")

DnOption.Keywords.Add("DN15")

DnOption.Keywords.Add("DN20")

DnOption.Keywords.Add("DN25")

DnOption.Keywords.Add("DN30")

DnOption.AllowNone = False

Dim DnRep As PromptResult = Application.DocumentManager.MdiActiveDocument.Editor.GetKeywords(DnOption)

Dim Rep As String = DnRep.StringResult