06-10-12, 09:20 PM
كل ما قمنا بعمله - نستطيع الوصول له بالكود
هذا مثال فى حدث التحميل للفورم - نقوم بانشاء عنصر ونعطيه بعض الخصائص
هذا مثال فى حدث التحميل للفورم - نقوم بانشاء عنصر ونعطيه بعض الخصائص
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
Dim rec As New Microsoft.VisualBasic.PowerPacks.RectangleShape
rec.FillColor = System.Drawing.SystemColors.ControlDark
rec.FillGradientColor = System.Drawing.Color.Maroon
rec.FillGradientStyle = Microsoft.VisualBasic.PowerPacks.FillGradientStyle.None
rec.FillStyle = PowerPacks.FillStyle.Wave
rec.Location = New System.Drawing.Point(10, 10)
rec.Name = "RectangleShape1"
rec.Size = New System.Drawing.Size(100, 100)
rec.Parent = canvas
canvas.Parent = Me
End Sub