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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في توليد arabic qr code osmana2005 6 4,340 10-10-21, 04:49 PM
آخر رد: mahtawfik
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 164 09-10-21, 06:55 PM
آخر رد: ahmed4
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 162 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 194 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 0 112 06-10-21, 07:07 PM
آخر رد: saramustafa182
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 1 197 06-10-21, 04:42 PM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 4 3,453 04-10-21, 03:57 PM
آخر رد: Mohammed_khalil
  [سؤال] مشكلة عاجلة saja salahiden 1 183 28-09-21, 02:23 PM
آخر رد: alims
  مشكلة في تحويل كود من #c الي vb.net الماجيك مسعد 6 361 27-09-21, 04:31 PM
آخر رد: الماجيك مسعد
  مشكلة في listview crazykinko 0 185 26-09-21, 01:54 PM
آخر رد: crazykinko

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


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