HamidVB
یک شنبه 14 تیر 1383, 09:13 صبح
سلام.
چگونه می توان رنگ یک تصویر در Picture Box را به صورت سیاه وسفید تغییر داد؟
:)
Voldemort
یک شنبه 14 تیر 1383, 09:45 صبح
http://www.sharemation.com/voldemort/02/PictureManipulation.pdf
VG123456
شنبه 26 آذر 1390, 22:04 عصر
به نام خدا
*-*-*-*-*-*
دوست عزیز کد تبدیل تصویر رنگی به سیاه و سفید را براتون در قسمت پایین قرار دادم.
شی هایی که لازم دارید .
یک عدد 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 قرار بدید .
با تشکر !
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.