Retornar informacao LISTBOX

[pena]

Pessoal, como faço para retornar a informação da linha do listbox, eu peguei um exemplo aqui no forum mas ele retorna em qual posicao esta e nao a informacao da linha, alguem pode me ajudar?

segue o exemplo que traz a posicao da linha

Código: Selecionar todos

#include "MiniGUI.ch"

FUNCTION Main()

DEFINE WINDOW Win_1 AT 00,00 WIDTH 480 HEIGHT 200 MAIN

ON KEY F4 ACTION GetValue()
ON KEY RETURN ACTION GetValue()

DEFINE LISTBOX List_1 ;ROW 5 ;COL 0;WIDTH 460 ;HEIGHT 160
ITEMS {"1 -Primero","2 -Segundo","3 -Tercero"}
VALUE 1
FONTNAME "Times NEW Roman"
FONTSIZE 14
ONDBLCLICK GetValue()

END LISTBOX

END WINDOW
ACTIVATE WINDOW Win_1

RETURN(NIL)

PROCEDURE GetValue()

MSGINFO(Win_1.List_1.Value)

ThisWindow.RELEASE

RETURN(Nil)

[Pablo César]

Experimente isto: MSGINFO(str(win_1.list1.value))

[pena]

Nao funciona assim tb
ta complicado de fazer isso funcionar

[Pablo César]

Verifique se é isso o que você precisa. Alterei a sua função GetValue para:

Código: Selecionar todos

PROCEDURE GetValue()
Local nPos, cItem
nPos:=Win_1.List_1.Value
cItem:=GetProperty("Win_1","List_1","Item",nPos)
MSGINFO("Item nº "+Alltrim(Str(nPos))+Chr(13)+chr(10)+cItem)
ThisWindow.RELEASE
RETURN(Nil)