Captura del escritorioPublicado por Germán (3 intervenciones) el 07/09/2005 22:43:20Hola compañeros del foro, necesito capturar el escritorio de Windows y colocarlo en un PictureBox, alguien de ustedes sabe como hacerlo ???Valora esta pregunta0Responder
RE:Captura del escritorioPublicado por Juan_K (181 intervenciones) el 08/09/2005 20:55:24Hola. Aqui un ejemplo ==================================================================== Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 Private Const VK_SNAPSHOT = &H2C Private Sub Command1_Click() DoEvents keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 DoEvents SavePicture Clipboard.GetData(vbCFBitmap), "C:\escri.bmp" Picture1.Picture = LoadPicture("C:\escri.bmp") End Sub ===================================================================== Espero te sea util. SaludossValora esta respuesta0Comentar
RE:Captura del escritorioPublicado por Germán (3 intervenciones) el 12/09/2005 13:58:41El ejemplo funcionó perfectamente, eso era lo que necesitaba. Gracias Juan_KValora esta respuesta0Comentar