Soyez le premier à donner votre avis sur cette source.
Vue 9 249 fois - Téléchargée 701 fois
Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Sub imgEx_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Color As Long Color = GetPixel(imgEx.hdc, X, Y) lblColor.Caption = "&&H" & Hex(Color) lblCoord.Caption = "X : " & X & vbCrLf & "Y : " & Y shpResult.FillColor = Color shpResult.Refresh End Sub
1 mars 2005 à 21:13
Bonne continuation :)
5 avril 2003 à 16:54
shpResult.FillColor = Color
par
MaPictureBox.Backcolor=Color
voili voilou
Amicalement FrostByte
25 févr. 2002 à 21:24
25 févr. 2002 à 09:32
Continue tu progresse
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.