Bouton pour générer une picturebox

**karting68** · 24/02/2015, 10h06

Bonjour,
je souhaiterais créer un logiciel qui permet que lorsque l'on clique sur les boutons le smiley adéquat au bouton s'affiche dans une picture box, et si l'on clique sur un autre bouton les smiley se suivent en dessous.

J'ai déjà fais toute la partie graphique, voici un screen avec des explications :
Nom : Sans titre 1.png
Affichages : 206
Taille : 56,3 Ko

Nom : Sans titre 1.png
Affichages : 206
Taille : 56,3 Ko

J'ai essayé ce code mais il me dis que sourire.png n'est pas déclaré (j'ai déjà importer mes images dans Visual Basic..) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(22, 199)
        p.Size = New Drawing.Size(75, 52)
        p.BorderStyle = Windows.Forms.BorderStyle.Fixed3D
        p.Visible = True
        p.Image = (sourire.png)
        Me.Controls.Add(p)
    End Sub

Autre chose, j'ai trouvé 2 problème auxquels faire face :
Problème : L'ordre n'est jamais le même, donc il faut trouver un moyen de créer la picturebox aux bonnes coordonnées
Problème 2 : Il se peut que j'ai à cliquer 2 fois sur le même bouton, le smiley devra donc s'afficher 2 fois

Merci d'avance pour votre aide !

**Graffito** · 24/02/2015, 23h53

Code :

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

p.Image = Button1.Image ;

**karting68** · 25/02/2015, 19h24

ca marches parfaitement, voici le code :

Code :

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

1
2
3
4
5
6
7
8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(22, 199)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button1.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)

comment puis-je faire pour les aligner côte à côte peu importe l'ordre?
Et faire en sorte de pouvoir mettre deux fois de suite le même smiley

**Graffito** · 25/02/2015, 22h49

Code :

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

p.Location = New Drawing.Point(22+(75+MargeSeparantLesBoutonsCrees)*IndexDuBoutonCree, 199)

**karting68** · 25/02/2015, 23h57

bonsoir, seul les 2 premier boutons fonctionnent, et de manière étrange :

Nom : fffffff.png
Affichages : 114
Taille : 54,5 Ko

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(128 + (75 + 10) * 2, 217)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button2.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(47 + (75 + 10) * 1, 217)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button1.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(47 + (75 + 10) * 11, 367)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button11.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(209 + (75 + 10) * 3, 217)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button3.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(290 + (75 + 10) * 4, 217)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button4.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(371 + (75 + 10) * 5, 217)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button5.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(47 + (75 + 10) * 6, 298)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button6.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(128 + (75 + 10) * 7, 298)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button7.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(209 + (75 + 10) * 8, 298)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button8.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(290 + (75 + 10) * 9, 298)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button9.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(371 + (75 + 10) * 10, 298)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button10.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(128 + (75 + 10) * 12, 367)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button12.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(209 + (75 + 10) * 13, 367)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button13.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(290 + (75 + 10) * 14, 367)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button14.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Dim p As New Windows.Forms.PictureBox()
        p.Location = New Drawing.Point(371 + (75 + 10) * 15, 367)
        p.Size = New Drawing.Size(75, 52)
        p.Visible = True
        p.Image = Button15.Image
        p.SizeMode = PictureBoxSizeMode.CenterImage
        Me.Controls.Add(p)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

merci beaucoup pour toute cette aide !