Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo guardar el contenido de la ventana como imagen en vb

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?