PDA

View Full Version : Page.CreateObject COMBOBOX


adivin
04-12-2006, 12:36 PM
I've created a combobox with code:

tblComboProps = {};
tblComboProps.FontName = "Arial";
tblComboProps.FontSize = 12;
tblComboProps.FontItalic = false;
tblComboProps.FontStrikeout = false;
tblComboProps.FontAntiAlias = true;
tblComboProps.FontWeight = FW_NORMAL;
tblComboProps.FontUnderline = false;
tblComboProps.FontScript = ANSI_CHARSET;
tblComboProps.TextColor = Math.HexColorToNumber("000000");
tblComboProps.ComboStyle = DROPDOWN_LIST;
tblComboProps.LinesToDisplay = 4;
tblComboProps.Sort = false;
tblComboProps.BackgroundColor = Math.HexColorToNumber("FFFFFF");
tblComboProps.Enabled = true;
tblComboProps.Visible = true;
tblComboProps.Width = 200;
tblComboProps.Height = 26;
tblComboProps.Y = 220;
tblComboProps.X = 220;
tblComboProps.TooltipText = "";

Page.CreateObject(OBJECT_COMBOBOX, "ComboBox_Object", tblComboProps);

how can I continue this code for adding items and actions to those items too ?
an example will help....
thank you

adivin
04-12-2006, 01:36 PM
I discovered the answer:

tblComboProps = {};
tblComboProps.FontName = "Arial";
tblComboProps.FontSize = 12;
tblComboProps.FontItalic = false;
tblComboProps.FontStrikeout = false;
tblComboProps.FontAntiAlias = true;
tblComboProps.FontWeight = FW_NORMAL;
tblComboProps.FontUnderline = false;
tblComboProps.FontScript = ANSI_CHARSET;
tblComboProps.TextColor = Math.HexColorToNumber("000000");
tblComboProps.ComboStyle = DROPDOWN_LIST;
tblComboProps.LinesToDisplay = 3;
tblComboProps.Sort = false;
tblComboProps.BackgroundColor = Math.HexColorToNumber("FFFFFF");
tblComboProps.Enabled = true;
tblComboProps.Visible = true;
tblComboProps.Width = 200;
tblComboProps.Height = 26;
tblComboProps.Y = 220;
tblComboProps.X = 220;
tblComboProps.TooltipText = "";

Page.CreateObject(OBJECT_COMBOBOX, "ComboBox_Object", tblComboProps);

ComboBox.AddItem("ComboBox_Object", "Arata1", "");
ComboBox.AddItem("ComboBox_Object", "Arata2", "");

selected_index = ComboBox.GetSelected("ComboBox_Object");

if (selected_index == 1) then
Dialog.Message("Selected Index","The currently selected item has an index of "..selected_index, MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
etc......