Página 1 de 1

::oLabel1:cText en macro

Publicado: Jue Dic 16, 2010 4:40 pm
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

::oLabel1:cText en macro

Publicado: Jue Dic 16, 2010 6:30 pm
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
>

::oLabel1:cText en macro

Publicado: Jue Dic 16, 2010 7:01 pm
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

::oLabel1:cText en macro

Publicado: Vie Dic 17, 2010 5:55 pm
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
>
>
>

::oLabel1:cText en macro

Publicado: Sab Dic 18, 2010 4:43 pm
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
>
>
>