GetPixel to Color

Question

Bonjour,

Sous VB.net 2008, j'utilise la fonction API GetPixel qui me renvoie un long (par exemple 51539607551) mais je n'arrive pas à le convertir en color


Public Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal nXPos As Integer, ByVal nYPos As Integer) As Long

Dim C1 As Long
Dim Color1 As Color
Dim alpha As Long
Dim Blue As Long
Dim Green As Long
Dim Red As Long


C1 = GetPixel(me.Handle, 50, 50)
Red = Int(C1 And &HFF)
Green = Int((C1 And &H100FF00) / &H100)
Blue = Int((C1 And &HFF0000) / &H10000)

Color1 = Color.FromArgb(255, Red, Green, Blue)

Et plantage à l'affectation de Color1 car Green dépasse 255

Faut-il décomposer Green en Green et Alpha ?

bigfish_le vrai · Answer

Salut,

couleur = GetPixel(me.Handle, 50, 50) 
Red = couleur Mod 256
Green = Int(couleur / 256 ^ 1) Mod 256
Blue = Int(couleur / 256 ^ 2) Mod 256

C'est du VB6/VBA mais tu devrais t'en sortir avec cela. L'essentiel ici est l&#8217;opérateur "Mod"

A+

ucfoutu · Answer

Bonjour,
Ton plantage est essentiellement généré par tes typages, notamment dans la déclaration de ta fonction
Pas de long en VB.Net 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Voilà de quoi t'inspirer :
Tapez le texte de l'url ici.
Tu y as tout ce dont tu as besoin et plus ...
Observe les typages 

Ceci étant dit : je ne serais pas surpris (ce serait même plutôt le contraire) que VB.net t'offre autre chose, sans passer par l'Api de Windows !
Un VB.Nettiste (ce que je ne suis pas) devrait t'en faire la remarque. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

61euclide · Answer

Si GetPixel doit retourner un INT32, il retourne -1

GetPixel fonctionne si il retourne un Long ou INT64

Quand j'effectue un GetPixel sur un Color.PeachPuff, j'obtiens 25769803775 soit #5FFFFFFFF
au lieu de #FFFFDAB9 (4294957753)

D'où viens l'erreur ?

ucfoutu · Answer

Je n'en sais rien sans voir ton code corrigé 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

61euclide · Answer

Voici le code


Public Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal nXPos As Integer, ByVal nYPos As Integer) As Int64

Dim C1 As Long


Me.BackColor = Color.PeachPuff
' la couleur de PeachPuff est 4294957753 soit #FFFFDAB9

C1 = GetPixel(Me.Handle, 5, 5)
' C1 = 25769803775 soit #5FFFFFFFF

GetPixel to Color

6 réponses

Votre réponse

Discussions similaires