Cómo guardar el contenido de la ventana como imagen en vb
¿Privado?Declarar?Sub?keybd_event?Lib?"user32"?(ByVal?bVk?As?Byte, ?ByVal?bScan?As?Byte, ?ByVal?dwFlags?As?Long, ?ByVal?dwExtraInfo?As?Long)
Const?theForm?=?1
Const?theScreen?=?0
Privado?Sub?Command1_Click() Imagen1.Visible?=?Falsa Imagen1 .Move?0,?Me.Width,?Me.Height Call?keybd_event(vbKeySnapshot,?theForm,?0,?0)?Capture el formulario activo Si el formulario se cambia a la pantalla, copie la pantalla completa DoEvents Picture1.Picture. ? =?Clipboard.GetData(vbCFBitmap)?Picture1.Picture Obtener el contenido del portapapeles (capture este formulario) Clipboard.Clear
PhotoName?=?"\VB Screenshot.Bmp" PhotoName1?=?App .Ruta ?&?NombreFotoGuardarImagen?Imagen1.Imagen,?NombreFoto1
Fin?