Buen dia Ingenieros
Aunque no me considero digno de cuestionar la sabiduria de Mauricio, te puedo plantear una solucion generica que en otro tiempo tuve que evaluar
Compañero "Bernardo Paris", si bien los elementos de un ComboBox no se pueden listar la igual que el de un ListBox, al cargarlos al sistema por parte de un Array si podemos identificarlos numericamente dentro de la Matriz de modo tal que tambien tendriamos la posicion, es decir
Definimos una Array que tiene varios elementos
Dim DatosArray()
DatosArray() = Array("Casa", "Perro", "Amo", "Pelao")
ahora cuando cargamos los datos de la Array al ComboBox
OBlstTitutlos.getModel.StringItemList = DatosArray ()
REM ***** BASIC *****, datos del amigo Mauricio
Dim dlg As Object
Dim combo as object
Sub Main():
dlg = CreateUnoDialog(DialogLibraries.Standard.getByName("Dialog1"))
combo = dlg.getControl("ComboBox1")
combo .getModel.StringItemList = DatosArray ()
dlg.execute()
End Sub
y despues programamos en el boton un Sub que nos captura el movimiento generado y nos muestre en un msgbox el item seleccionado (por asi decirlo)
Sub ItemSeleccionado()
Dim Encontrados as Integer
Dim Comprobar as String
If (dlg.Model.ComboBox1.text) = "" Or (dlg.Model.ComboBox1.text) = Empty Then
Else
Comprobar = dlg.Model.ComboBox1.text
For Encontrados = LBound(DatosArray ()) To UBound(DatosArray ())
If DatosArray (Encontrados) = Comprobar Then
msgbox(Encontrados)
Else
End If
Next
End If
End Sub
bueno ese seria mi codigo creo que debe tener unos errores porque el que yo tengo esta atado a un Diaglogo que tiene internamente el ComboBox, pero espero hacerme entender