"yvonnick.guitton" a écrit dans le message de news:4178d073$0$15142$
Bonjour, Avec VB6 peux t'on lire les valeurs d'un point de l'écran, si oui quel est cette commande
Merci d'avance
--
ng
Salut,
Essaye avec GetPixel() (Il xiste aussi Point() pour les picturebox par exemple, GetPixel() et bcp plus général) :
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
'//Bien entendu pour faire cela on utiliserait plutot BitBlt() qui est '//plus rapide pour la copie de "portions", ici c'est juste un exemple de GetPixel() '//qui permet de récupérer la couleur d'un pixel précis.
Me.AutoRedraw = True
Dim dwDC As Long, dwFormDC As Long Dim i As Long, j As Long
dwDC = GetDC(0) dwFormDC = Me.hdc
For i = 50 To 100 For j = 50 To 100 Call SetPixel(dwFormDC, i - 50, j - 50, GetPixel(dwDC, i, j)) Next Next
End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
yvonnick.guitton wrote:
Bonjour, Avec VB6 peux t'on lire les valeurs d'un point de l'écran, si oui quel est cette commande
Merci d'avance
Salut,
Essaye avec GetPixel() (Il xiste aussi Point() pour les picturebox par
exemple, GetPixel() et bcp plus général) :
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As
Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As
Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
'//Bien entendu pour faire cela on utiliserait plutot BitBlt() qui est
'//plus rapide pour la copie de "portions", ici c'est juste un exemple
de GetPixel()
'//qui permet de récupérer la couleur d'un pixel précis.
Me.AutoRedraw = True
Dim dwDC As Long, dwFormDC As Long
Dim i As Long, j As Long
dwDC = GetDC(0)
dwFormDC = Me.hdc
For i = 50 To 100
For j = 50 To 100
Call SetPixel(dwFormDC, i - 50, j - 50, GetPixel(dwDC, i, j))
Next
Next
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
yvonnick.guitton wrote:
Bonjour,
Avec VB6 peux t'on lire les valeurs d'un point de l'écran,
si oui quel est cette commande
Essaye avec GetPixel() (Il xiste aussi Point() pour les picturebox par exemple, GetPixel() et bcp plus général) :
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
'//Bien entendu pour faire cela on utiliserait plutot BitBlt() qui est '//plus rapide pour la copie de "portions", ici c'est juste un exemple de GetPixel() '//qui permet de récupérer la couleur d'un pixel précis.
Me.AutoRedraw = True
Dim dwDC As Long, dwFormDC As Long Dim i As Long, j As Long
dwDC = GetDC(0) dwFormDC = Me.hdc
For i = 50 To 100 For j = 50 To 100 Call SetPixel(dwFormDC, i - 50, j - 50, GetPixel(dwDC, i, j)) Next Next
End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
yvonnick.guitton wrote:
Bonjour, Avec VB6 peux t'on lire les valeurs d'un point de l'écran, si oui quel est cette commande
