السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'57- رسم متوازي اضلاع على الفورم
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Graphics = Me.CreateGraphics
Dim i As Integer
For i = 1 To 40
a.DrawLine(Pens.Red, 0 + i, 100 + i, i, i)
Next
End Sub
End Class
'57- رسم متوازي اضلاع على الفورم
'58-رسم مجموعة مربعات متوازية
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Graphics = Me.CreateGraphics
Dim i As Integer
For i = 1 To 40
a.DrawRectangle(Pens.Red, New Rectangle _
(0 + i, 100 + i, i, i))
Next
End Sub
End Class
'58-رسم مجموعة مربعات متوازية
رد مع اقتباس
