Discussion :

[stracoma]

Bonjour tout le monde, j'ai besoin de votre aide. vous avez compris le problème à partir du titre:
Ajouter un bouton en mode console et pas en mode graphique (cliquer-glisser-déposer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Class Form1
*
****Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
*******??????????????????
****End Sub
End Class

[rv26t]

Bonjour,

Il faut le créer dynamiquement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private UnBouton As Button
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UnBouton = New Button                   ' création du bouton
        UnBouton.Name = "MonBouton"        ' définition des propriétés
        UnBouton.Location = New Point(20, 20)
        UnBouton.Size = New Size(100, 25)
        UnBouton.Font = New Font("Arial", 10, FontStyle.Bold)
        UnBouton.Text = "Bouton Dyn."
        AddHandler UnBouton.Click, AddressOf unButton_Click        ' gestion de l'évènement clic
        Me.Controls.Add(UnBouton)              ' ajout à la fenêtre
    End Sub
    Private Sub unButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("clic sur le bouton " & UnBouton.Name)
    End Sub

En plus de l'import Imports System.Windows.Forms il faut Imports System.Drawing pour point, size et font.

[stracoma]

rv26t,merci infiniment, le code marche.
Franchement j'ai cherché dans d'autres forums sans succès
Merciiiiiiiiiiii