تقييم الموضوع :
  • 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
جزاك الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن تحويل ال Query في السيكوال الي جدول مثل الاكسس khaled12345 2 66 19-11-17, 02:02 PM
آخر رد: khaled12345
  كيف يمكن حذف السطور الصفرية من داتا جريد فيو السيد الجوهري 3 51 18-11-17, 07:07 PM
آخر رد: ﻣﺒﺘﺪﺉ
  [VB.NET] كيف يمكن حل مشكلة التعديل و التحديث و الحذف larbihamri 2 106 04-11-17, 08:45 PM
آخر رد: larbihamri
  [VB.NET] هل يمكن عمل مشروعي نسخة محموله? Marwan9990 7 231 14-08-17, 01:12 PM
آخر رد: Marwan9990
  كيف يمكن انشاء صورة باركود عن طريق WEB SERVICE كفاح 0 103 11-08-17, 03:17 PM
آخر رد: كفاح
  [سؤال] هل الكود التالي يمكن ان يسجل صوت الكومبيوتر بعد تعديل بسيط سعود 4 175 09-08-17, 03:56 AM
آخر رد: سعود
  هل يمكن رسم chart بهذا الشكل khaled12345 4 270 09-08-17, 01:28 AM
آخر رد: khaled12345
  [VB.NET] هل يمكن ترجمة الكلام المكتوب على صورة؟ الماجيك مسعد 6 255 05-08-17, 08:48 PM
آخر رد: الماجيك مسعد
  هل يمكن تخطى كابتشا جوجل برمجيا؟ الماجيك مسعد 0 109 10-07-17, 04:11 PM
آخر رد: الماجيك مسعد
  هل يمكن عرض جزأ معين من صفحة اكسيل او وورد في الفورم khaled12345 2 232 10-06-17, 08:18 PM
آخر رد: khaled12345

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


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