| Pregunta: | 14978 - COMO ABRIR APLICACION CUALQUIERA CON INFORMACION PEGADA |
| Autor: | Carlos Vargas |
| Hola: Necesito saber como puedo hacer, por código de VB 6.0, para abrir una aplicación como por ejemplo paint brush, pero con una foto rescatada del portapapeles. Hay aplicaciones que me permiten cortar o copiar una imagen o un trozo de ella y posteriormente abren el paint brush con aquella imagen o trozo de ella ya pegada en la aplicación, eso es lo que necesito hacer. De antemano, muchísimas gracias. | |
| Respuesta: | Jose A. |
| Hola Carlos. Abrir desde VB un programa y "enviarle" datos lo puedes hacer de dos formas: 1ª FORMA: Si tienes un fichero, por ejemplo un Gif, puedes hacer lo siguiente: Dim strPaint As String, strDibujo As String strPaint = "C:\WINDOWS\KODAKIMG.EXE " strDibujo = "D:\Pruebas\Enviar Datos a otras Aplicaciones\Backgrnd.gif" Call Shell(strPaint & strDibujo, vbNormalFocus) Ésto ejecutará el programa Imaging de Windows con el fichero "Backgrnd.gif" abierto en él. 2ª FORMA: Si tienes el dibujo en el portapapeles, tendrás que "pegarlo" en la aplicación. Ésto lo puedes hacer con el comando SendKeys de la siguiente forma: Supongamos que tenemos la imagen de antes en el portapapeles y queremos pegarla en Imaging, enviaremos lo siguiente: Dim strPaint As String strPaint = "C:\WINDOWS\KODAKIMG.EXE " Call Shell(strPaint, vbNormalFocus) SendKeys % & "EP" Esto debería abrir el Imaging y enviarle la orden Edición>Pegar para que pegue lo que haya en el Portapapeles. Espero haber sido de ayuda. Un Saludo. | |