سؤال يتعلق بتقنيات الصور والألوان في فيجوال بيسيك

يمكنك ذلك بإستخدام الدالة GetPixel لتحصل على لون البكسل المطلوب

ثم تستخدم الداله SetPixel لتغير اللون باللون المطلوب

شكراً لك عزيزي رمضان

لقد أعطيتني الدالتين لحل مشكلتي ولكي وقعت بمشكلة جديدة.

ماهي البارامترات لهاتين الدالتين وكيفية استخدامها.

أرجوا أن تقوم بشرح ذلك.

آسف لأني أثقلت عليك ولكن...

ضع خانتى صوره وزر على النافذه ثم ضع الكود الاتى

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 Sub Command1_Click()
    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = vbPixels
    Picture2.Width = Picture1.Width
    Picture2.Height = Picture1.Height

    Dim XX As Long, YY As Long
    For XX = 0 To Picture1.ScaleWidth
        For YY = 0 To Picture1.ScaleHeight
            If GetPixel(Picture1.hdc, XX, YY) = 577279 Then
                Call SetPixel(Picture2.hdc, XX, YY, &H0)
            Else
                Call SetPixel(Picture2.hdc, XX, YY, _
                GetPixel(Picture1.hdc, XX, YY))
            End If
        Next YY
    Next XX


End Sub

مع ملاحظة ان الرقم الذى تمت المقارنه به يمكنك تغييره كما تريد

شكراً لك عزيزي رمضان على الجهود التي بذلتها والله يعطيك العافية على هالكود الجميل.(f) (g) :o :rolleyes: :rolleyes:

أخي الكريم رمضان اعذرني إن أثقلت عليك لقد قمت بوضع موضوع في المنتدى ولكن لم يرد عليه أحد وكنت قد سألت فيه :

هل نستطيع استيراد ملفات صور من نوع JPG أو ملفات فيديو من نوع AVI في ملف موارد Resource.

وإن كان هذا متاحاً فما هو الكود الذي يقوم باستدعاء هذه الملفات.

إن كان لديك أدنى فكرة عن هذا الموضوع أرجو أن تكتب.

------------------------------------------------------

خيركم من تعلم وعلم

------------------------------------------------------

نعم ممكن ولكنى لا أذكر الطريقه فى الوقت الحالى وإن شاء الله ساقوم بعمل مثال لذلك

حسب مايسمح الوقت

جزيل الشكر لك أخي رمضان على الجهود التي بذلتها من أجلي(f) (g) :o :D :mad: