Capture d'écran au format bmp / jpg avec réglage de la qualité et redimensionnement

Description

// SSHOT8514 permet de faire des captures d'ecran au format bmp et jpg
// avec qualité réglable de 1 à 100
// et redimensionnement de l'image
//
//++

Source / Exemple :


'exemple d'utilisation:
Private Declare Function sshot Lib "SSHOT8514" (ByVal chemin As String, ByVal typeimage As String, ByVal qualite As Integer, ByVal xdim As Integer, ByVal ydim As Integer) As Integer

Private Sub Command1_Click()
Dim retour As Integer

'faire une cature d'écran au format jpg / qualité à 100% / pas de redimensionnement
retour = sshot(App.Path & "\resultat.jpg", "jpg", 100, 0, 0)

'faire une cature d'écran au format bmp / qualité à 100% / redimensionnée en 640 par 480
'retour = sshot(App.Path & "\resultat.bmp", "bmp", 100, 640, 480)
End Sub

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.