AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / WLanguage / Funciones WLanguage / Controles, páginas y ventanas / Funciones Groupware Usuario
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Otros
Procedimientos almacenados
Enumera los controles que se encuentran en una ventana o Page.
Observaciones:
  • Esta función es utilizada por el groupware usuario para enumerar los controles cuyo estado (Invisible, gris, inactivo) puede ser modificado por el groupware usuario.
  • Esta función se puede usar incluso si el User Groupware no está habilitado en el proyecto.
Ejemplo
PROCEDURE EnumChildControl(sParentName is string)
 
// Browse the controls
nIndex is int = 1
sNameChildControl is string
sControlInfo is string = gpwEnumControl(sParentName, nIndex)
WHILE sControlInfo <> ""
Trace(sControlInfo)
// Retrieve the full name of the child control
sNameChildControl = ExtractString(sControlInfo, 1, TAB)
Trace(sNameChildControl)
// Next control
nIndex++
sControlInfo = gpwEnumControl(sParentName, nIndex)
END
Sintaxis
<Result> = gpwEnumControl(<Parent element> , <Index>)
<Result>: Cadena de caracteres
  • Características de control encontradas. Estas características tienen el siguiente formato:
    <Full control name> + TAB + <Full parent name> + TAB + ...
    <Type> + TAB + <Plain type> + TAB + <Caption>

    donde:
    • : El nombre completo del control encontrado.
    • : Nombre completo del padre de control (cadena vacía para una ventana).
    • <Tipo>: identificador de tipo control (escribir a máquina).
    • : Tipo legible de control (por ejemplo, "Botón", "Barra de desplazamiento", ...).
    • <Título>: Título del control.
  • "" (cadena vacía) si la enumeración ha terminado.
<Parent element>: Cadena de caracteres
Nombre del objeto "padre" (que contiene el control). Este parámetro corresponde al nombre de una ventana o Page.
<Index>: Integro
Índice del control para enumerar. Cada control es associated con un número. Este número corresponde al orden en que se han creado los controles..
Componente: wd290gpu.dll
Versión mínima requerida
  • Versión 18
Esta página también está disponible para…
Comentarios
Exemplo Pcsoft
Exemplo de uso do EnumControl
Lista objetos da tela
Inclusive os sub objetos

j is int = 1
ResChamp is string
ResChamp = EnumControl(MyWindow.Name, j)
WHILE ResChamp <> ""
j++
Trace(ResChamp)
listeélément(MyWindow.Name+"."+ResChamp)
ResChamp = EnumControl(MyWindow.Name, j)
END


INTERNAL PROCÉDURE listeélément(NomElt)
i is int = 1
sResChampSousElt is string
sResChampSousElt = EnumSubElement(NomElt, i)
WHILE sResChampSousElt <> ""
i++
Trace(NomElt+"."+sResChampSousElt)
listeélément(NomElt+"."+sResChampSousElt)
sResChampSousElt = EnumSubElement(NomElt, i)
END
END


The Free Technical Support is entirely at your service.
Boller
14 12 2023
LINK COM EXEMPLO
https://repository.windev.com/resource.awp?file_id=281474976711893;nospace-noaccent-upper-uppercapitalize-lower-para-todos-campos-formulario
Boller
30 11 2023
LINK
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/3318-new-capitalize/read.awp
Boller
30 11 2023
PROCEDURE evento_lista_objetos_gpw(ninstancia)
i is int = 1
objs_form is string = ""
sControlName is string = ""
ninstancia = ninstancia

<COMPILE IF Configuration<>"iOS application" AND Configuration<> "Android application">

arrayControles is array of string

IF ninstancia = 0 THEN

RESULT ""

ELSE

NomeForm is string = m_Tabela[ninstancia].gs_nomeJanela

WHEN EXCEPTION IN

sControlName = gpwEnumControl(NomeForm, i)
indirection is string = NoSpace(NomeForm) +"."+ NoSpace(sControlName)
Add(arrayControles,indirection)

LOOP(5000)

// Next control
i++

sControlName = gpwEnumControl(NomeForm, i)

IF sControlName <> ""
indirection = NoSpace(NomeForm) +"."+ NoSpace(sControlName)
Add(arrayControles,indirection)
Trace(indirection)
ELSE
BREAK
END

END

RESULT arrayControles

DO
IF ExceptionInfo(errCode) THEN
RESULT arrayControles
END
END

END

<END>
Boller
02 09 2023

Última modificación: 18/04/2023

Señalar un error o enviar una sugerencia | Ayuda local