30-06-20, 12:13 AM
الحل هو وضع كود في 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