Enviar dados do listbox para testbox ao clicar

Pessoal,

Preciso de uma ajuda.

Como transferir os dados de um ListBox para os TextBox correspondentes?

A ideia é ao clicar na linha do listbox, ele preencheria os textbox acima. (pode ser ao clicar no listbox ou depois de um commandbutton.

E estou utilizando este código para carregar os dados (retirado de um procedimento que o @Grafeno fez para @joaorochaj

Sub CarregarDados
   oDoc = ThisComponent
   oPlan = oDoc.Sheets(1)
   
   oListBox = oDialog1.getControl("ListBox1")
   oListBox.Model.removeAllItems
   
   For i = 2 to UltimaLinha(oPlan)
     sCol1 = oPlan.getCellByPosition(0,i).String
     sCol2 = oPlan.getCellByPosition(1,i).String
     sCol3 = oPlan.getCellByPosition(2,i).String
     sCol4 = oPlan.getCellByPosition(3,i).String
     sCol5 = oPlan.getCellByPosition(4,i).String
     
     oListBox.AddItem( " " & EspacarColuna(sCol1,4) &_
     				   " | " & EspacarColuna(sCol2,6) &_
     				   " | " & EspacarColuna(sCol3,86) &_
     				   " | " & EspacarColuna(sCol4,15) &_
                       " | " & EspacarColuna(sCol5,10), i)
                       
   Next i   
End Sub
'=======================================================================================

Function EspacarColuna( sCol, nTam )
   EspacarColuna = Left(sCol & String(nTam," "),nTam) & " "
End Function

Consegui achar este procedimento em pesquisa na internet.

Sub Snippet(Optional oInitialTarget As Object)
  Dim oControl As Object
  Dim sSelectedItem As String
  Dim oControl_2 As Object
Dim oDlg
oDlg = oInitialTarget.Source.getContext()
  oControl = oDlg.getControl("ListBox1")
  sSelectedItem = oControl.getSelectedItem()
  oControl_2 = oDlg.getControl("txtACAO")
 
  oControl_2.setText(sSelectedItem)
End Sub

Referência: [Solved] Pass ListBox selected item to Textfield (View topic) • Apache OpenOffice Community Forum

Agora eu preciso colocar cada item no seu devido textbox.

@Conras, TXTBOX LISTBOX eu acho que esse pode ajudar.

@joaorochaj vou verificar aqui e ver se dá certo

@joaorochaj dê uma olhada no post editado.

Bom dia, com a planilha exemplo que você citou acima que o Grafeno fez, com algumas modificações consegui reproduzir o que entendi que você precisa, veja se é isso mesmo.

15328227203599934.ods

@JúnioVieira , muito obrigado. Deu certo aqui.

@Conras, ajudou eu tambem obrigado, uma duvida,existe um metodo de editar oque ta na textbox a linha que demos duplo click na listbox?

@joaorochaj acredito que sim. Se seguirmos a ideia do VBA Excel, basta colocar para ele verificar qual é a posição (linha) que retorna a informação e transcrever…também estou trabalhando nisso.