birtemp
چهارشنبه 10 خرداد 1391, 12:18 عصر
در این آموزش، خواهید دید که چگونه می توان رنگ و نام پیکسلی را که نشانگر ماوس بر روی آن پیکسل قرار دارد را بدست آورد. برای ساخت چنین برنامه ای شما به یک کنترل Timer, TextBox و یک کنترل PictureBox نیاز دارید.
خاصیت interval کنترل تایمر را بر روی عدد ۱ و گزینه Enable را برابر با True تنظیم کنید.
سپس بر روی کنترل تایمر دابل کلیک کرده و کدهای زیر را مانند نمونه جایگذاری کنید:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a As New Drawing.Bitmap(1, 1)
Dim b As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(a)
b.CopyFromScreen(New Drawing.Point(MousePosition.X, MousePosition.Y), New Drawing.Point(0, 0), a.Size)
Dim c As Drawing.Color = a.GetPixel(0, 0)
PictureBox1.BackColor = c
TextBox1.Text = PictureBox1.BackColor.Name
End Sub
خاصیت interval کنترل تایمر را بر روی عدد ۱ و گزینه Enable را برابر با True تنظیم کنید.
سپس بر روی کنترل تایمر دابل کلیک کرده و کدهای زیر را مانند نمونه جایگذاری کنید:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a As New Drawing.Bitmap(1, 1)
Dim b As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(a)
b.CopyFromScreen(New Drawing.Point(MousePosition.X, MousePosition.Y), New Drawing.Point(0, 0), a.Size)
Dim c As Drawing.Color = a.GetPixel(0, 0)
PictureBox1.BackColor = c
TextBox1.Text = PictureBox1.BackColor.Name
End Sub