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
Responder
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

::oLabel1:cText en macro

Mensaje por Moises Leon »

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
Arriba
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

::oLabel1:cText en macro

Mensaje por Bingen Ugaldebere »

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
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

::oLabel1:cText en macro

Mensaje por Xevi »

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:[email=4d0a32a2@svctag-j7w3v3j....]4d0a32a2@svctag-j7w3v3j....[/email]
> 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
Arriba
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

::oLabel1:cText en macro

Mensaje por Moises Leon »

Gracias, lo probare
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:[email=4d0a53f9@svctag-j7w3v3j....]4d0a53f9@svctag-j7w3v3j....[/email]
> 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:[email=4d0a32a2@svctag-j7w3v3j....]4d0a32a2@svctag-j7w3v3j....[/email]
>> 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
>
>
>
Arriba
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

::oLabel1:cText en macro

Mensaje por Moises Leon »

Funciono de maravilla, Muchas gracias. Lo utilice con oLabel y con
oRadioMenu
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:[email=4d0a53f9@svctag-j7w3v3j....]4d0a53f9@svctag-j7w3v3j....[/email]
> 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:[email=4d0a32a2@svctag-j7w3v3j....]4d0a32a2@svctag-j7w3v3j....[/email]
>> 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
>
>
>
Arriba
Responder

Volver a “Spanish”