تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير خصائص الفورم من مكتبة dll
#1
[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]
الرد }}}}
تم الشكر بواسطة:
#2
أضيف فورم جديد للمشروع ثم قم بحذف هذا كفيل بإستيراد كل المكتبات التي ستمكنك من التعامل مع جميع الأدوات
هذه الطريقة تستخدم عند تطوير أداة حيث يتم إنشاء مشروع جديد من نوع Class ثم يضاف الفورم ويحذف مباشرة .

لا أدري إذا كان تنفع معك !!
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

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

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






الأدوات نوعان
أداة تحكم 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(valueForm)

            
SetDoubleBuffering(ParentFormTrue)

            
AddHandler ParentForm.PaintAddressOf Form_Paint
            AddHandler ParentForm
.ResizeAddressOf Form_Resize

            ParentForm
.Invalidate()
        
End Set
    End Property

    
Private Sub SetDoubleBuffering(ByVal frm As FormByVal value As Boolean)
        
Dim p As System.Reflection.PropertyInfo frm.GetType.GetProperty("DoubleBuffered"Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
        
p.SetValue(frmvalueNothing)
    
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(componentHostForm)
                
End If
            
End If
        
End Set
    End Property

    
Private Sub Form_Paint(ByVal sender As ObjectByVal e As System.Windows.Forms.PaintEventArgs)
        
sender.ForeColor Color.White
        sender
.BackColor Color.FromArgb(626262)
        
e.Graphics.Clear(Color.FromArgb(626262))


    
End Sub

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

    
End Sub

#End Region 




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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تنسيق الفورم مع الادوات khaled12345 2 41 اليوم, 02:09 AM
آخر رد: khaled12345
  كيفية تغير لون ال button اللي في الفورم بمعلومات في الداتا جريد فيو khaled12345 4 117 26-05-17, 08:30 PM
آخر رد: khaled12345
  تغيير التقويم أسامة السالمي 4 94 22-05-17, 08:03 PM
آخر رد: أسامة السالمي
  مشكلة تفعيل ظهور checkbox في الفورم عامر الجبوري 4 87 21-05-17, 02:22 PM
آخر رد: alma2
  لماذا يختفي الفورم عند النقر على اي زر كومند samawi 0 35 16-05-17, 10:30 PM
آخر رد: samawi
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 90 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 70 13-05-17, 11:01 AM
آخر رد: khalid475
  كود طباعه الفورم مرتين على نفس الريبورت alma_fandi 7 264 26-04-17, 10:18 PM
آخر رد: alma_fandi
  [سؤال] طباعة الفورم بشكل كامل VB.Net Sameh Hamdy 5 287 21-04-17, 04:18 PM
آخر رد: IBRA939
  ظهور الفورم بسكل جميل Basil Abdallah 0 97 19-04-17, 07:58 PM
آخر رد: Basil Abdallah

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم