Páginas filhas
  • AVCombo2List

Função: AVCombo2List

 

Compatível Países:Todos
Sistemas Operacionais:Windows
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Português (Brasil) , Português (Portugal) , Espanhol , Inglês

 

Descrição:
Recupera os itens de um componente ComboBox e os exibe para seleção por meio de uma lista vertical. Não necessita de alterações de layout em telas que contenham "ComboBoxes".
Sintaxe:

AVCombo2List ( oCombo [ cTitle ] )

Observações

 Esta função está disponível apenas no modo de Acessibilidade Visual.

Exemplos
#Include "PROTHEUS.ch"#Include "FWMVCDEF.CH"User Function ACV_Tst2()Local oGet,cGet:="Meu Nome",oCombo,nCombo:=1,oCheck,lCheck:=.T.,oList,nList:=1Local aItems:={"1=Sexo Masculino","2=Sexo Feminino"}Local cTitle := "Customizações para Acessibilidade Visual"AVSpeak(cTitle,.T.) // Reproduz o titulo da JanelaDEFINE MSDIALOG oDlg TITLE cTitle FROM 0,0 TO 150,500 PIXEL  // --------------------------------------------------  // Cria Formulário Manualmente  // --------------------------------------------------  @ 006, 002 MSGET oGet VAR cGet SIZE 060, 010 OF oDlg PIXEL  oGet:lFocusOnFirst := .T. // Força bGotFocus na abertura da Janela  @ 006, 080 MSCOMBOBOX oCombo VAR nCombo ITEMS aItems SIZE 061, 010 OF oDlg PIXEL  @ 006, 160 CHECKBOX oCheck VAR lCheck PROMPT "Ativo" SIZE 060, 008 OF oDlg PIXEL  @ 20,02 LISTBOX oList VAR nList ITEMS aItems SIZE 100,50 OF oDlg PIXEL  // --------------------------------------------------  // Aplica Acessibilidade Visual  // --------------------------------------------------  oGet:bGotFocus   := {|| AVSpeak(AVField2Speak(.T.,"C","Nome",Len(cGet),cGet)) }  oCombo:bGotFocus := {|oCombo| AVCombo2List(oCombo, "Sexo") }  oCheck:bLClicked := {|| AVSpeak(AVField2Speak(,"L","Ativo",0,AVValue2Speak("L", lCheck))) }  oCheck:bGotFocus := {|| Eval(oCheck:bLClicked) }  oList:bChange    := {|| AVSpeak(AVField2Speak(,"C","Sexo",0,AVValue2Speak("N", nList))) }  oList:bGotFocus  := {|| Eval(oList:bChange) }ACTIVATE MSDIALOG oDlg CENTEREDReturn 
Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 oCombo  Objeto  Objeto do tipo TCompoBox.     X    
 cTitle  Array of Record  Titulo alternativo para exibição da Janela.          

 

 

  • Sem rótulos