سیاه و سفید کردن تصویر

[HamidVB]

سلام.
چگونه می توان رنگ یک تصویر در Picture Box را به صورت سیاه وسفید تغییر داد؟
:)

[Voldemort]

http://www.sharemation.com/voldemort/02/PictureManipulation.pdf

[VG123456]

به نام خدا
*-*-*-*-*-*
دوست عزیز کد تبدیل تصویر رنگی به سیاه و سفید را براتون در قسمت پایین قرار دادم.
شی هایی که لازم دارید .
یک عدد commond Button که کد های زیر را باید در آن بنویسید.
یک عدد picture box که باید درون آن یک عکس بیاورید.
'=============================
Dim X As Single, Y As Single, C As Long, R As Byte, G As Byte, B As Byte
Private Sub Command1_Click()
For X = 1 To pic.ScaleWidth
For Y = 1 To Picture1.ScaleHeight
C = Abs(Picture1.Point(X, Y))
R = C Mod 256
G = C \ 256 Mod 256
B = C \ 256 \ 256
pic.PSet (X, Y), RGB(R, R, R)
Next
Next
End Sub

'=============================
دقت داشته باشید که scalemode picture را حتما pixel قرار بدید و نیز AutoRedraw picture را حتما True قرار بدید .

با تشکر !