Retorno do ListBox

[evertonlb]

Ei amigos. tenhum num Form um BtnBmp que chama uma funcao que tem um ListBox, gostaria que o cliente escolhesse o registro e ao pressionar enter eu recebesse o "retorno" desta funcao com o codigo do fornecedor escolhido no ListBox. Tem como?

Obrigado

Everton

Fw 2.4/xHb 99.50/XP

[evertonlb]

Ei amigos. tenhum num Form um BtnBmp que chama uma funcao que tem um ListBox, gostaria que o cliente escolhesse o registro e ao pressionar enter eu recebesse o "retorno" desta funcao com o codigo do fornecedor escolhido no ListBox. Tem como?

Obrigado

Everton

Fw 2.4/xHb 99.50/XP

[kapiaba]

LOCAL nRecno

MEMVAR MeuRetorno

//-> Posiciona Cursor no Registro Para Pegar

nRecNo := ( CadBancos )->( RecNo() )

GoTo( nRecNo )

MeuRetorno := ( CadBancos )->CAMPODOBANCO //->FIELD

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[mjmb]

Sim,

Você pode usar as cláusulas ON DBLCLICK ou ON CHANGE ao criar o LISTBOX ou ainda colocar assim logo após criar o LISTBOX oBrw:bkeydown := {|nkey| if(nkey=13,SuaFuncao(),) }

Márcio.

[Luiz Arruda (ICO)]

E SEVC. QUISER PASSAR TUDO PARA GETs, PODE USAR A VARPUT

******

codigo=0

xnome=""

define dialog odlg from 00,00 to 30,45 title "teste"

@02,02 get oget1 var codigo of odlg when(.f.) SIZE 130,16

@04,02 get oget2 var xnome of odlg when(.f.) SIZE 130,16

@75,95 btnbmp prompt "ok" action suafuncao(odlg)

activate dialog odlg

function suafuncao(odlg)

DEFINE DIALOG ODLGG FROM 00,00 TO 30,50

@02,02 LISTBOX OLBX FIELDS PESSJAN->NOME

ACTIVATE DIALOG ODLGG CENTER

XNOME=NOME

codigo=CONTA

oget1:varput(codigo)

oget1:refresh()

OGET2:VARPUT(XNOME)

OGET2:REFRESH()

return .t.

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br

Editado por - ico on 06/06/2007 17:50:38

[evertonlb]

Blz Pessoal. Muito obrigado, vou testar.

Everton

Fw 2.4/xHb 99.50/XP