+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: Find Pixel Color With Visual Basic 6 (/showthread.php?tid=1858)
Find Pixel Color With Visual Basic 6 - Amin_Mansouri - 02-27-2012
با سورس زیر که نوشتم یکی میتونید رنگ پیکسل ها رو بگیرید عوض کنید و حتی در پیکسل ها به صورت hex color بگردید و رنگ مورد نظر خود رو با کد رنگ Rgb تغییر بدید.
کد:
'Find Pixel Color (Hex Color) & Change Color Pixel (Rgb Input) & Get Color Pixel Image With Visual Basic 6
'Programmer : Mohammad Amin Mansouri
'Public By : Www.parsicoders.com (Persian Team)
Private X As Long
Private Y As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _
ByVal Y As Long) As Long
Public Function FindPixelColor(Color As String, R As Integer, G As Integer, b As Integer)
For X = 1 To Picture1.ScaleWidth
For Y = 1 To Picture1.ScaleHeight
If Hex(Picture1.Point(X, Y)) = Color Then
Picture1.PSet (X, Y), RGB(R, G, b)
End If
Next
Next
End Function
Private Sub Command1_Click()
Call FindPixelColor(Colorr.Text, R.Text, G.Text, b.Text)
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = Hex(Picture1.Point(X, Y))
End Sub