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.