Cómo usar la programación vb, presione un botón en la interfaz vb, puede presionar la tecla alt+imprimir pantalla en lugar del teclado.

Usar API:

Opción explícita

'Simular función de teclado

Privado Declarar Sub keybd_event Lib "user32" _

(ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Realice diferentes conversiones de caracteres y códigos de escaneo según el tipo de asignación especificado, 0—— wCode Es un código de clave virtual. La función devuelve el código de escaneo correspondiente

Función de declaración privada MapVirtualKey Lib "user32" _

Alias ​​​​"MapVirtualKeyA" _

(ByVal wCode As Long, _

ByVal wMapType Mientras) _

Mientras

Const privada VK_ALT = &H12 'alt

Const privada VK_SNAPSHOT = &H2C ' imprimir pantalla

Const privada KEYEVENTF_KEYUP = &H2

Const privada VK_RETURN = &HD

Subcomando privado1_Click()

'Obtener la imagen de el portapapeles a la imagen1

If Clipboard.GetFormat(vbCFBitmap) Then

Picture1.Picture = Clipboard.GetData

End If

Portapapeles .Clear

End Sub

Private Sub Command2_Click()

'Copiar la captura de pantalla de la ventana actual al portapapeles

Imagen1.Imagen = Nada

keybd_event VK_ALT, MapVirtualKey(VK_ALT, 0), 0, 0 'Iniciar alt

keybd_event VK_SNAPSHOT, MapVirtualKey(VK_SNAPSHOT, 0), 0, 0 'Simular presionar la tecla "imprimirPantalla"

keybd_event VK_SNAPSHOT, MapVirtualKey(VK_SNAPSHOT, 0), KEYEVENTF_KEYUP, 0 'Deshacer presionar la tecla "imprimirPantalla"

keybd_event VK_ALT, MapVirtualKey(VK_ALT, 0), KEYEVENTF_KEYUP, 0 'Deshacer alt

End Sub