---

ACAD_MD_Abb_01.jpg ACAD_MD_Abb_02.jpg

Hallo Zusammen!
Möchte gerne eine Abfrage erstellen bzgl. Maßstäbe.
Leider wird dabei in der Befehlszeile immer nur die 1 markiert angezeigt.
Kann man das so programmieren, dass die Zahlen nach dem : markiert werden 1:1, 1:2,... 1:10.

Code:

---

Dim pKeyOpts As PromptKeywordOptions = New PromptKeywordOptions("")
pKeyOpts.Message = vbLf & vbLf & "Wählen Sie einen Maßstab aus:"
pKeyOpts.Keywords.Add("1:1")
pKeyOpts.Keywords.Add("1:2")
pKeyOpts.Keywords.Add("1:5")
pKeyOpts.Keywords.Add("1:10")
pKeyOpts.Keywords.Add("1:20")

pKeyOpts.Keywords.Default = "1:1"
pKeyOpts.AllowNone = True
Dim pKeyRes As PromptResult = acEd.GetKeywords(pKeyOpts)

---

Vielen Dank im Voraus.

------------------
Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP