Mostrar archivos Doc, Xls como Icono en VFP

02/08/2004 - 06:21 por Alejandro Rodríguez Martínez | Informe spam
Alguién sabe mediente programación en VFP mostrar los archivos DOC, XLS o
bien cualquier archivos como icono, estoy tratando de vincular o incrustar
archivos principalmente de este tipo en un tabla en el campo general, pero
me incrusta o vincula el contenido del archivo y deseo que lo haga en
forma de icono.

Estoy tratando de usar el Foro, pero también alguien podría decirme cómo
usarlo bien.

Gracias de antemano, por su ayuda

Cayan

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
 

Leer las respuestas

#1 Valentin Marines
03/08/2004 - 23:15 | Informe spam
A lo mejor esto esta medio rudimentario pero igual te puede servir, a
manera de ejemplo en una forma coloca un ImageList y agregale los iconos
de Excel y Word en el Key de cada icono coloca el nombre de estos. Agrega
un ListView a tu forma, dices que tienes una tabla con los nombres de los
archivos o de alguna manera estan vinculados, pues bien en el init de la
forma agregarias el siguiete codigo.

This.OLecontrol2.Icons = Thisform.OLecontrol1
Select TuTabla
_archivo = "SUBSTR(RTRIM(TuTabla.archivo),LEN(RTRIM(TuTabla.archivo))-2,3)"
Scan
Do Case
Case &_archivo = "XLS

Thisform.OLecontrol2.ListItems.Add(,TuTabla.archivo,TuTabla.archivo,[EXCEL],0)
Case &_archivo = "DOC"

Thisform.OLecontrol2.ListItems.Add(,TuTabla.archivo,TuTabla.archivo,[WORD],0)
Endcase
EndScan

Te recomiendo que leas el articulo de Mike Lewis acerca del ListView en
este mismo portal

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Preguntas similares