In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

::oLabel1:cText en macro

Foro público de Xailer en español
Moises Leon
Posts: 101
Joined: Wed Dec 15, 2010 4:45 pm

::oLabel1:cText en macro

Postby Moises Leon » Thu Dec 16, 2010 4:40 pm

Es posible ahecer algo como esto?
for i=1 to 30
cTitLabel := "::oLabel"+ALLTRIM(STR(i,2))+":cText"
cTit := &cTitLabel
:TextOut( nColIni, nRow, cTit )
nRow+=nRowStep
next
Lo necesito para imprimir las etiquetas de una forma pero en un loop
Gracias
Bingen Ugaldebere
Posts: 1310
Joined: Wed Sep 26, 2007 7:12 pm

::oLabel1:cText en macro

Postby Bingen Ugaldebere » Thu Dec 16, 2010 6:30 pm

Prueba así­
> Es posible hacer algo como esto?
>
> for i=1 to 30
nItem:=ALLTRIM(STR(i,2))
cTitLabel := "::oLabel"+&nItem+":cText"
> cTit :=&cTitLabel
> :TextOut( nColIni, nRow, cTit )
> nRow+=nRowStep
> next
>
Xevi
Posts: 1706
Joined: Thu Sep 08, 2005 12:58 pm

::oLabel1:cText en macro

Postby Xevi » Thu Dec 16, 2010 7:01 pm

Moises,
for i=1 to 30
cTitLabel := __ObjSendMsg( Self, "oLabel" + AllTrim(Str(i)) ):cText
:TextOut( nColIni, nRow, cTitLabel )
nRow+=nRowStep
next
Un Saludo,
Xevi.
"Moises Leon" <mleon@datacomp.com.mx> ha escrit al
missatge:4d0a32a2@svctag-j7w3v3j....
> Es posible ahecer algo como esto?
>
> for i=1 to 30
> cTitLabel := "::oLabel"+ALLTRIM(STR(i,2))+":cText"
> cTit := &cTitLabel
> :TextOut( nColIni, nRow, cTit )
> nRow+=nRowStep
> next
>
> Lo necesito para imprimir las etiquetas de una forma pero en un loop
>
> Gracias
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5708 (20101216) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5708 (20101216) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Moises Leon
Posts: 101
Joined: Wed Dec 15, 2010 4:45 pm

::oLabel1:cText en macro

Postby Moises Leon » Fri Dec 17, 2010 5:55 pm

Gracias, lo probare
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:4d0a53f9@svctag-j7w3v3j....
> Moises,
>
> for i=1 to 30
> cTitLabel := __ObjSendMsg( Self, "oLabel" + AllTrim(Str(i)) ):cText
> :TextOut( nColIni, nRow, cTitLabel )
> nRow+=nRowStep
> next
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Moises Leon" <mleon@datacomp.com.mx> ha escrit al
> missatge:4d0a32a2@svctag-j7w3v3j....
>> Es posible ahecer algo como esto?
>>
>> for i=1 to 30
>> cTitLabel := "::oLabel"+ALLTRIM(STR(i,2))+":cText"
>> cTit := &cTitLabel
>> :TextOut( nColIni, nRow, cTit )
>> nRow+=nRowStep
>> next
>>
>> Lo necesito para imprimir las etiquetas de una forma pero en un loop
>>
>> Gracias
>>
>>
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 5708 (20101216) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5708 (20101216) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
Moises Leon
Posts: 101
Joined: Wed Dec 15, 2010 4:45 pm

::oLabel1:cText en macro

Postby Moises Leon » Sat Dec 18, 2010 4:43 pm

Funciono de maravilla, Muchas gracias. Lo utilice con oLabel y con
oRadioMenu
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:4d0a53f9@svctag-j7w3v3j....
> Moises,
>
> for i=1 to 30
> cTitLabel := __ObjSendMsg( Self, "oLabel" + AllTrim(Str(i)) ):cText
> :TextOut( nColIni, nRow, cTitLabel )
> nRow+=nRowStep
> next
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Moises Leon" <mleon@datacomp.com.mx> ha escrit al
> missatge:4d0a32a2@svctag-j7w3v3j....
>> Es posible ahecer algo como esto?
>>
>> for i=1 to 30
>> cTitLabel := "::oLabel"+ALLTRIM(STR(i,2))+":cText"
>> cTit := &cTitLabel
>> :TextOut( nColIni, nRow, cTit )
>> nRow+=nRowStep
>> next
>>
>> Lo necesito para imprimir las etiquetas de una forma pero en un loop
>>
>> Gracias
>>
>>
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 5708 (20101216) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5708 (20101216) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>

Return to “Spanish”