Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim button As New Button button.Parent = Me.TabControl1.SelectedTab.Name Me.Controls.Add(button)
Me.TabControl1.Controls.Add(button)
Me.TabControl1.SelectedTab.Controls.Add(button)
'appuyé sur le MouseUp d'un Button1 Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp Dim X, Y As Integer Dim button As New Button X = MousePosition.X + Me.Left - Me.Button1.Width / 2 Y = MousePosition.Y + Me.Top - Me.ActiveControl.Height / 2 'le divisé par 2 permettant de situer centre du bouton With button .Top = Y .Left = X .Height = Button1.Height .Width = Button1.Width .BackColor = Color.AntiqueWhite End With Me.TabControl1.SelectedTab.Controls.Add(button)
Me.TABCONTROL1.SelectedTab.Controls.Add(button)
Dim tabControl As TabControl tabControl = TryCast(Me.Controls(TextBox1.Text), TabControl) If tabControl IsNot Nothing Then tabControl.SelectedTab.Controls.Add(button) End If