ariaman5
ارسال هاAnswers : | 1837 |
عضویتRegistration date : | 5 /7 /1391 |
حمایت کردهThanks : | 1008 |
حمایت شدهThanked : | 338 |
|
سورس گرافیکی Vb.net
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim pt1 As Point pt1.X = 0 pt1.Y = 0 Dim pt2 As Point pt2.X = 0 pt2.Y = PictureBox1.Height Dim x1 = 0 For i = 0 To 255 PictureBox1.CreateGraphics.DrawLine(New Pen(Color.FromArgb(i, i, i)), pt1, pt2) pt1.X = x1 pt1.Y = 0 pt2.X = x1 pt2.Y = PictureBox1.Height x1 = x1 1 Next End Sub End Class دمو :دی :
|