سوال get the pixel color under the mouse pointer

سلام میخوام موسو هر جا که بردم رنگ او پیکسل نشون داده بشه چیکار کنم (C#.NET)

البته داخل MSDN زیاد گشتم ولی نمیدونم شاید بد سرچ کردم

در زیر لینک یک سایت میزارم که همچین برنامه ای رو نوشته البته به VB اگه کسی تونست اونم به C#.Net تبدیل کنه خوبه

کد:

---

http://www.codeguru.com/vb/gen/vb_graphics/article.php/c2357/

---

با تشکر

Woeful:40:

لینک شما مشکل داره , صفحه رو که باز می کنی ارور می ده بعدش هم بسته میشه.

اگه کده همین جا بذار

نقل قول:

---

نوشته شده توسط anvar.net [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

لینک شما مشکل داره , صفحه رو که باز می کنی ارور می ده بعدش هم بسته میشه.

اگه کده همین جا بذار

---

:20: لینک درسته

فقط همین قدر از کد رو نوشته :

کد:

---


option Explicit
'
'
'Aaron Young
'Analyst Programmer
'ajyoung@pressenter.com <mailto:ajyoung@pressenter.com>
' [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
'

'Add a Timer Control to a Form, then use this code And point to
'anywhere on your screen to have
'the RGB value appear In the Forms Caption.
'
private Type POINTAPI
    x as Long
    y as Long
End Type
'
private Declare Function GetPixel Lib "gdi32" (byval hdc as Long, _
    byval x as Long, byval y as Long) as Long
private Declare Function GetCursorPos Lib "user32" _
        (lpPoint as POINTAPI) as Long
private Declare Function GetWindowDC Lib "user32" (byval hwnd as Long) _
        as Long
'
private Sub Form_Load()
    Timer1.Interval = 100
End Sub
'
private Sub Timer1_Timer()
    Dim tPOS as POINTAPI
    Dim sTmp as string
    Dim lColor as Long
    Dim lDC as Long
'
    lDC = GetWindowDC(0)
    Call GetCursorPos(tPOS)
    lColor = GetPixel(lDC, tPOS.x, tPOS.y)
    Label2.BackColor = lColor
' 
    sTmp = Right$("000000" & Hex(lColor), 6)
    Caption = "R:" & Right$(sTmp, 2) & " G:" &_
        mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Sub
'


---

اینم لینک دانلود برنامش:

کد:

---

http://www.codeguru.com/code/legacy/vb_graphics/2008_GetRGB.zip

---

مثالی که شما گذاشتید مربوط به Vb6 هست من فکر می کنم که دور VB 6 دیگه تموم شده.

بنابراین از امکانات بومی خود دات نت استفاده می کنیم. هر دو مثال با نسخه 2005 هستند.

C# ها توجه کنند, در وی بی من براحتی تونستم اشیاء ساخته شده رو Dispose کنم اما تو سی شارپ ارور میداد, واسه همین اونها رو Null گذاشتم. اگه ایده بهتری داشتید جایگزینش کنید

کد C#

کد:

---

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication8
{
public partial class Form1 : Form
{
Point cursorpoint;
Bitmap bm;
Graphics g;
int pixelColor;
public Form1()
{
InitializeComponent();
}
private void timer1_Tick(object sender, EventArgs e)
{
cursorpoint = System.Windows.Forms.Cursor.Position;
bm = new Bitmap(1, 1);
g = Graphics.FromImage(bm);
g.CopyFromScreen(cursorpoint, new Point(), new Size(1,1));
pixelColor = ColorTranslator.ToWin32(bm.GetPixel(0, 0));

g = null;
bm=null;

label3.BackColor = ColorTranslator.FromWin32(pixelColor);

 

}
private void Form1_Load(object sender, EventArgs e)
{
timer1.Enabled = true;
}
}
}

---

کد VB.net

کد:

---

Dim cursorpoint As Point
Dim bm As Bitmap
Dim g As Graphics
Dim pixelColor As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
cursorpoint = Windows.Forms.Cursor.Position
bm = New Bitmap(1, 1)
g = Graphics.FromImage(bm)
g.CopyFromScreen(cursorpoint, New Point, New Size(1, 1))
'On Error Resume Next
pixelColor = ColorTranslator.ToWin32(bm.GetPixel(0, 0))
g.Dispose()
bm.Dispose()
Label1.Text = "X:" + cursorpoint.X.ToString + " ,Y:" + cursorpoint.Y.ToString
Label2.Text = pixelColor
Label3.BackColor = ColorTranslator.FromWin32(pixelColor)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

---

تو فرم هم فقط تایمر و کنترل برچسب داریم. تمام