• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 16 رای - 2.94 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: بدست اوردن رنگ پیکسل عکس ها
حالت موضوعی
#1
با کد زیر میتونید با حرکت ماوس رنگ پیکسل رو بدت بیارید و تبدلش کنید به rgb
کد:
Parameter Information
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Code




Dim PixCol As Long

Private Sub Command1_Click()
'End the app
Unload Me
End
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

'Get the pixel color
PixCol = GetPixel(Picture1.hdc, x, y)

'Convert to RGB
r = PixCol Mod 256
b = Int(PixCol / 65536)
g = (PixCol - (b * 65536) - r) / 256

'Add to the labels
Label1.Caption = "R=" & r
Label2.Caption = "G=" & g
Label3.Caption = "B=" & b

'Change Picture2's backcolor
Picture2.BackColor = RGB(r, g, b)

End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Brick رنگ و پیکسل تصاویر kosar 1 2,958 11-07-2014، 09:41 PM
آخرین ارسال: Amin_Mansouri
  بدست اوردن آیدی های لاگین شده alakimalaki 1 3,712 12-09-2012، 11:57 AM
آخرین ارسال: 2400
  سورس کد بدست اورن فضای خالی درایور (ویژوال بیسیک 6) Amin_Mansouri 0 2,851 06-16-2012، 07:54 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن مشخصات mp3(ویژوال بیسیک 6) Amin_Mansouri 0 2,897 05-15-2012، 02:24 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن مسیر پوشه ویندوز و سیستم عامل(ویژوال بیسیک 6) Amin_Mansouri 0 3,937 05-13-2012، 08:24 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن سریال سی پی یو (ویزوال بیسیک ) Amin_Mansouri 1 5,639 04-27-2012، 06:36 PM
آخرین ارسال: Ghoghnus
  سورس کد بدست اوردن سریال مادربورد و سریال هارد دیسک و گرافیک __omid__ 29 45,153 04-22-2012، 07:37 PM
آخرین ارسال: __omid__
  بدست اوردن لیست درایوهای موجود بر روی سیستم Amin_Mansouri 28 38,196 01-13-2012، 12:57 PM
آخرین ارسال: پنام
  بدست آوردن urlموجود در مرورگر Ghoghnus 1 4,005 11-01-2011، 11:16 PM
آخرین ارسال: Amin_Mansouri
  بدست اوردن سریال هارد دیسک Amin_Mansouri 0 5,380 10-14-2011، 03:07 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 2 مهمان