تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في برمجة ازرار usercontrol
#1
السلام عليكم 
عندي مشكلة في اداوات 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
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
(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
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا
الرد
تم الشكر بواسطة:
#3
الحل هو وضع كود في 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
الرد
تم الشكر بواسطة:



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


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