|
Inicio → WINDEV 25 → Como ler Objetos de uma janela e guardar eles em um array multidimensional? |
Como ler Objetos de uma janela e guardar eles em um array multidimensional? |
Iniciado por Boller, dez., 21 2021 6:43 PM - 1 resposta |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em dezembro, 21 2021 - 6:43 PM |
Solução
Procedure ObjectsRead()
ArrayDeleteAll(arrayObjetos) Dimension(arrayObjetos,1,2) X is int = 1 sParentName is string = MyWindow..Name nSubscript is int = 1 sNameChildControl is string sControlInfo is string = gpwEnumControl(sParentName, nSubscript) WHILE sControlInfo <> "" sNameChildControl = ExtractString(sControlInfo, 1, TAB) IF StringCount(sNameChildControl,"SC_AreaPlotagem.EDT_",IgnoreCase) > 0 THEN obj is string = Replace(sNameChildControl,"SC_AreaPlotagem.EDT_","",IgnoreCase) arrayObjetos[X,1] = obj Trace(obj) arrayObjetos[X,2] = {sNameChildControl,indControl}..Value Trace({sNameChildControl,indControl}..Value) X++ Dimension(arrayObjetos, X, 2) END nSubscript++ sControlInfo = gpwEnumControl(sParentName, nSubscript) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em dezembro, 21 2021 - 6:49 PM |
Criando controles em Runtime
Procedure CreateCamposRuntime(gNomeRelatorio, gParametersReletario)
OBJ is string
xControl is Control
i,y is int = 0
total is int = StringCount(gParametersReletario,";",IgnoreCase)
OBJ = "SC_AreaPlotagem.STC_TextoX" xControl <- ControlClone(STC_Texto, OBJ) xControl.Width = STC_Texto.Width xControl.X = 30 xControl.Y = 30 xControl.Caption = gNomeRelatorio
LOOP (total) i++ IF i = 1 THEN y = 75 ELSE y+= 35 END OBJ = "SC_AreaPlotagem.EDT_"+ NoSpace(ExtractString(gParametersReletario, i, ";", FromBeginning),sscAll) xControl <- ControlClone(EDT_Texto, OBJ) xControl.Width = EDT_Texto.Width xControl.X = 35 xControl.Y = y xControl.Caption = ExtractString(gParametersReletario, i, ";", FromBeginning) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|