Lenguaje conciso, selección de cuadro combinado con título y enlace al cuadro de edición.

.Ventana de ensamblaje Ensamblaje 1

.Subroutine_ComboBox1_ListItemsSelected

.if (ComboBox1.FetchItemText (ComboBox1.CurrentSelectedItem) = " Nightstones")

Label1.Title = "Je je"

EditBox1.Content = "456"

De lo contrario

. Si es verdadero (ComboBox1.Fetch Item Text (ComboBox1.Current Selection) = "Rose Fairy Leaf")

Etiqueta 1.Title = "Jaja"

EditBox1.Content = "123"

.Si es verdadero fin

.Si es fin

.Crear subrutina __Iniciar ventana__

. Posición de la variable local

ComboBox1.Content = "Seleccione"

ComboBox1.Insert Item (Posición, "Piedra Nightshade", )

ComboBox1.Insert Item ( Posición + 1, "Hoja de hada rosa", ).