ariaman5
![](https://rozup.ir/up/moisrex/eghbal/2002987955diamond.png) ![](https://rozup.ir/up/moisrex/eghbal/2002987955diamond.png)
![](https://rozup.ir/view/393139/police-user.png)
ارسالهاAsnwers : | 1837 |
عضویتRegistration date : | 5 /7 /1391 |
حمایت کردهthanks : | 1008 |
حمایت شدهThanked : | 338 |
|
پاسخAnswer 1 : سورس گرافیکی 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(255 - i, 255 - i, 255 - i)), pt1, pt2) pt1.X = x1 pt1.Y = 0 pt2.X = x1 pt2.Y = PictureBox1.Height x1 = x1 + 1 Next End Sub End Class
|