Gambas France BETA


Pas de compte ? Incription

Exemple 10 :

Zoner l'Écran :


Comment lire notre écran :


-1- Pour Copier dans le ClipBoard :


1
2
3
4
5
PUBLIC SUB ToolButton15_Click() 'copie dans clipboard

Clipboard.Copy(Desktop.Screenshot(ME.ScreenX, ME.ScreenY, ME.ClientWidth, ME.ClientHeight + 20).Image)

END

Explications :




-2- Pour Imprimer une image d'une zone de l'écran :


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PUBLIC SUB ImprimEcran_Click()

DIM hReport AS NEW Report 'déclaration des objets nécessaires
DIM hRepImg AS NEW ReportImage(hReport)

hreport.Orientation = Printer.Landscape 'orientation de la feuille de papier
hreport.Padding = ReportPadding["2 cm"]
hReport.Spacing = "1 cm"
hRepImg.Expand = TRUE
hRepImg.Image = Desktop.Screenshot(ME.ScreenX, ME.ScreenY, ME.ClientWidth, ME.ClientHeight + 20).Image ' l'image que nous voulons imprimer
hRepImg.Stretch = Report.Proportional 'étirement de l'image
hReport.Name = ("Impression d'écran"
hReport.Preview 'prévisualisation

END

-3- Pour faire un graphique :



====================

Commandes relatives :




====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--

====================

Documentation :



====================