28 de febrero de 2017

GETPICT() con miniaturas

Artículo original: GETPICT() with thumbnails
http://weblogs.foxite.com/vfpimaging/archive/2007/06/27/4199.aspx
Autor: Cesar Ch.
Traducido por: Ana María Bisbé York


Esto va por Koen Piller.

He visto mucha gente en los foros preguntando sobre la posibilidad de abrir el diálogo GETPICT() mostrando las miniaturas en lugar de los nombres de archivos de imágenes.

Sólo por diversión, hice algunas pruebas simulando algunas teclas, y ¡ funciona ! Ejecute las 3 líneas siguientes en WinXP

oShell = CREATEOBJECT("Wscript.Shell")
oShell.SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
GETPICT()

Como puede ver, he utilizado la función SendKeys de WSH. En este enlace, puede encontrar todos los códigos, si desea utilizar esta técnica para cualquier otro propósito: http://msdn2.microsoft.com/en-us/library/system.windows.forms.sendkeys(vs.71).aspx

Esto fue probado solamente en mi PC de trabajo, con WinXP Profesional. probablemente no trabaje de esta forma en otros Sistemas Operativos, así que vaya con cuidado, y si desea utilizar este código, verifíquelo primero.

Estoy casi seguro de que debe existir otra forma, probablemente más segura de hacerlo. ¿Usted sabe?

No hay comentarios. :

Publicar un comentario