The following example shows an OCX event trigger for the NewItem event of the CSComboBox control MyCombo in control-frame CtrlFrame-2:
PROCEDURE CtrlFrame-2.MyCombo.NewItem: DEFINE INPUT-OUTPUT PARAMETER i-ComboText AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER i-KeepFocus AS INTEGER NO-UNDO.
COM-SELF:AddItem(i-ComboText, 1).
i-KeepFocus = -1.
END PROCEDURE.
This event occurs when a user enters an item in the text box that is not in the combo box list.
The programmer uses the COM-SELF handle to add the new text item to the list with the AddItem() method. Setting i-KeepFocus to -1 ensures that the control maintains input focus after the item is added to the list.
If this event procedure is in the AppBuilder-generated application file, the programmer might otherwise choose to call the AddItem() method indirectly using the component handles provided by the AppBuilder (chCtrlFrame-2) and the control-frame COM object (MyCombo property):
PROCEDURE CtrlFrame-2.MyCombo.NewItem:
DEFINE INPUT-OUTPUT PARAMETER i-ComboText AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER i-KeepFocus AS INTEGER NO-UNDO.
chCtrlFrame-2:MyCombo:AddItem(i-ComboText, 1).
i-KeepFocus = -1.
END PROCEDURE.
