Gestion de la copie d'écran sur une config deux écrans

Résolu
pyv29 Messages postés 2 Date d'inscription jeudi 11 septembre 2003 Statut Membre Dernière intervention 12 octobre 2007 - 10 oct. 2007 à 16:55
pyv29 Messages postés 2 Date d'inscription jeudi 11 septembre 2003 Statut Membre Dernière intervention 12 octobre 2007 - 12 oct. 2007 à 18:22
Bonjour à tous,
Je voulais savoir si quelqu'un maitrisait un peu la gestion de deux écrans en VB. J'ai une config deux écrans sur mon poste qui me permettent d'avoir un bureau étendu. Mon problème c'est que je ne vois pas comment windows gère mon deuxième écran.

Mon curseur de souris me renvoie les bonnes coordonnées de position mais les infos "Screen.Width / Screen.Height" ne correspondent pas à la taille réelle du bureau, de même pour "Sysinfo.Workareawidth/Sysinfo.Workareaheight" les longueur et largeur correspondent à mon écran principal mais occulte le second.

Ce qui fait que le code qui suit ne prend en compte que mon écran principal.

    Dim Hdc As Long, hwnd As Long, i As Integer, r As Integer, n As Integer
    
    ' Récupère le handle de l'image du Bureau
    hwnd = GetDesktopWindow()
    Hdc = GetDC(hwnd)

    BitBlt EcranSignalisation.Hdc, 0, 0, Screen.Width, Screen.Height, Hdc, 0, 0, ScrCopy

Ou est-ce que je peux récuperer la taille réelle de mon bureau?

Merci d'avance,

PYV

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
10 oct. 2007 à 17:50
Salut
Elle toute fraiche ma source, elle est toute fraiche !
Demandez l'programme
(clique sur ce texte et tu auras tout ce qu'il faut)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
pyv29 Messages postés 2 Date d'inscription jeudi 11 septembre 2003 Statut Membre Dernière intervention 12 octobre 2007
12 oct. 2007 à 18:22
Impecap'

Merci bien!!!

PYV
0
Rejoignez-nous