[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
كيف يتم تغيير خصائص الفورم عن طريق مكتبة dll مثلآ
علمآ بأن لا اريد ارسال القيمة بالمشيد[/COLOR]

كود :

[color=#0000FF]Public Sub New[/color]([color=#0000FF]ByVal[/color] frm [color=#0000FF]As[/color] Form)

    [color=#0000FF]End Sub[/color]

واستخدمت الفئة Application

كود :

Application.OpenForms(0)

[COLOR="#800000"]لكن تظهر اخطاء عند التنفيذ
فكيف الحل اذا اردت عند اضافة الاداة ان يتغير لون الفورم[/COLOR]

[kslawy]

أضيف فورم جديد للمشروع ثم قم بحذف هذا كفيل بإستيراد كل المكتبات التي ستمكنك من التعامل مع جميع الأدوات
هذه الطريقة تستخدم عند تطوير أداة حيث يتم إنشاء مشروع جديد من نوع Class ثم يضاف الفورم ويحذف مباشرة .

لا أدري إذا كان تنفع معك !!

[3booody]

[COLOR="#800000"]بارك الله بك فعلآ صح كلامك لكن انا اريد تطوير اداة مثل الثيم بمعنى عند اضافة الاداة يتم تغيير خلفية الفورم التي تضاف عليه
هذا قصدي[/COLOR]

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته






الأدوات نوعان
أداة تحكم Control
أداة مكوّن Component

في كلا الأداة إذا أردت تغيير مباشر على الفورم لا بد من الحصول على مقبض الفورم الذي تم وضع الأداة عليه بشكل تلقائي

وهذا إجراء جاهز من مكتبتي يشمل حدث Pain وResize، ضعه داخل الأداة وسيكون ParentForm هو مقبض الفورم

PHP كود :

#Region " ParentForm "

    Private _Form As Form = Nothing

    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Property ParentForm() As Form
        Get
            Return _Form
        End Get
        Set(ByVal value As Form)
            _Form = DirectCast(value, Form)

            SetDoubleBuffering(ParentForm, True)

            AddHandler ParentForm.Paint, AddressOf Form_Paint
            AddHandler ParentForm.Resize, AddressOf Form_Resize

            ParentForm.Invalidate()
        End Set
    End Property

    Private Sub SetDoubleBuffering(ByVal frm As Form, ByVal value As Boolean)
        Dim p As System.Reflection.PropertyInfo = frm.GetType.GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
        p.SetValue(frm, value, Nothing)
    End Sub

    Public Overrides Property Site() As ISite
        Get
            Return MyBase.Site
        End Get
        Set(ByVal value As ISite)
            MyBase.Site = value
            If value Is Nothing Then
                Return
            End If

            Dim host As IDesignerHost = TryCast(value.GetService(GetType(IDesignerHost)), IDesignerHost)
            If host IsNot Nothing Then
                Dim componentHost As IComponent = host.RootComponent
                If TypeOf componentHost Is ContainerControl Then
                    ParentForm = TryCast(componentHost, Form)
                End If
            End If
        End Set
    End Property

    Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        sender.ForeColor = Color.White
        sender.BackColor = Color.FromArgb(62, 62, 62)
        e.Graphics.Clear(Color.FromArgb(62, 62, 62))


    End Sub

    Private Sub Form_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
        ParentForm.Invalidate()

    End Sub

#End Region 


السلام عليكم ورحمة الله وبركاته

[3booody]

إقتباس :يجب أن تضع للبعض سمعات قبل إعطائها إلى @@أبورائد@@ مرة أخرى.

[color="#800000"]جزاك الله خيرآ فعلآ وهو المطلوب اسأل الله ان يبارك لك في رزقك وان يغفر لك
والله من كتبت المشاركة توقعت الحل عندك يا استاذي[/color] :d