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 |
Partager