تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف يمكن اضاقة اداه من ملف dll
#1
كيف يمكن اضاقة اداه من ملف dll
لو انشأت مشروع و فى الكلاس هذه الاكواد
كود :
Imports System.Windows.Forms
Imports System.Drawing

Public Class Tools
    Dim Form1 As New Form

    Public Function AddButton()
        Dim a As New Button
        Form1.Controls.Add(a)
        a.Size = New Size(180, 18)
        a.Location = New Point(20, 20)
        a.Show()
    End Function
End Class
فى المشروع الثانى
كود :
Public Class Form1
    Dim add As New ClassLibrary1.Tools

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        add.Addbutton()
    End Sub
End Class
و عملت build للمشروع و اضافة ملف dll الناتج عن المشروع فى مشورع جديد يوجد به فروم
كيف يتم اضافة الزر او الاداه فى المشروع الجديد ؟
الرد }}}
تم الشكر بواسطة:
#2
نحمده ونصلي على رسوله الكريم

صنع الادوات يحتاج اولا توريث الفئة من ال control او من اي فئة فرعية (موروثة من ال control).
كود :
Public Class Class1
    inherts button

    Sub New()
        Size = New Size(180, 18)
    End Sub
End Class
ثم اضف الأداة من صندوق الأدوات أو من:
كود :
private withevents button1 as new class1

private sub form1_load(sender as object, e as eventargs) handles mybase.load
    controls.add(button1)
end sub

private sub button1_click(object sender, e as eventargs) handles button1.click
    messagebox.show("Done...")
end sub
الرد }}}
تم الشكر بواسطة:
#3
(09-02-14, 07:44 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

صنع الادوات يحتاج اولا توريث الفئة من ال control او من اي فئة فرعية (موروثة من ال control).
كود :
Public Class Class1
    inherts button

    Sub New()
        Size = New Size(180, 18)
    End Sub
End Class
ثم اضف الأداة من صندوق الأدوات أو من:
كود :
private withevents button1 as new class1

private sub form1_load(sender as object, e as eventargs) handles mybase.load
    controls.add(button1)
end sub

private sub button1_click(object sender, e as eventargs) handles button1.click
    messagebox.show("Done...")
end sub

انا لا اقصد صنع اداه بل اقصد يتم اضافه الاداه من الادوات الموجوده فى قامة الادوات
لاكن بدل ادافه الكود فى حدث الفروم نستدعى من dll
الرد }}}
تم الشكر بواسطة:
#4
نحمده ونصلي على رسوله الكريم

DLL:
كود :
Public Class Class1
    Public Sub AddButton(ByRef form As System.Windows.Forms.Form)
        Dim b As New System.Windows.Forms.Button()
        b.Size = New System.Drawing.Size(180, 18)
        b.Location = New System.Drawing.Point(20, 20)

        form.Controls.Add(b)
    End Sub
End Class

Form:
كود :
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim b As New ClassLibrary1.Class1()
        b.AddButton(Me)
    End Sub
End Class
الرد }}}
تم الشكر بواسطة: أسامة , ناجي إبراهيم , prj
#5
(09-02-14, 10:48 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

DLL:
كود :
Public Class Class1
    Public Sub AddButton(ByRef form As System.Windows.Forms.Form)
        Dim b As New System.Windows.Forms.Button()
        b.Size = New System.Drawing.Size(180, 18)
        b.Location = New System.Drawing.Point(20, 20)

        form.Controls.Add(b)
    End Sub
End Class

Form:
كود :
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim b As New ClassLibrary1.Class1()
        b.AddButton(Me)
    End Sub
End Class
جزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
  هل يمكن نسخ احتياطي لأسماء الButtons ؟ hazim1 2 238 21-09-23, 07:32 PM
آخر رد: hazim1
  هل يمكن عد الصفوف التالية للصف المُحدد في Datagridview ؟ hazim1 1 460 17-07-23, 09:04 PM
آخر رد: mrfenix93
  [SQL] كيف يمكن تعديل update أو حذف delete صف معين من جدول بدلالة رقم الصف ROW_NUMBER mmaalmesry 4 759 06-02-23, 09:42 AM
آخر رد: mmaalmesry
  [VB.NET] كيف يمكن تنفيذ امر داخل الباور شل zooz313 2 775 17-12-22, 02:25 PM
آخر رد: kebboud
  هل يمكن الاعتماد على 2 او اكثر من قاعدة البيانات لبرنامج واحد حماده ممدوح البحيرى 0 469 10-12-22, 08:56 PM
آخر رد: حماده ممدوح البحيرى
  كيف يمكن إدخال بيانات ( اسم المستخدم وكلمة المرور ) لملف مشاركة برمجياً. عبد الله 8 4,209 10-12-22, 04:00 PM
آخر رد: Calvinarins

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


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