17-10-12, 08:01 PM
كاتب الموضوع : jafaronly
قد نكون اعتدنا على شكل الفورم المربع او المستطيل في احسن الاحوال ولكن لا بأس بالخروج قليلا عن هذا الروتين وتجربة ان يكون الفورم دائرياً مثلاً خصوصاً وان الامر لا يكلف اكثر من كود ضغير جدا من سطرين هما ببساطة:اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim gr As System.Drawing.Graphics = Me.CreateGraphics
' لملىء الخلفية باللون الذي تختارة وهو الازرق هنا.
_ gr.FillEllipse(System.Drawing.Brushes.blue, 0, 0
(Me.ClientSize.Width - 5, Me.ClientSize.Height - 5
End Sub [/TD]
[/TR]
[/TABLE]
مع الانتباه الى ضرورو ان تكون الفورم لا حدود لها اي ان((form border style = none))
وان يكون ال trasperncy key colore هو نفسه ال back color للفورم
هذا كل ما في الامر طبعا تستطيع ان تغيير الارقام فقط لتحصل على شكل بيضوي مثلاً وتحياتي للجميع