الفورم الدائري - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117) +---- الموضوع : الفورم الدائري (/showthread.php?tid=6316)

الفورم الدائري - RaggiTech - 17-10-12 كاتب الموضوع : 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 للفورم هذا كل ما في الامر طبعا تستطيع ان تغيير الارقام فقط لتحصل على شكل بيضوي مثلاً وتحياتي للجميع