منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
عندي مشكلة في اداوات user control
تم انشاء قائمة ادوات وسميتها xcontrol  تحتوي على ازرار ( جديد - حفظ - تعديل - انهاء ) وتم حفظ الاداوات وظهرة في قائمة الاداوات
وحطيتها في form1 والذي يحتوي على مربعات نصوص ادخال بيانات الموظفين
الى هنا مافيش مشكله
المشكلة اريد ابرمج الازار التي تم اعدادها في xcontrol
بحيث ااضغط على زر حفظ يقوم بحفظ البيانات المدرجة في مربعات النص ب form1

انا سويت كذا بس ما ضبطت معي
    Dim butn As XControl1
Sub New()
InitializeComponent()
butn = New XControl1
AddHandler butn.Button1.Click, AddressOf Button1CLICKHANDLER
AddHandler butn.Button2.Click, AddressOf Button2CLICKHANDLER
AddHandler butn.Button3.Click, AddressOf Button3CLICKHANDLER
AddHandler butn.Button4.Click, AddressOf Button4CLICKHANDLER

End Sub
Private Sub Button1CLICKHANDLER(sender As Object, e As EventArgs)
'========= هناء اريد انشاء كود جديد
End Sub
Private Sub Button2CLICKHANDLER(sender As Object, e As EventArgs)
'========= هناء اريد انشاء كود حفظ
End Sub
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا

(24-06-20, 05:38 PM)ismaeel كتب : [ -> ]السلام عليكم
عندي مشكلة في اداوات user control
تم انشاء قائمة ادوات وسميتها xcontrol  تحتوي على ازرار ( جديد - حفظ - تعديل - انهاء ) وتم حفظ الاداوات وظهرة في قائمة الاداوات
وحطيتها في form1 والذي يحتوي على مربعات نصوص ادخال بيانات الموظفين
الى هنا مافيش مشكله
المشكلة اريد ابرمج الازار التي تم اعدادها في xcontrol
بحيث ااضغط على زر حفظ يقوم بحفظ البيانات المدرجة في مربعات النص ب form1

انا سويت كذا بس ما ضبطت معي
    Dim butn As XControl1
Sub New()
InitializeComponent()
butn = New XControl1
AddHandler butn.Button1.Click, AddressOf Button1CLICKHANDLER
AddHandler butn.Button2.Click, AddressOf Button2CLICKHANDLER
AddHandler butn.Button3.Click, AddressOf Button3CLICKHANDLER
AddHandler butn.Button4.Click, AddressOf Button4CLICKHANDLER

End Sub
Private Sub Button1CLICKHANDLER(sender As Object, e As EventArgs)
'========= هناء اريد انشاء كود جديد
End Sub
Private Sub Button2CLICKHANDLER(sender As Object, e As EventArgs)
'========= هناء اريد انشاء كود حفظ
End Sub
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا

الحل هو وضع كود في LOAD الخاص بالفورم

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FORM1.Controls.Add(butn)

        butn.Dock = DockStyle.Left

end sub

الكود كامل

كود :

Public Class Form1

 Dim butn As XControl1

    Sub New()

        InitializeComponent()

        butn = New XControl1

        AddHandler butn.Button1.Click, AddressOf Button1CLICKHANDLER

        AddHandler butn.Button2.Click, AddressOf Button2CLICKHANDLER

        AddHandler butn.Button3.Click, AddressOf Button3CLICKHANDLER

        AddHandler butn.Button4.Click, AddressOf Button4CLICKHANDLER

    End Sub

    Private Sub Button1CLICKHANDLER(sender As Object, e As EventArgs)

        '========= هناء يتم كتابة الكود  جديد 

    End Sub

    Private Sub Button2CLICKHANDLER(sender As Object, e As EventArgs)

        '========= هناء يتم كتابة كود الحفظ

    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FORM1.Controls.Add(butn)

        butn.Dock = DockStyle.Left

end sub