View Full Version : سوال: آیا نقاط سفید عکس در picturebox ها با رنگ پس زمینه یکی میشود ؟
emad2010
شنبه 23 خرداد 1388, 03:18 صبح
اصلاً این کار شدنیه که بشه نقاط سفید عکس تو picturebox رو هم رنگ پس زمینه کرد ؟
( مثل Paint در ویندوز که میتونه این کار رو بکنه )
اگه می شه لطفاً بگید چطور ؟ ممنون .
majjjj
شنبه 23 خرداد 1388, 11:09 صبح
منظور شما اینه که یک رنگ خاص رو بیرنگ گنی
emad2010
شنبه 23 خرداد 1388, 20:48 عصر
میشه اینطور هم گفت که برای مثال رنگ فرم سبز باشه و بخوام نقاط سفید عکس وقتی pictureboxروی محل های سبز رنگ قرار گرفت ، سبز بشه و اگه از اونجا به یک محل دیگری که رنگش مثلاً آبیه انتقال پیدا کرد ، رنگ نقاط سفید ، آبی بشه .
آیا میشه ؟
( اگه بتونم یه عکس هم میسازم تا منظورم رو بهتر بفهمونم . قول نمیدم .)
emad2010
شنبه 23 خرداد 1388, 21:53 عصر
این هم یه عکس تا کمک کنه که بهتر منظورم رو گفته باشم .
http://barnamenevis.org/forum/attachment.php?attachmentid=31930&d=1244915990http://barnamenevis.org/forum/attachment.php?attachmentid=32003&stc=1&d=1245169154
kernel
شنبه 13 تیر 1388, 01:20 صبح
خوب چه کاریه داداش عکستو GIF ذخیره کن !
بقیشم با خودش
M_P_1374
شنبه 13 تیر 1388, 08:42 صبح
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const BM_SETSTATE = &HF3
Private Sub KillColor(Color As OLE_COLOR)
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, Color, 0, LWA_COLORKEY
End Sub
با این کد میتونید یک رنگ رو پاک کنید
ولی بدیه این کد اینه مثلا رنگی رو پاک میکنید به جای رنگ پشتیش صفحه پشتیش نمایان میشه!!:لبخند:
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.