Frameworksp

Páginas filhas
  • AVField2Speak

Função: AVField2Speak
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: 
Retorna as características e valores de um determinado campo.
Sintaxe:

AVField2Speak ( [ lRequired ]cCtrlTypecName [ nSize ] [ cValue ] [ IsLookup ] [ cLookupText ] ) --> cFieldInfo

Retorno:
    cFieldInfo(caracter)
  • Texto com as características do Controle.
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
lRequired Lógico .T. - Indica campo obrigatório. .F.
cCtrlType Caracter Tipo do controle:C=CaracterD=DataL=LógicoM=MemoB=BitmapN=NuméricoT ou BT=BotãoLST=Lista de Seleção X
cName Caracter Nome ou descrição do controle. X
nSize Numérico Tamanho do campo. 0
cValue Caracter Valor preenchido no controle.
IsLookup Lógico .T. - Indica que controle possue F3. .F.
cLookupText Caracter Texto alternatico para chamada da Consulta Padrão

  • Sem rótulos