Discussion :

[steackos67]

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 :

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

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.

[ZenZiTone]

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

[steackos67]

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

[FLYeRNeT]

Code :

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

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

[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

[steackos67]

@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 :

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

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

[wallace1]

@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