Pergunte aqui
2

Enviar dados do listbox para testbox ao clicar

perguntadas 2018-08-07 18:52:54 +0200

imagem do gravatar de Conrado

updated 2018-08-08 13:03:13 +0200

Pessoal,

Preciso de uma ajuda.

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

Descrição da imagem

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: https://forum.openoffice.org/en/forum...

Descrição da imagem

Agora eu preciso colocar cada item no seu devido textbox.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

imagem do gravatar de joaorochajjoaorochaj ( 2018-08-08 04:34:19 +0200 )editar

@joaorochaj vou verificar aqui e ver se dá certo

imagem do gravatar de ConradoConrado ( 2018-08-08 12:39:38 +0200 )editar

@joaorochaj dê uma olhada no post editado.

imagem do gravatar de ConradoConrado ( 2018-08-08 13:02:38 +0200 )editar

1 Resposta

3

respondidas 2018-08-08 14:55:43 +0200

imagem do gravatar de Júnio Vieira

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.

C:\fakepath\15328227203599934.ods

editar assinalar como ofensivo Excluir Link mais

Comentários

@Júnio Vieira , muito obrigado. Deu certo aqui.

imagem do gravatar de ConradoConrado ( 2018-08-08 17:15:59 +0200 )editar

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

imagem do gravatar de joaorochajjoaorochaj ( 2018-08-09 05:50:29 +0200 )editar

@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.

imagem do gravatar de ConradoConrado ( 2018-08-09 12:36:17 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-08-07 18:52:54 +0200

Lidas: 29 vezes

Última atualização: Aug 08