SBO中弹出选择框选择后的事件捕捉

根据小肖的帮助：

1.  Private Sub AccountSetting_10000010_OnFormEvents(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles Me.OnFormEvents
2.         If pVal.EventType = BoEventTypes.et_CHOOSE_FROM_LIST Then
3.             If pVal.ItemUID = MyCtlUID.mtxbz Then
4.                   Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
5.         oCFLEvento = pVal
6.         If Not oCFLEvento.SelectedObjects Is Nothing Then
7.             Dim val As String = ""
8.             val = oCFLEvento.SelectedObjects.GetValue(0, 0)
9.            '这里就可以利用捕捉到的值了
10.        End If
11.        End If
12. End Sub