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.
listbox ou combobox ?
Moderador: Moderadores
-
Ale SB
- Usuário Nível 3
- Mensagens: 201
- Registrado em: 20 Jul 2004 17:30
- Localização: Campo Grande / MS
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
*****************************
* 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
r]