Página 1 de 1

listbox ou combobox ?

Enviado: 18 Out 2005 23:35
por Mário Isa
no DOS eu fazia:
my_array := {"X","Y","Z"}
escolha := achoice(10,10,11,20,my_array)

E pronto.....
O que estou querendo fazer é:
a) ter um array preenchido com elementos
b) ter uma "setinha" apontando para baixo que qdo o usuário clicar ali descortinar-se-á o array "dependurado" ali para que o usuário escolha a opção que mais lhe convém e, ao escolher, que ela (a opção) fique ali evidenciada.

Alguém lembra?
Obrigado.

Enviado: 19 Out 2005 13:49
por Ale SB
Blz Mario, o q vc tá procurando deve ser isto aqui, eh só compilar, blz! :
*****************************
* Programa: COMBO.PRG
* Funcao..: Exemplo simplificado do ComboBox

******************************
#INCLUDE "FiveWin.ch"

FUNCTION COMBO()

LOCAL oDlg, oCbx, cItem:=""
LOCAL mItens:= { "Combo 01", "Combo 02", "Combo 03" }

DEFINE FONT fArial NAME "ARIAL" SIZE 0,-12 BOLD

DEFINE DIALOG oDlg FROM 0,0 TO 10,30 TITLE "TESTE COMBOBOX"

@ 1,1 say "Escolha a Opção Desejada ..."
@ 2,2 COMBOBOX oCbx VAR cItem ITEMS mItens ;
SIZE 70,70 OF oDlg
oCbx:SetColor( CLR_BLACK , CLR_HBLUE )
oCbx:oFont:=fArial

ACTIVATE DIALOG oDlg CENTERED

RETURN( NIL )

@braços Ale