Classe de combobox.
Hierarquia
tSrvObject -> tControl -> tComboBox
Descrição
Utilize a classe tComboBox para cria uma entrada de dados com múltipla escolha com item definido em uma lista vertical, acionada por F4 ou pelo botão esquerdo localizado na parte direita do controle. A variável associada ao controle terá o valor de um dos itens selecionados ou no caso de uma lista indexada, o valor de seu índice.
Propriedades
| AItems | Array. Lista de itens, caracteres, a serem exibidos. Pode ter os seguintes formatos: a) Seqüencial, exemplo: {“item1”,”item2”,…,”itemN”} ou b) Indexada, exemplo: {“a=item1”,”b=item2”, …, “n=itemN”}. |
| nAt | Numérico. Posição do item selecionado. |
Métodos
New
Descrição
Construtor da classe.
Sintaxe
New([anRow], [anCol], [abSetGet], [anItems], [anWidth], [anHeight], [aoWnd], [nPar8], [abChange], [abValid], [anClrText], [anClrBack], [alPixel], [aoFont], [cPar15], [lPar16], [abWhen], [lPar18], [aPar19], [bPar20], [cPar21], [acReadVar])
Parâmetros
| anRow | Numérico, opcional. Coordenada vertical em pixels ou caracteres. |
| anCol | Numérico, opcional. Coordenada horizontal em pixels ou caracteres. |
| abSetGet | Bloco de código, opcional. Bloco de código no formato {|u| if( Pcount( )>0, <var>:= u, <var> ) } que o controle utiliza para atualizar a variável <var>. <var> deve ser tipo caracter. Se a lista for seqüencial, o controle atualizará <var> com o conteúdo do item selecionado, se a lista for indexada, <var> será atualizada com o valor do índice do item selecionado. |
anItems | Array, opcional. Lista de items, caracteres, a serem exibidos. Pode ter os seguintes formatos: a) Seqüencial, exemplo: {“item1”,”item2”,…,”itemN”} ou b) Indexada, exemplo: {“a=item1”,”b=item2”, …, “n=itemN”}. |
anWidth | Numérico, opcional. Largura do controle em pixels. |
anHeight | Numérico, opcional. Altura do controle em pixels. |
aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
nPar8 | Reservado. |
abChange | Bloco de código, opcional. Executado quando o controle modifica o item selecionado. |
abValid | Bloco de código, opcional. Executado quando o conteúdo do controle deve ser validado, deve retornar .T. se o conteúdo for válido e .F. quando o conteúdo for inválido. |
anClrBack | Numérico, opcional. Cor de fundo do controle. |
anClrText | Numérico, opcional. Cor do texto do controle. |
alPixel | Lógico, opcional. Se .T. as coordenadas informadas são em pixels, se .F. são em caracteres. |
aoFont | Objeto, opcional. Objeto tipo tFont utilizado para definir as características da fonte utilizada para exibir o conteúdo do controle. |
| cPar15 | Reservado. |
lPar16 | Reservado. |
| abWhen | Bloco de código, opcional. Executado quando mudança de foco de entrada de dados está sendo efetuada na janela onde o controle foi criado. O bloco deve retornar .T. se o controle deve permanecer habilitado ou .F. se não. |
lPar18 | Reservado. |
aPar19 | Reservado. |
bPar20 | Reservado. |
cPar21 | Reservado. |
acReadVar | Caractere, opcional. Nome da variável que o controle deverá manipular, deverá ser a mesma variável informada no parâmetro abSetGet, e será o retorno da função ReadVar( ). |
Retorno
O objeto criado.
Select
Descrição
Muda o item selecionado no combobox.
Sintaxe
Select( [anItem] )
Parâmetros
| anItem | Numérico, opcional. Posição do item a ser selecionado. |
Retorno
NIL
Exemplo
#include “protheus.ch”
User Function TesteGet()
Local oDlg, oButton, oCombo, cCombo, aItems:= {“item1”,”item2”,”item3”}
cCombo:= aItems[2]
DEFINE MSDIALOG oDlg FROM 0,0 TO 300,300 PIXEL TITLE “Meu Combo”
oCombo:= tComboBox():New(10,10,{|u|if(PCount()>0,cCombo:=u,cCombo)},;
aItems,100,20,oDlg,,{||MsgStop(“Mudou item”)},;
,,,.T.,,,,,,,,,”cCombo”)
// Botão para fechar a janela
@ 40,10 BUTTON oButton PROMPT “Fechar” OF oDlg PIXEL ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
MsgStop( “O valor é ”+cCombo )
Return nil
SHOW DE BOLA!!!!
Meu ajudou MUITO. Procurei para caramba para pegar o texto do Combobox am ADVPL.
Parabéns!
Muito obrigado pelo contato