Vytisknout stránku | Zavřít okno

Vstupní položkové pole

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=19500
Datum vytištění: 07.kvě.2026 v 11:43


Téma: Vstupní položkové pole
Odeslal: Carodej2
Předmět: Vstupní položkové pole
Datum odeslání: 19.čer.2014 v 15:03
Dobrý den,

můžu poprosit o ukázku Vstupního položkového pole (InputListBox). Nevím jak si navolit parametry pro výběr.

Díky.


J.B.


Odpovědi:
Odeslal: Navara
Datum odeslání: 19.čer.2014 v 21:10
Buď se dá použít výchozí ukázka s použitím parametru (předpokládá se existence parametru s názvem Values s více hodnotami),
result = InputListBox("Select one item", MultiValue.List("Values"),  Values, Title := "Dialog Title", ListName := "Values list")
MsgBox(result)
Values = result
 nebo si navolit vlastní seznam hodnot
result = InputListBox("Select one item",New String(){"a","b"}, "a", Title := "Dialog Title", ListName := "Values list")
MsgBox(result)
 

Odeslal: Carodej2
Datum odeslání: 20.čer.2014 v 09:27
Ještě bych potřeboval ukázku, jak si navolím (určím) parametry "a" a "b". Můžete mi to ukázat třeba na příkladu orientace výkresu (ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation).

A ještě bych měl jednu prosbu. Dá se u okna InputRadioBox (vstupní pole s přepínači) nadefinovat ukončovací křížek (viz. obr.). Kliknutí na křížek se chová jako kliknutí na tlačítko ok (nezruší, ale potvrdí).



Díky.

Odeslal: Navara
Datum odeslání: 20.čer.2014 v 10:06

Snad vám to pomůže...

Dim currentOrientation = ThisDrawing.ActiveSheet.Sheet.Orientation
Dim orientations As String() = [Enum].GetNames(currentOrientation.GetType())
Dim newOrientation = InputListBox("Select orientation for active sheet", orientations, currentOrientation, "Sheet orientation", "Select orientation")
ThisDrawing.ActiveSheet.Sheet.Orientation = [Enum].Parse(currentOrientation.GetType(), newOrientation)
 
To předefinování křížku nejde.


Vytisknout stránku | Zavřít okno