Artículo original: GETPICT() with thumbnails
https://vfpimaging.blogspot.com/2007/06/getpict-with-thumbnails.html
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
Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.