Clipper On Line • Ver Tópico - Macros

Macros

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Macros

Mensagempor carlos_dornelas » 11 Out 2007 23:48

Pessoal, tá dando erro no código abaixo. Como faço para utilizar a macro substituição nesse caso?

for g=1 to 25
xy="oLb"+alltrim(str(g))
volan.&xy.backcolor:={255,255,255}
next

Carlos
carlos_dornelas
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 392
Data de registro: 25 Ago 2004 21:54
Curtiu: 0 vez
Mens.Curtidas: 10 vezes

Mensagempor Maligno » 12 Out 2007 01:47

Essa macro-substituição não me parece aceitável.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar de usuário

Maligno
Membro Master

Membro Master
 
Mensagens: 6390
Data de registro: 06 Jul 2004 01:40
Cidade/Estado: Londrina/PR
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Mensagempor Stanis Luksys » 12 Out 2007 17:41

Opa,

Não to no meu PC agora e não lembro de cabeça, mas isso é mais fácil se voxcê manipular a matriz de objetos que a MiniGUI usa para controle interno.

Depois volto aqui e dou a dica certa.

Outra coisa, tente com dois pontos, porque um ponto no final de uma macro já é subentendido como sendo o final da mesma.

volan.&xy..backcolor:={255,255,255}


Falou!
Stanis Luksys
sites.google.com/hblibs

Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
Avatar de usuário

Stanis Luksys
Colaborador

Colaborador
 
Mensagens: 1329
Data de registro: 18 Jun 2005 03:04
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Re: Macros

Mensagempor luiz antonio da silva » 13 Out 2007 10:11

carlos_dornelas escreveu:Pessoal, tá dando erro no código abaixo. Como faço para utilizar a macro substituição nesse caso?

for g=1 to 25
xy="oLb"+alltrim(str(g))
volan.&xy.backcolor:={255,255,255}
next

Carlos


Carlos, como está definido no seu código os "olb" ?....ex: olb001, olb002...
na linha xy="oLb"+alltrim(str(g)), mude para xy:="oLb"+strzero(g,?), com isso acho que vai funcionar.......teste o exemplo abaixo...

#INCLUDE "MINIGUI.CH"

FUNC MAIN()
   DEFINE WINDOW Form1  ;
          AT     075,338;
          WIDTH  138    ;
          HEIGHT 101    ;
          TITLE  "Form1";
          ON INIT MUDA();
          MAIN

          @ 018,012 LABEL     oLAB001 VALUE   "01"           WIDTH 028 HEIGHT 020 CENTERALIGN
          @ 018,044 LABEL     oLAB002 VALUE   "02"           WIDTH 028 HEIGHT 020 CENTERALIGN
          @ 018,076 LABEL     oLAB003 VALUE   "03"           WIDTH 028 HEIGHT 020 CENTERALIGN

          @ 044,012 TEXTBOX   oGET001 VALUE   ""             WIDTH 028 HEIGHT 024
          @ 044,044 TEXTBOX   oGET002 VALUE   ""             WIDTH 028 HEIGHT 024
          @ 044,076 TEXTBOX   oGET003 VALUE   ""             WIDTH 028 HEIGHT 024

   END WINDOW
   CENTER   WINDOW Form1
   ACTIVATE WINDOW Form1

RETURN

FUNC MUDA()
A:=0
FOR A=1 TO 3
    XY:="oLAB"+STRZERO(A,3)
    FORM1.&XY.BACKCOLOR:={255,128,232}
NEXT A

A:=0
FOR A=1 TO 3
    XY:="oGET"+STRZERO(A,3)
    FORM1.&XY.BACKCOLOR:={255,232,128}
NEXT A
FORM1.oLAB001.REFRESH
RETU


Um abraço.
Luiz
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro