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, pt2 As Drawing.Point Dim sz1 As Drawing.Size pt1.X = 0 pt1.Y = 0 pt2.X = 120 pt2.Y = 200 sz1.Width = 0 sz1.Height = 0 PictureBox1.CreateGraphics.DrawLine(Pens.Black, Point.Add(pt1, sz1), Point.Add(pt2, sz1)) pt1.X = 0 pt1.Y = 200 PictureBox1.CreateGraphics.DrawLine(Pens.Black, Point.Add(pt2, sz1), Point.Add(pt1, sz1)) pt2.X = 0 pt2.Y = 0 PictureBox1.CreateGraphics.DrawLine(Pens.Black, Point.Add(pt2, sz1), Point.Add(pt1, sz1)) For i = 0 To 120 pt1.X = i PictureBox1.CreateGraphics.DrawLine(Pens.Black, Point.Add(pt2, sz1), Point.Add(pt1, sz1)) Next End Sub End Class پیشاپیش و پساپس باخت تیم ملی تسلیت میگم
|