Création de bouton par code VB.net

Version imprimable

Bonjour,

je voudrais créer un bouton par code VB.net.
j'ai réussi à créer ce bouton , mais je n'arrive pas à coder l'instruction suivante :
si j'appuie sur ce bouton nouvellement créé, alors je lance une action, en quelque sorte Bouton.Click = Lancer une action ( Me.Close() : par exemple )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class Form4 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mybutton As New Button With mybutton .ForeColor = Color.Red .Text = "Test" .Left = 250 .Top = 2 .Height = 117 .Width = 124 End With Me.Controls.Add(mybutton) '...Si j'appuie sur ce bouton ainsi créé, alors je lancer une application... End Sub End Class
[/I]

Merci d'avance pour votre aide.

18/04/2016, 14h20
ZenZiTone

Citation:

Envoyé par steackos67

si j'appuie sur ce bouton nouvellement créé, alors je lance une action, en quelque sorte Bouton.Click = Lancer une action ( Me.Close() : par exemple )

Il faut donc lier l'événement de ton nouveau bouton avec une méthode. Regarde du coté de AddHander, tu devrais pouvoir trouver ton bonheur :)
18/04/2016, 16h55
steackos67

Citation:

Envoyé par ZenZiTone

Il faut donc lier l'événement de ton nouveau bouton avec une méthode. Regarde du coté de AddHander, tu devrais pouvoir trouver ton bonheur :)

Merci ZenZiTone,

Je vais déja étudier ce AddHander,

bonne journée à vous
Steackos

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim mybutton As New Button
        With mybutton
            .ForeColor = Color.Red
            .Text = "Test"
            .Left = 250
            .Top = 2
            .Height = 117
            .Width = 124
        End With
        Me.Controls.Add(mybutton)
 
        AddHandler mybutton.Click, AddressOf mybutton_Click
 
End Sub    
 
 
Private Sub mybutton_Click(sender As Object, e As EventArgs)
     Messagebox.Show("Click !")
End Sub

19/04/2016, 10h28
ZenZiTone

@FLYeRNeT donner la réponse "toute faite" n'est pas forcément la meilleur aide que l'on peut apporter. J'aurais préféré que ce soit steackos67 qui nous fournisse sa solution. Le copié-collé n'est pas la meilleur façon d'apprendre :?

Citation:

Envoyé par ZenZiTone

@FLYeRNeT donner la réponse "toute faite" n'est pas forcément la meilleur aide que l'on peut apporter. J'aurais préféré que ce soit steackos67 qui nous fournisse sa solution. Le copié-collé n'est pas la meilleur façon d'apprendre :?

Merci encore pour le conseil ZenZiTone, j'avais déja trouvé une solution avant que @FLYeRNeT avait posté sa solution. en tout cas merci à tous les deux.

voilà mes codes j'ai un peu avancé mais à chaque étape je cherche sur le net comment on fait, c'est pas évident pour moi ce n'est pas mon domaine, je suis conducteur de TRAM mais la programmation me plait bien aussi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 Public Class Form4
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim I, J, K, Max As Integer
        J = 0
        Max = 15  ' Variable temporaire plus tard ça sera la taille de mon tableau
        For I = 0 To Max
            For K = 1 To 5
                If (I >= Max) Then GoTo exitMysub
                Dim mybutton As New Button
                With mybutton
                    .ForeColor = Color.Red
                    '.Text = "Test"
                    .Left = 125 + K * 124 ' je décale le bouton de 124 pixel à K+
                    .Top = 2 + J * 117    ' je descends le bouton de 117pixels vers le bas J+
                    .Height = 117
                    .Width = 124
                End With
                '*********************************
                ' je colle l'image à mon bouton
                Dim monImage As Bitmap
                Dim Hauteur As Integer
                Dim Largeur As Integer
                Hauteur = mybutton.Height
                Largeur = mybutton.Width
                Dim pathImg As String = "Icon\CD.ICO"
                monImage = New Bitmap(Bitmap.FromFile(pathImg), Largeur, Hauteur)
                mybutton.BackgroundImage = monImage
                '*********************************
                Me.Controls.Add(mybutton)
                AddHandler Me.Click, AddressOf ClickMe
                I += 1
            Next
            If estMutipleDe5(I) Then
                J += 1
                I -= 1
            End If
        Next
 
exitMysub:
    End Sub
 
    Private Sub ClickMe(sender As Object, e As EventArgs)
        'Je lance le programe
        Dim pathProg As String = "Programs\3DPChip.cmd"
        Process.Start(pathProg)
 
    End Sub
    Private Function estMutipleDe5(n As Integer) As Boolean
        Dim vrai As Boolean
        vrai = False
        If (n Mod 5 = 0) Then
            vrai = True
        Else
            vrai = False
        End If
        Return vrai
    End Function
End Class

En gros quand je clique sur le bouton1, ça va m'afficher plusieurs boutons ici 16 boutons, il affiche par rangé de 5. Pour l'instant ce bouton ont le même icône et lance le même application. Plus tard ils auront des icônes différents et lance les application différent. Je compte créer un fichier texte Je récupère ces données, je le mettrai dans un tableau. ça va être un tableau à 2 dimensions. Donc mon prochain étape c'est : Lire Fichier texte, le mettre dans un tableau à deux dimensions.

Merci

19/04/2016, 17h01
wallace1

Citation:

Envoyé par ZenZiTone

@FLYeRNeT donner la réponse "toute faite" n'est pas forcément la meilleur aide que l'on peut apporter. J'aurais préféré que ce soit steackos67 qui nous fournisse sa solution. Le copié-collé n'est pas la meilleur façon d'apprendre :?

Je te rejoins sur ce point ;) :plusser:

Tu peux simplifier ta function "estMutipleDe5"

Citation:

Envoyé par steackos67

Code:

1
2
3
4
5
6
7
8
9
10
    Private Function estMutipleDe5(n As Integer) As Boolean
        Dim vrai As Boolean
        vrai = False
        If (n Mod 5 = 0) Then
            vrai = True
        Else
            vrai = False
        End If
        Return vrai
    End Function

Dans ton test If (n Mod 5 = 0) Then la condition (n Mod 5 = 0) te renvoie vrai ou faux ce qui correspond à la réponse de retour de ta fonction.
Tu peux donc directement la renvoyer

Code:

1
2
3
    Private Function estMutipleDe5(n As Integer) As Boolean
        Return (n Mod 5 = 0) ' renvoie vrai pour les multiples de 5, sinon faux
    End Function

Pense à marquer ta discussion en résolue.

20/04/2016, 13h06
steackos67
Citation:
Envoyé par rv26t

Tu peux simplifier ta function "estMutipleDe5"

Dans ton test If (n Mod 5 = 0) Then la condition (n Mod 5 = 0) te renvoie vrai ou faux ce qui correspond à la réponse de retour de ta fonction.
Tu peux donc directement la renvoyer

Code:

1 2 3 Private Function estMutipleDe5(n As Integer) As Boolean Return (n Mod 5 = 0) ' renvoie vrai pour les multiples de 5, sinon faux End Function

Pense à marquer ta discussion en résolue.
Merci rv26t,
Bonne journée