Setting Focus - SAP B1 SDK Help

Setting Focus
See Also
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

    Dim oItem As SAPbouiCOM.Item

    Dim oComboBox As SAPbouiCOM.ComboBox

    oForm = SBO_Application.Forms.Item(FormUID)



    ' Get unique id of active item On form

    Dim activeItem As String = oForm.ActiveItem



    ' Set item With unique id To be active (In focus)

    oForm.ActiveItem = "Combo1"

    activeItem = oForm.ActiveItem     ' Return UID of ComboBox



    ' Check a specific item ID is in focus

    Dim item As SAPbouiCOM.Item = oForm.Items.Item("Combo1")

    oComboBox = oItem.Specific



    Dim bActiveItem As Boolean = oComboBox.Active



    ' Remove focus from item (move focus to the next item that can get focus)

    oComboBox.Active = False

    bActiveItem = oComboBox.Active

End Sub