- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Pegar conteúdo do listbox
×
Linguagem de Programação ADVPL
Perguntas Pegar conteúdo do listbox
- RonaldoLopes
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 478
- Obrigados Recebidos: 2
10 anos 11 meses atrás #19255
por RonaldoLopes
Pegar conteúdo do listbox foi criado por RonaldoLopes
Bom dia, estou precisando pegar o valor do item seleciona de um listbox via double click.
A posição eu consigo pegar, mas o seu valor não.
Obrigado
A posição eu consigo pegar, mas o seu valor não.
Obrigado
Por favor Acessar ou Registrar para participar da conversa.
- THALESCOTR
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 124
- Obrigados Recebidos: 0
10 anos 11 meses atrás #19307
por THALESCOTR
Respondido por THALESCOTR no tópico Pegar conteúdo do listbox
Bom dia Ronaldo,
segue um exemplo de como pegar o valor selecionado.
Private oQual
Private cVarQ
Private aArq := {}
AADD(aArq,"000000","Teste")
AADD(aArq,"000001","Teste2")
AADD(aArq,"000002","Teste3")
@ 30,20 LISTBOX oQual VAR cVarQ Fields HEADER "Código", "Descrição" SIZE;
273,090 OF oDlg PIXEL
oQual:SetArray(aArq)
oQual:bLine := { || {aArq[oQual:nAt,1],aArq[oQual:nAt,2]}}
oQual:blDblClick := {||TesteMsg()}
oQual:Refresh()
Static Function TesteMsg
For Nx:=1 To Len(aArq)
If Nx == cVarQ
msgAlert("Código: "+aArq[Nx][1]+" Descrição: "+aArq[Nx][2])
EndIf
Next Nx
Return
Att
Thales
segue um exemplo de como pegar o valor selecionado.
Private oQual
Private cVarQ
Private aArq := {}
AADD(aArq,"000000","Teste")
AADD(aArq,"000001","Teste2")
AADD(aArq,"000002","Teste3")
@ 30,20 LISTBOX oQual VAR cVarQ Fields HEADER "Código", "Descrição" SIZE;
273,090 OF oDlg PIXEL
oQual:SetArray(aArq)
oQual:bLine := { || {aArq[oQual:nAt,1],aArq[oQual:nAt,2]}}
oQual:blDblClick := {||TesteMsg()}
oQual:Refresh()
Static Function TesteMsg
For Nx:=1 To Len(aArq)
If Nx == cVarQ
msgAlert("Código: "+aArq[Nx][1]+" Descrição: "+aArq[Nx][2])
EndIf
Next Nx
Return
Att
Thales
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Pegar conteúdo do listbox
Tempo para a criação da página:0.104 segundos