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


الردود في هذا الموضوع
لقيت الحل ساطرحة للفائدة - بواسطة ismaeel - 30-06-20, 12:13 AM


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


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