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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة أحتاج مساعدتكم talatm 0 25 , 11:29 PM
آخر رد: talatm
  مشكلة عند كتابة textbox cordava 3 75 07-07-20, 09:39 PM
آخر رد: ابراهيم ايبو
  مشكلة مؤشر textbox cordava 2 58 05-07-20, 04:48 PM
آخر رد: DR.YASER
  مشكلة في comboBox cordava 1 52 05-07-20, 01:05 PM
آخر رد: ابراهيم ايبو
  مشكلة اريد لها حل ومساعدة العطر الرايق 2 78 04-07-20, 12:48 AM
آخر رد: العطر الرايق
  مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds مث جيولوجي مبتدئ 3 103 03-07-20, 06:12 AM
آخر رد: جيولوجي مبتدئ
  مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds مث جيولوجي مبتدئ 1 78 02-07-20, 12:43 PM
آخر رد: معاند الحظ
  مشكلة ورسالة خطا لم اجد لها حل منذ 5 ايام تحديث essawq 45 1,350 02-07-20, 01:06 AM
آخر رد: kiki
  [نقاش] مشكلة سخيفة تواجهنا أحيانا : منع حذف ملف على الـ C DR.YASER 0 56 30-06-20, 11:58 PM
آخر رد: DR.YASER
  عندي مشكلة في الطباعة بالكريستال ريبورت alipro 16 345 26-06-20, 09:32 PM
آخر رد: alipro

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


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