https://youtu.be/K9ZCHWxJer4
Bom Dia Boa Tarde Boa Noite
Seja Membro do Canal
Esse Video Ao Vivo vai estrear as 19:00 do dia 14/01/2021
DICAS 3242 - WINDEV - PERGUNTAS E RESPOSTAS 4 - Existe algum comando que eu consiga contar quantos controles (label, text, e etc) existentes em uma Window - sim - indirection
ASSUNTOS
VAMOS CRIAR UMA WINDOWS InDIRECTION
VAMOS CRIAR VARIOS CONTROLES
VAMOS CRIAR UM BOTAO PARA VERIFICAR QUANTOS CONTROLES EXISTEM
VAMOS ENTRAR NO CODIGO E FAZER OS CODIGOS
VAMOS FAZER UM LOOP EM QUE VAMOS PEGAR CADA NOME DO CONTROLE E SOMANDO
VAMOS MOSTRAR NO FINAL QUANTOS CONTROLES
============================
nome_controle is string=""
contador is int=1
LOOP
nome_controle = EnumControl(WIN_idirection, contador)
IF nome_controle="" THEN
contador--
BREAK
ELSE
Trace(nome_controle)
contador++
END
END
Trace("numero de controles:"+contador)
============================
PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google
Video sobre 3 Mil Videos Windev
Video sobre Alfaserver servidor
Como usar os operadores indiretos?
How to use the indirection operators?
Os operadores de indireção ( {} ) são usados para manipular um objeto cujo nome é encontrado em uma variável.
Isso permite que você construa programando o nome do objeto que será usado em uma variável e, em seguida, aplique ações para descobrir ou modificar as características desse objeto.
A sintaxe é a seguinte:
{ VariableName, ObjectType }..PropertyName
Onde:
- VariableName é uma variável de string que contém o nome do objeto a ser usado
- ObjectType é uma constante indXXX que representa o tipo de objeto a ser usado (controle, variável, janela, etc.)
ControlName is string
ControlName = "EDT_NAME"
// Alterar a cor de fundo do controle cujo nome é EDT_NAME
{ControlName, indControl}..BackgroundColor = LightRed
ControlName = "EDT_NAME"
// Alterar a cor de fundo do controle cujo nome é EDT_NAME
{ControlName, indControl}..BackgroundColor = LightRed
// Limpa os controles de edição de TEXTO em uma janela
nSub is int = 1
sControlName is string
sControlName = EnumControl(WIN_Table, nSub)
WHILE sControlName<>""
IF {sControlName, indControl}..Type = typInputText THEN
{sControlName, indControl} = ""
END
nSub++
sControlName = EnumControl(WIN_Table, nSub)
END
nSub is int = 1
sControlName is string
sControlName = EnumControl(WIN_Table, nSub)
WHILE sControlName<>""
IF {sControlName, indControl}..Type = typInputText THEN
{sControlName, indControl} = ""
END
nSub++
sControlName = EnumControl(WIN_Table, nSub)
END
