+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في برمجة ازرار usercontrol (/showthread.php?tid=35354)
مشكلة في برمجة ازرار usercontrol - ismaeel - 24-06-20
السلام عليكم
عندي مشكلة في اداوات 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
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا
RE: ياعملاقة الفيجوال ما لقيتو حل للمشكلة في برمجة ازرار usercontrol - ismaeel - 25-06-20
(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
الغرض من قائمة الاداوات هذه اريد استخدمها في كل الفورم
اذا في طريقة اخرى ممكن تفيدونا
لقيت الحل ساطرحة للفائدة - ismaeel - 30-06-20
الحل هو وضع كود في 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