بعض التطبيقات على الصور

بسم الله الرحمن الرحيم

السلام عليكم

اخواني عندي بعض التطبيقات على الصور وان كانت قديمة بالنسبة لكم لكني احببت ان اشارك لاني استفدت كثيرا من هذا المنتدى ولزم ان اشارك بالشي البسيط ولو

ملاحظة: كل p سوف اذكرها فهي تعني picturebox

عندك اداتين من p الاولى p1 فيها صورة شخص واقف وخلفه خلفية بلون واحد ازرق مثلا

وفي الثانية p2 منظر طبيعي فاكيب التالي

private sub command1_click

for t= 0 to p1.width step 15

for f=0 to p1.height step 15

a=p1.point(t,f)

if a<>vbblue then

p2.pset(t,f),p1.point(t,f)

end if

next

next