شكل و مكان الفورم - نسخة قابلة للطباعة

شكل و مكان الفورم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : شكل و مكان الفورم (/showthread.php?tid=49002)

شكل و مكان الفورم - العتيق - 05-06-24

التحكم بحجم ومكان الفورم

يمكنك التحكم بحجم ومكان الفورم باستخدام خصائص Size و Location. إليكم مثالاً بسيطاً بكود VB.NET:

PHP كود :

' تعيين حجم الفورم
Me.Size = New System.Drawing.Size(800, 600)

' تعيين مكان الفورم
Me.Location = New System.Drawing.Point(100, 100) 

جعل الفورم دائري

لجعل الفورم دائرياً، يمكنك استخدام الكود التالي لتحديد المنطقة (Region) الخاصة بالفورم بحيث تأخذ شكل دائرة. إليك كيف يمكنك فعل ذلك في VB.NET:

PHP كود :

Protected Overrides Sub OnPaint(e As PaintEventArgs)
    MyBase.OnPaint(e)

    ' تعيين نصف القطر
    Dim radius As Integer = 150

    ' تعيين الشكل الدائري
    Dim path As New System.Drawing.Drawing2D.GraphicsPath()
    path.AddEllipse(0, 0, radius * 2, radius * 2)
    Me.Region = New System.Drawing.Region(path)
End Sub

' عند تحميل الفورم، اضبط الحجم ومكان العرض
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' تعيين حجم الفورم ليكون مناسباً للشكل الدائري
    Me.Size = New System.Drawing.Size(300, 300)
End Sub 

المثال الكامل

إليك مثالاً كاملاً يجمع بين التحكم في الحجم والمكان وجعل الفورم دائرياً:

PHP كود :

Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
    Inherits Form

    Public Sub New()
        InitializeComponent()
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)

        ' تعيين نصف القطر
        Dim radius As Integer = 150

        ' تعيين الشكل الدائري
        Dim path As New System.Drawing.Drawing2D.GraphicsPath()
        path.AddEllipse(0, 0, radius * 2, radius * 2)
        Me.Region = New System.Drawing.Region(path)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' تعيين حجم الفورم ليكون مناسباً للشكل الدائري
        Me.Size = New System.Drawing.Size(300, 300)

        ' تعيين مكان الفورم
        Me.Location = New Point(100, 100)
    End Sub

    <STAThread>
    Shared Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New Form1())
    End Sub
End Class 