سوال: اين دو تا دستورِ vb6، در vb2008 برابر با چي هست...؟

سلام.

در ويژوال بيسيك 6 مي‌شد (با فرض داشتن كنترلي به نام Picture1) اين دستورات را نوشت:

کد:

---

a = Picture1.Point(b, c)
Picture1.Pset (b, c), d

---

كار خط اول: قرار دادن كد رنگ پيكسلي با مختصات b,c در متغير a
كار خط دوم: رنگ كردن پيكسلي با مختصات b,c با رنگ d

اكنون سوال من اينست: اين دستورات را در VB2008 چجوري بنويسم؟ چون اصلا خصوصيتي به اسم Point يا Pset براي يك PictureBox نداره.

ممنون مي‌شم راهنمايي كنيد.
تندرست باشيد. :46:

سلام!

معادل دستور زیر :

کد:

---

a = Picture1.Point(b, c)

---

عبارت است از:

کد:

---

Dim BMP As New Bitmap(PictureBox1.BackgroundImage)
Dim b, c As Integer
Dim a As Color = BMP.GetPixel(b, c)

---

*********************************

معادل دستور زیر:

کد:

---

Picture1.Pset (b, c), d

---

عبارت است از:

کد:

---

Dim d As Color = Color.Blue
 BMP.SetPixel(b, c, d)

---