Is it possible get the selected item position in a combo box without for next method?

[Jonjozz]

I get the total items of a combo box by using “oComboBox.ItemCount”
I get the string of a selected item of a combo box by using “oComboBox.Text”
But How do I get the position of the selected item in a combo box?

[JohnSUN]

oEvent.Selected?

[Jonjozz]

@JohnSUN

oEvent.Selected

[Jonjozz]

[Jonjozz]

same error mensage

[JohnSUN]

Sub oComboBox_ItemStatusChanged(oEvent As Variant)
Dim nomItem As Long 
	nomItem = oEvent.Selected
	Print "Selected " & nomItem & " (" & oEvent.Source.getItems()(nomItem) & ")"
End Sub

[Jonjozz]

Sorry. It didn´t work. I want to select item by using ENTER key.
The Item Status Changed Event doesn’t even trigger.

[Jonjozz]

The Key Pressed Event triggers.

[Jonjozz]

I also tried to use “oEvent.Source.SelectedItemPos”, but I got an error

[Jonjozz]

Maybe the solution is “For…to…next” method…but I think that there must be a simple line method.

Sub KeyPressed(oEvent as Object)
Dim oSheet as Object
Dim sItem as String
Dim iItems as Integer
Dim x as integer
Dim bFound as Boolean
Dim oCell as Object
'---------------------------------------------------------------------------------------------------
If oEvent.KeyCode = com.sun.star.awt.Key.RETURN Then
iItems = oEvent.Source.ItemCount
sItem = oEvent.Source.Text
'-----------------------------------------------------------------------------------------------------
x = 0
bFound = false
While not bFound and x < iItems
If oEvent.Source.getItem(x) = sItem Then
oSheet = ThisComponent.Sheets.getByName(“Cobranca”)
oCell = oSheet.getCellByPosition(1, x+3) 'The searched list begins 3 rows above combo box
ThisComponent.getCurrentController().Select(oCell)
bFound = True
Else
x = x + 1
End if
Wend
'-----------------------------------------------------------------------------------------------------
ElseIf oEvent.KeyCode < 256 or (oEvent.KeyCode > 265 and oEvent.KeyCode<> 1024_
and oEvent.KeyCode<> 1025 and oEvent.KeyCode<> 1280 and oEvent.KeyCode<> 1283) Then
oEvent.Source.Text=""
End If

End Sub

[Jonjozz]

[Ratslinger]

@JohnSUN

Sub oComboBox_ItemStatusChanged(oEvent As Variant)

This worked quite well in my test:

Tested in both Base and Calc - both same result.

I do realize the problem stated by @Jonjozz and do not have a solution for that.

[Jonjozz]

Thanks for your attention, but the code doesn’t trigger when the item is selected by ENTER key.