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 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269
|
Public Sub AfficherVignettes()
Patienter.Label1.Text = "Veuillez patienter..." & Chr(13) & "Création des vignettes"
Patienter.Show()
Dim Nombre, Ajouter, Index, x, y, Compte As Integer
x = 15
y = 10
Index = 0
Nombre = Val(LireINI("Menu", "Nombre", FichierIni))
For Compte = 1 To Nombre
Dim Fichier As String = LireINI("Menu", Str(Compte), FichierIni)
Patienter.Label1.Text = "Veuillez patienter..." & Chr(13) & "Création des vignettes" & "(" & Str(Compte) & "/" & Str(Nombre) & ")"
Patienter.Refresh()
Select Case Choix
Case 1 : Ajouter = 1
Case 2 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
Case 3 : If LireINI(Fichier, "DecoupeVideo", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
Case 4 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "1" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
Case 5 : If LireINI(Fichier, "DecoupeExtrait", FichierIni) = "0" Then : Ajouter = 1 : Else : Ajouter = 0 : End If
End Select
If Ajouter = 1 Then
Index += 1
EcrireINI("Videos", Str(Index), Fichier, SystemIni)
Fichier = Repertoire & Mid(Fichier, 1, Len(Fichier) - 3) & "jpg"
Dim FichierImage = Image.FromFile(WindowsApplication1.Menu.RepertoireSysteme & "Image.jpg")
If System.IO.File.Exists(Fichier) Then : FichierImage = Image.FromFile(Fichier) : End If
Dim Gadget As New PictureBox
Select Case Compte
Case 1 : AddHandler Gadget.Click, AddressOf Image1_Click : AddHandler Gadget.DoubleClick, AddressOf Image1_DoubleClick
Case 2 : AddHandler Gadget.Click, AddressOf Image2_Click : AddHandler Gadget.DoubleClick, AddressOf Image2_DoubleClick
Case 3 : AddHandler Gadget.Click, AddressOf Image3_Click : AddHandler Gadget.DoubleClick, AddressOf Image3_DoubleClick
Case 4 : AddHandler Gadget.Click, AddressOf Image4_Click : AddHandler Gadget.DoubleClick, AddressOf Image4_DoubleClick
Case 5 : AddHandler Gadget.Click, AddressOf Image5_Click : AddHandler Gadget.DoubleClick, AddressOf Image5_DoubleClick
Case 6 : AddHandler Gadget.Click, AddressOf Image6_Click : AddHandler Gadget.DoubleClick, AddressOf Image6_DoubleClick
Case 7 : AddHandler Gadget.Click, AddressOf Image7_Click : AddHandler Gadget.DoubleClick, AddressOf Image7_DoubleClick
Case 8 : AddHandler Gadget.Click, AddressOf Image8_Click : AddHandler Gadget.DoubleClick, AddressOf Image8_DoubleClick
Case 9 : AddHandler Gadget.Click, AddressOf Image9_Click : AddHandler Gadget.DoubleClick, AddressOf Image9_DoubleClick
Case 10 : AddHandler Gadget.Click, AddressOf Image10_Click : AddHandler Gadget.DoubleClick, AddressOf Image10_DoubleClick
Case 11 : AddHandler Gadget.Click, AddressOf Image11_Click : AddHandler Gadget.DoubleClick, AddressOf Image11_DoubleClick
Case 12 : AddHandler Gadget.Click, AddressOf Image12_Click : AddHandler Gadget.DoubleClick, AddressOf Image12_DoubleClick
Case 13 : AddHandler Gadget.Click, AddressOf Image13_Click : AddHandler Gadget.DoubleClick, AddressOf Image13_DoubleClick
Case 14 : AddHandler Gadget.Click, AddressOf Image14_Click : AddHandler Gadget.DoubleClick, AddressOf Image14_DoubleClick
Case 15 : AddHandler Gadget.Click, AddressOf Image15_Click : AddHandler Gadget.DoubleClick, AddressOf Image15_DoubleClick
Case 16 : AddHandler Gadget.Click, AddressOf Image16_Click : AddHandler Gadget.DoubleClick, AddressOf Image16_DoubleClick
Case 17 : AddHandler Gadget.Click, AddressOf Image17_Click : AddHandler Gadget.DoubleClick, AddressOf Image17_DoubleClick
Case 18 : AddHandler Gadget.Click, AddressOf Image18_Click : AddHandler Gadget.DoubleClick, AddressOf Image18_DoubleClick
Case 19 : AddHandler Gadget.Click, AddressOf Image19_Click : AddHandler Gadget.DoubleClick, AddressOf Image19_DoubleClick
Case 20 : AddHandler Gadget.Click, AddressOf Image20_Click : AddHandler Gadget.DoubleClick, AddressOf Image20_DoubleClick
Case 21 : AddHandler Gadget.Click, AddressOf Image21_Click : AddHandler Gadget.DoubleClick, AddressOf Image21_DoubleClick
Case 22 : AddHandler Gadget.Click, AddressOf Image22_Click : AddHandler Gadget.DoubleClick, AddressOf Image22_DoubleClick
Case 23 : AddHandler Gadget.Click, AddressOf Image23_Click : AddHandler Gadget.DoubleClick, AddressOf Image23_DoubleClick
Case 24 : AddHandler Gadget.Click, AddressOf Image24_Click : AddHandler Gadget.DoubleClick, AddressOf Image24_DoubleClick
Case 25 : AddHandler Gadget.Click, AddressOf Image25_Click : AddHandler Gadget.DoubleClick, AddressOf Image25_DoubleClick
Case 26 : AddHandler Gadget.Click, AddressOf Image26_Click : AddHandler Gadget.DoubleClick, AddressOf Image26_DoubleClick
Case 27 : AddHandler Gadget.Click, AddressOf Image27_Click : AddHandler Gadget.DoubleClick, AddressOf Image27_DoubleClick
Case 28 : AddHandler Gadget.Click, AddressOf Image28_Click : AddHandler Gadget.DoubleClick, AddressOf Image28_DoubleClick
Case 29 : AddHandler Gadget.Click, AddressOf Image29_Click : AddHandler Gadget.DoubleClick, AddressOf Image29_DoubleClick
Case 30 : AddHandler Gadget.Click, AddressOf Image30_Click : AddHandler Gadget.DoubleClick, AddressOf Image30_DoubleClick
Case 31 : AddHandler Gadget.Click, AddressOf Image31_Click : AddHandler Gadget.DoubleClick, AddressOf Image31_DoubleClick
Case 32 : AddHandler Gadget.Click, AddressOf Image32_Click : AddHandler Gadget.DoubleClick, AddressOf Image32_DoubleClick
Case 33 : AddHandler Gadget.Click, AddressOf Image33_Click : AddHandler Gadget.DoubleClick, AddressOf Image33_DoubleClick
Case 34 : AddHandler Gadget.Click, AddressOf Image34_Click : AddHandler Gadget.DoubleClick, AddressOf Image34_DoubleClick
Case 35 : AddHandler Gadget.Click, AddressOf Image35_Click : AddHandler Gadget.DoubleClick, AddressOf Image35_DoubleClick
Case 36 : AddHandler Gadget.Click, AddressOf Image36_Click : AddHandler Gadget.DoubleClick, AddressOf Image36_DoubleClick
Case 37 : AddHandler Gadget.Click, AddressOf Image37_Click : AddHandler Gadget.DoubleClick, AddressOf Image37_DoubleClick
Case 38 : AddHandler Gadget.Click, AddressOf Image38_Click : AddHandler Gadget.DoubleClick, AddressOf Image38_DoubleClick
Case 39 : AddHandler Gadget.Click, AddressOf Image39_Click : AddHandler Gadget.DoubleClick, AddressOf Image39_DoubleClick
Case 40 : AddHandler Gadget.Click, AddressOf Image40_Click : AddHandler Gadget.DoubleClick, AddressOf Image40_DoubleClick
Case 41 : AddHandler Gadget.Click, AddressOf Image41_Click : AddHandler Gadget.DoubleClick, AddressOf Image41_DoubleClick
Case 42 : AddHandler Gadget.Click, AddressOf Image42_Click : AddHandler Gadget.DoubleClick, AddressOf Image42_DoubleClick
Case 43 : AddHandler Gadget.Click, AddressOf Image43_Click : AddHandler Gadget.DoubleClick, AddressOf Image43_DoubleClick
Case 44 : AddHandler Gadget.Click, AddressOf Image44_Click : AddHandler Gadget.DoubleClick, AddressOf Image44_DoubleClick
Case 45 : AddHandler Gadget.Click, AddressOf Image45_Click : AddHandler Gadget.DoubleClick, AddressOf Image45_DoubleClick
Case 46 : AddHandler Gadget.Click, AddressOf Image46_Click : AddHandler Gadget.DoubleClick, AddressOf Image46_DoubleClick
Case 47 : AddHandler Gadget.Click, AddressOf Image47_Click : AddHandler Gadget.DoubleClick, AddressOf Image47_DoubleClick
Case 48 : AddHandler Gadget.Click, AddressOf Image48_Click : AddHandler Gadget.DoubleClick, AddressOf Image48_DoubleClick
Case 49 : AddHandler Gadget.Click, AddressOf Image49_Click : AddHandler Gadget.DoubleClick, AddressOf Image49_DoubleClick
Case 50 : AddHandler Gadget.Click, AddressOf Image50_Click : AddHandler Gadget.DoubleClick, AddressOf Image50_DoubleClick
Case 51 : AddHandler Gadget.Click, AddressOf Image51_Click : AddHandler Gadget.DoubleClick, AddressOf Image51_DoubleClick
Case 52 : AddHandler Gadget.Click, AddressOf Image52_Click : AddHandler Gadget.DoubleClick, AddressOf Image52_DoubleClick
Case 53 : AddHandler Gadget.Click, AddressOf Image53_Click : AddHandler Gadget.DoubleClick, AddressOf Image53_DoubleClick
Case 54 : AddHandler Gadget.Click, AddressOf Image54_Click : AddHandler Gadget.DoubleClick, AddressOf Image54_DoubleClick
Case 55 : AddHandler Gadget.Click, AddressOf Image55_Click : AddHandler Gadget.DoubleClick, AddressOf Image55_DoubleClick
Case 56 : AddHandler Gadget.Click, AddressOf Image56_Click : AddHandler Gadget.DoubleClick, AddressOf Image56_DoubleClick
Case 57 : AddHandler Gadget.Click, AddressOf Image57_Click : AddHandler Gadget.DoubleClick, AddressOf Image57_DoubleClick
Case 58 : AddHandler Gadget.Click, AddressOf Image58_Click : AddHandler Gadget.DoubleClick, AddressOf Image58_DoubleClick
Case 59 : AddHandler Gadget.Click, AddressOf Image59_Click : AddHandler Gadget.DoubleClick, AddressOf Image59_DoubleClick
Case 60 : AddHandler Gadget.Click, AddressOf Image60_Click : AddHandler Gadget.DoubleClick, AddressOf Image60_DoubleClick
Case 61 : AddHandler Gadget.Click, AddressOf Image61_Click : AddHandler Gadget.DoubleClick, AddressOf Image61_DoubleClick
Case 62 : AddHandler Gadget.Click, AddressOf Image62_Click : AddHandler Gadget.DoubleClick, AddressOf Image62_DoubleClick
Case 63 : AddHandler Gadget.Click, AddressOf Image63_Click : AddHandler Gadget.DoubleClick, AddressOf Image63_DoubleClick
Case 64 : AddHandler Gadget.Click, AddressOf Image64_Click : AddHandler Gadget.DoubleClick, AddressOf Image64_DoubleClick
Case 65 : AddHandler Gadget.Click, AddressOf Image65_Click : AddHandler Gadget.DoubleClick, AddressOf Image65_DoubleClick
Case 66 : AddHandler Gadget.Click, AddressOf Image66_Click : AddHandler Gadget.DoubleClick, AddressOf Image66_DoubleClick
Case 67 : AddHandler Gadget.Click, AddressOf Image67_Click : AddHandler Gadget.DoubleClick, AddressOf Image67_DoubleClick
Case 68 : AddHandler Gadget.Click, AddressOf Image68_Click : AddHandler Gadget.DoubleClick, AddressOf Image68_DoubleClick
Case 69 : AddHandler Gadget.Click, AddressOf Image69_Click : AddHandler Gadget.DoubleClick, AddressOf Image69_DoubleClick
Case 70 : AddHandler Gadget.Click, AddressOf Image70_Click : AddHandler Gadget.DoubleClick, AddressOf Image70_DoubleClick
Case 71 : AddHandler Gadget.Click, AddressOf Image71_Click : AddHandler Gadget.DoubleClick, AddressOf Image71_DoubleClick
Case 72 : AddHandler Gadget.Click, AddressOf Image72_Click : AddHandler Gadget.DoubleClick, AddressOf Image72_DoubleClick
Case 73 : AddHandler Gadget.Click, AddressOf Image73_Click : AddHandler Gadget.DoubleClick, AddressOf Image73_DoubleClick
Case 74 : AddHandler Gadget.Click, AddressOf Image74_Click : AddHandler Gadget.DoubleClick, AddressOf Image74_DoubleClick
Case 75 : AddHandler Gadget.Click, AddressOf Image75_Click : AddHandler Gadget.DoubleClick, AddressOf Image75_DoubleClick
Case 76 : AddHandler Gadget.Click, AddressOf Image76_Click : AddHandler Gadget.DoubleClick, AddressOf Image76_DoubleClick
Case 77 : AddHandler Gadget.Click, AddressOf Image77_Click : AddHandler Gadget.DoubleClick, AddressOf Image77_DoubleClick
Case 78 : AddHandler Gadget.Click, AddressOf Image78_Click : AddHandler Gadget.DoubleClick, AddressOf Image78_DoubleClick
Case 79 : AddHandler Gadget.Click, AddressOf Image79_Click : AddHandler Gadget.DoubleClick, AddressOf Image79_DoubleClick
Case 80 : AddHandler Gadget.Click, AddressOf Image80_Click : AddHandler Gadget.DoubleClick, AddressOf Image80_DoubleClick
Case 81 : AddHandler Gadget.Click, AddressOf Image81_Click : AddHandler Gadget.DoubleClick, AddressOf Image81_DoubleClick
Case 82 : AddHandler Gadget.Click, AddressOf Image82_Click : AddHandler Gadget.DoubleClick, AddressOf Image82_DoubleClick
Case 83 : AddHandler Gadget.Click, AddressOf Image83_Click : AddHandler Gadget.DoubleClick, AddressOf Image83_DoubleClick
Case 84 : AddHandler Gadget.Click, AddressOf Image84_Click : AddHandler Gadget.DoubleClick, AddressOf Image84_DoubleClick
Case 85 : AddHandler Gadget.Click, AddressOf Image85_Click : AddHandler Gadget.DoubleClick, AddressOf Image85_DoubleClick
Case 86 : AddHandler Gadget.Click, AddressOf Image86_Click : AddHandler Gadget.DoubleClick, AddressOf Image86_DoubleClick
Case 87 : AddHandler Gadget.Click, AddressOf Image87_Click : AddHandler Gadget.DoubleClick, AddressOf Image87_DoubleClick
Case 88 : AddHandler Gadget.Click, AddressOf Image88_Click : AddHandler Gadget.DoubleClick, AddressOf Image88_DoubleClick
Case 89 : AddHandler Gadget.Click, AddressOf Image89_Click : AddHandler Gadget.DoubleClick, AddressOf Image89_DoubleClick
Case 90 : AddHandler Gadget.Click, AddressOf Image90_Click : AddHandler Gadget.DoubleClick, AddressOf Image90_DoubleClick
Case 91 : AddHandler Gadget.Click, AddressOf Image91_Click : AddHandler Gadget.DoubleClick, AddressOf Image91_DoubleClick
Case 92 : AddHandler Gadget.Click, AddressOf Image92_Click : AddHandler Gadget.DoubleClick, AddressOf Image92_DoubleClick
Case 93 : AddHandler Gadget.Click, AddressOf Image93_Click : AddHandler Gadget.DoubleClick, AddressOf Image93_DoubleClick
Case 94 : AddHandler Gadget.Click, AddressOf Image94_Click : AddHandler Gadget.DoubleClick, AddressOf Image94_DoubleClick
Case 95 : AddHandler Gadget.Click, AddressOf Image95_Click : AddHandler Gadget.DoubleClick, AddressOf Image95_DoubleClick
Case 96 : AddHandler Gadget.Click, AddressOf Image96_Click : AddHandler Gadget.DoubleClick, AddressOf Image96_DoubleClick
Case 97 : AddHandler Gadget.Click, AddressOf Image97_Click : AddHandler Gadget.DoubleClick, AddressOf Image97_DoubleClick
Case 98 : AddHandler Gadget.Click, AddressOf Image98_Click : AddHandler Gadget.DoubleClick, AddressOf Image98_DoubleClick
Case 99 : AddHandler Gadget.Click, AddressOf Image99_Click : AddHandler Gadget.DoubleClick, AddressOf Image99_DoubleClick
Case 100 : AddHandler Gadget.Click, AddressOf Image100_Click : AddHandler Gadget.DoubleClick, AddressOf Image100_DoubleClick
Case 101 : AddHandler Gadget.Click, AddressOf Image101_Click : AddHandler Gadget.DoubleClick, AddressOf Image101_DoubleClick
Case 102 : AddHandler Gadget.Click, AddressOf Image102_Click : AddHandler Gadget.DoubleClick, AddressOf Image102_DoubleClick
Case 103 : AddHandler Gadget.Click, AddressOf Image103_Click : AddHandler Gadget.DoubleClick, AddressOf Image103_DoubleClick
Case 104 : AddHandler Gadget.Click, AddressOf Image104_Click : AddHandler Gadget.DoubleClick, AddressOf Image104_DoubleClick
Case 105 : AddHandler Gadget.Click, AddressOf Image105_Click : AddHandler Gadget.DoubleClick, AddressOf Image105_DoubleClick
Case 106 : AddHandler Gadget.Click, AddressOf Image106_Click : AddHandler Gadget.DoubleClick, AddressOf Image106_DoubleClick
Case 107 : AddHandler Gadget.Click, AddressOf Image107_Click : AddHandler Gadget.DoubleClick, AddressOf Image107_DoubleClick
Case 108 : AddHandler Gadget.Click, AddressOf Image108_Click : AddHandler Gadget.DoubleClick, AddressOf Image108_DoubleClick
Case 109 : AddHandler Gadget.Click, AddressOf Image109_Click : AddHandler Gadget.DoubleClick, AddressOf Image109_DoubleClick
Case 110 : AddHandler Gadget.Click, AddressOf Image110_Click : AddHandler Gadget.DoubleClick, AddressOf Image110_DoubleClick
Case 111 : AddHandler Gadget.Click, AddressOf Image111_Click : AddHandler Gadget.DoubleClick, AddressOf Image111_DoubleClick
Case 112 : AddHandler Gadget.Click, AddressOf Image112_Click : AddHandler Gadget.DoubleClick, AddressOf Image112_DoubleClick
Case 113 : AddHandler Gadget.Click, AddressOf Image113_Click : AddHandler Gadget.DoubleClick, AddressOf Image113_DoubleClick
Case 114 : AddHandler Gadget.Click, AddressOf Image114_Click : AddHandler Gadget.DoubleClick, AddressOf Image114_DoubleClick
Case 115 : AddHandler Gadget.Click, AddressOf Image115_Click : AddHandler Gadget.DoubleClick, AddressOf Image115_DoubleClick
Case 116 : AddHandler Gadget.Click, AddressOf Image116_Click : AddHandler Gadget.DoubleClick, AddressOf Image116_DoubleClick
Case 117 : AddHandler Gadget.Click, AddressOf Image117_Click : AddHandler Gadget.DoubleClick, AddressOf Image117_DoubleClick
Case 118 : AddHandler Gadget.Click, AddressOf Image118_Click : AddHandler Gadget.DoubleClick, AddressOf Image118_DoubleClick
Case 119 : AddHandler Gadget.Click, AddressOf Image119_Click : AddHandler Gadget.DoubleClick, AddressOf Image119_DoubleClick
Case 120 : AddHandler Gadget.Click, AddressOf Image120_Click : AddHandler Gadget.DoubleClick, AddressOf Image120_DoubleClick
Case 121 : AddHandler Gadget.Click, AddressOf Image121_Click : AddHandler Gadget.DoubleClick, AddressOf Image121_DoubleClick
Case 122 : AddHandler Gadget.Click, AddressOf Image122_Click : AddHandler Gadget.DoubleClick, AddressOf Image122_DoubleClick
Case 123 : AddHandler Gadget.Click, AddressOf Image123_Click : AddHandler Gadget.DoubleClick, AddressOf Image123_DoubleClick
Case 124 : AddHandler Gadget.Click, AddressOf Image124_Click : AddHandler Gadget.DoubleClick, AddressOf Image124_DoubleClick
Case 125 : AddHandler Gadget.Click, AddressOf Image125_Click : AddHandler Gadget.DoubleClick, AddressOf Image125_DoubleClick
Case 126 : AddHandler Gadget.Click, AddressOf Image126_Click : AddHandler Gadget.DoubleClick, AddressOf Image126_DoubleClick
Case 127 : AddHandler Gadget.Click, AddressOf Image127_Click : AddHandler Gadget.DoubleClick, AddressOf Image127_DoubleClick
Case 128 : AddHandler Gadget.Click, AddressOf Image128_Click : AddHandler Gadget.DoubleClick, AddressOf Image128_DoubleClick
Case 129 : AddHandler Gadget.Click, AddressOf Image129_Click : AddHandler Gadget.DoubleClick, AddressOf Image129_DoubleClick
Case 130 : AddHandler Gadget.Click, AddressOf Image130_Click : AddHandler Gadget.DoubleClick, AddressOf Image130_DoubleClick
Case 131 : AddHandler Gadget.Click, AddressOf Image131_Click : AddHandler Gadget.DoubleClick, AddressOf Image131_DoubleClick
Case 132 : AddHandler Gadget.Click, AddressOf Image132_Click : AddHandler Gadget.DoubleClick, AddressOf Image132_DoubleClick
Case 133 : AddHandler Gadget.Click, AddressOf Image133_Click : AddHandler Gadget.DoubleClick, AddressOf Image133_DoubleClick
Case 134 : AddHandler Gadget.Click, AddressOf Image134_Click : AddHandler Gadget.DoubleClick, AddressOf Image134_DoubleClick
Case 135 : AddHandler Gadget.Click, AddressOf Image135_Click : AddHandler Gadget.DoubleClick, AddressOf Image135_DoubleClick
Case 136 : AddHandler Gadget.Click, AddressOf Image136_Click : AddHandler Gadget.DoubleClick, AddressOf Image136_DoubleClick
Case 137 : AddHandler Gadget.Click, AddressOf Image137_Click : AddHandler Gadget.DoubleClick, AddressOf Image137_DoubleClick
Case 138 : AddHandler Gadget.Click, AddressOf Image138_Click : AddHandler Gadget.DoubleClick, AddressOf Image138_DoubleClick
Case 139 : AddHandler Gadget.Click, AddressOf Image139_Click : AddHandler Gadget.DoubleClick, AddressOf Image139_DoubleClick
Case 140 : AddHandler Gadget.Click, AddressOf Image140_Click : AddHandler Gadget.DoubleClick, AddressOf Image140_DoubleClick
Case 141 : AddHandler Gadget.Click, AddressOf Image141_Click : AddHandler Gadget.DoubleClick, AddressOf Image141_DoubleClick
Case 142 : AddHandler Gadget.Click, AddressOf Image142_Click : AddHandler Gadget.DoubleClick, AddressOf Image142_DoubleClick
Case 143 : AddHandler Gadget.Click, AddressOf Image143_Click : AddHandler Gadget.DoubleClick, AddressOf Image143_DoubleClick
Case 144 : AddHandler Gadget.Click, AddressOf Image144_Click : AddHandler Gadget.DoubleClick, AddressOf Image144_DoubleClick
Case 145 : AddHandler Gadget.Click, AddressOf Image145_Click : AddHandler Gadget.DoubleClick, AddressOf Image145_DoubleClick
Case 146 : AddHandler Gadget.Click, AddressOf Image146_Click : AddHandler Gadget.DoubleClick, AddressOf Image146_DoubleClick
Case 147 : AddHandler Gadget.Click, AddressOf Image147_Click : AddHandler Gadget.DoubleClick, AddressOf Image147_DoubleClick
Case 148 : AddHandler Gadget.Click, AddressOf Image148_Click : AddHandler Gadget.DoubleClick, AddressOf Image148_DoubleClick
Case 149 : AddHandler Gadget.Click, AddressOf Image149_Click : AddHandler Gadget.DoubleClick, AddressOf Image149_DoubleClick
Case 150 : AddHandler Gadget.Click, AddressOf Image150_Click : AddHandler Gadget.DoubleClick, AddressOf Image150_DoubleClick
Case 151 : AddHandler Gadget.Click, AddressOf Image151_Click : AddHandler Gadget.DoubleClick, AddressOf Image151_DoubleClick
Case 152 : AddHandler Gadget.Click, AddressOf Image152_Click : AddHandler Gadget.DoubleClick, AddressOf Image152_DoubleClick
Case 153 : AddHandler Gadget.Click, AddressOf Image153_Click : AddHandler Gadget.DoubleClick, AddressOf Image153_DoubleClick
Case 154 : AddHandler Gadget.Click, AddressOf Image154_Click : AddHandler Gadget.DoubleClick, AddressOf Image154_DoubleClick
Case 155 : AddHandler Gadget.Click, AddressOf Image155_Click : AddHandler Gadget.DoubleClick, AddressOf Image155_DoubleClick
Case 156 : AddHandler Gadget.Click, AddressOf Image156_Click : AddHandler Gadget.DoubleClick, AddressOf Image156_DoubleClick
Case 157 : AddHandler Gadget.Click, AddressOf Image157_Click : AddHandler Gadget.DoubleClick, AddressOf Image157_DoubleClick
Case 158 : AddHandler Gadget.Click, AddressOf Image158_Click : AddHandler Gadget.DoubleClick, AddressOf Image158_DoubleClick
Case 159 : AddHandler Gadget.Click, AddressOf Image159_Click : AddHandler Gadget.DoubleClick, AddressOf Image159_DoubleClick
Case 160 : AddHandler Gadget.Click, AddressOf Image160_Click : AddHandler Gadget.DoubleClick, AddressOf Image160_DoubleClick
Case 161 : AddHandler Gadget.Click, AddressOf Image161_Click : AddHandler Gadget.DoubleClick, AddressOf Image161_DoubleClick
Case 162 : AddHandler Gadget.Click, AddressOf Image162_Click : AddHandler Gadget.DoubleClick, AddressOf Image162_DoubleClick
Case 163 : AddHandler Gadget.Click, AddressOf Image163_Click : AddHandler Gadget.DoubleClick, AddressOf Image163_DoubleClick
Case 164 : AddHandler Gadget.Click, AddressOf Image164_Click : AddHandler Gadget.DoubleClick, AddressOf Image164_DoubleClick
Case 165 : AddHandler Gadget.Click, AddressOf Image165_Click : AddHandler Gadget.DoubleClick, AddressOf Image165_DoubleClick
Case 166 : AddHandler Gadget.Click, AddressOf Image166_Click : AddHandler Gadget.DoubleClick, AddressOf Image166_DoubleClick
Case 167 : AddHandler Gadget.Click, AddressOf Image167_Click : AddHandler Gadget.DoubleClick, AddressOf Image167_DoubleClick
Case 168 : AddHandler Gadget.Click, AddressOf Image168_Click : AddHandler Gadget.DoubleClick, AddressOf Image168_DoubleClick
Case 169 : AddHandler Gadget.Click, AddressOf Image169_Click : AddHandler Gadget.DoubleClick, AddressOf Image169_DoubleClick
Case 170 : AddHandler Gadget.Click, AddressOf Image170_Click : AddHandler Gadget.DoubleClick, AddressOf Image170_DoubleClick
Case 171 : AddHandler Gadget.Click, AddressOf Image171_Click : AddHandler Gadget.DoubleClick, AddressOf Image171_DoubleClick
Case 172 : AddHandler Gadget.Click, AddressOf Image172_Click : AddHandler Gadget.DoubleClick, AddressOf Image172_DoubleClick
Case 173 : AddHandler Gadget.Click, AddressOf Image173_Click : AddHandler Gadget.DoubleClick, AddressOf Image173_DoubleClick
Case 174 : AddHandler Gadget.Click, AddressOf Image174_Click : AddHandler Gadget.DoubleClick, AddressOf Image174_DoubleClick
Case 175 : AddHandler Gadget.Click, AddressOf Image175_Click : AddHandler Gadget.DoubleClick, AddressOf Image175_DoubleClick
Case 176 : AddHandler Gadget.Click, AddressOf Image176_Click : AddHandler Gadget.DoubleClick, AddressOf Image176_DoubleClick
Case 177 : AddHandler Gadget.Click, AddressOf Image177_Click : AddHandler Gadget.DoubleClick, AddressOf Image177_DoubleClick
Case 178 : AddHandler Gadget.Click, AddressOf Image178_Click : AddHandler Gadget.DoubleClick, AddressOf Image178_DoubleClick
Case 179 : AddHandler Gadget.Click, AddressOf Image179_Click : AddHandler Gadget.DoubleClick, AddressOf Image179_DoubleClick
Case 180 : AddHandler Gadget.Click, AddressOf Image180_Click : AddHandler Gadget.DoubleClick, AddressOf Image180_DoubleClick
Case 181 : AddHandler Gadget.Click, AddressOf Image181_Click : AddHandler Gadget.DoubleClick, AddressOf Image181_DoubleClick
Case 182 : AddHandler Gadget.Click, AddressOf Image182_Click : AddHandler Gadget.DoubleClick, AddressOf Image182_DoubleClick
Case 183 : AddHandler Gadget.Click, AddressOf Image183_Click : AddHandler Gadget.DoubleClick, AddressOf Image183_DoubleClick
Case 184 : AddHandler Gadget.Click, AddressOf Image184_Click : AddHandler Gadget.DoubleClick, AddressOf Image184_DoubleClick
Case 185 : AddHandler Gadget.Click, AddressOf Image185_Click : AddHandler Gadget.DoubleClick, AddressOf Image185_DoubleClick
Case 186 : AddHandler Gadget.Click, AddressOf Image186_Click : AddHandler Gadget.DoubleClick, AddressOf Image186_DoubleClick
Case 187 : AddHandler Gadget.Click, AddressOf Image187_Click : AddHandler Gadget.DoubleClick, AddressOf Image187_DoubleClick
Case 188 : AddHandler Gadget.Click, AddressOf Image188_Click : AddHandler Gadget.DoubleClick, AddressOf Image188_DoubleClick
Case 189 : AddHandler Gadget.Click, AddressOf Image189_Click : AddHandler Gadget.DoubleClick, AddressOf Image189_DoubleClick
Case 190 : AddHandler Gadget.Click, AddressOf Image190_Click : AddHandler Gadget.DoubleClick, AddressOf Image190_DoubleClick
Case 191 : AddHandler Gadget.Click, AddressOf Image191_Click : AddHandler Gadget.DoubleClick, AddressOf Image191_DoubleClick
Case 192 : AddHandler Gadget.Click, AddressOf Image192_Click : AddHandler Gadget.DoubleClick, AddressOf Image192_DoubleClick
Case 193 : AddHandler Gadget.Click, AddressOf Image193_Click : AddHandler Gadget.DoubleClick, AddressOf Image193_DoubleClick
Case 194 : AddHandler Gadget.Click, AddressOf Image194_Click : AddHandler Gadget.DoubleClick, AddressOf Image194_DoubleClick
Case 195 : AddHandler Gadget.Click, AddressOf Image195_Click : AddHandler Gadget.DoubleClick, AddressOf Image195_DoubleClick
Case 196 : AddHandler Gadget.Click, AddressOf Image196_Click : AddHandler Gadget.DoubleClick, AddressOf Image196_DoubleClick
Case 197 : AddHandler Gadget.Click, AddressOf Image197_Click : AddHandler Gadget.DoubleClick, AddressOf Image197_DoubleClick
Case 198 : AddHandler Gadget.Click, AddressOf Image198_Click : AddHandler Gadget.DoubleClick, AddressOf Image198_DoubleClick
Case 199 : AddHandler Gadget.Click, AddressOf Image199_Click : AddHandler Gadget.DoubleClick, AddressOf Image199_DoubleClick
Case 200 : AddHandler Gadget.Click, AddressOf Image200_Click : AddHandler Gadget.DoubleClick, AddressOf Image200_DoubleClick
Case 201 : AddHandler Gadget.Click, AddressOf Image201_Click : AddHandler Gadget.DoubleClick, AddressOf Image201_DoubleClick
Case 202 : AddHandler Gadget.Click, AddressOf Image202_Click : AddHandler Gadget.DoubleClick, AddressOf Image202_DoubleClick
Case 203 : AddHandler Gadget.Click, AddressOf Image203_Click : AddHandler Gadget.DoubleClick, AddressOf Image203_DoubleClick
Case 204 : AddHandler Gadget.Click, AddressOf Image204_Click : AddHandler Gadget.DoubleClick, AddressOf Image204_DoubleClick
Case 205 : AddHandler Gadget.Click, AddressOf Image205_Click : AddHandler Gadget.DoubleClick, AddressOf Image205_DoubleClick
Case 206 : AddHandler Gadget.Click, AddressOf Image206_Click : AddHandler Gadget.DoubleClick, AddressOf Image206_DoubleClick
Case 207 : AddHandler Gadget.Click, AddressOf Image207_Click : AddHandler Gadget.DoubleClick, AddressOf Image207_DoubleClick
Case 208 : AddHandler Gadget.Click, AddressOf Image208_Click : AddHandler Gadget.DoubleClick, AddressOf Image208_DoubleClick
Case 209 : AddHandler Gadget.Click, AddressOf Image209_Click : AddHandler Gadget.DoubleClick, AddressOf Image209_DoubleClick
Case 210 : AddHandler Gadget.Click, AddressOf Image210_Click : AddHandler Gadget.DoubleClick, AddressOf Image210_DoubleClick
End Select
Me.Activate()
Gadget.Name = "Image" & Trim(Str(Compte))
Gadget.Height = 270
Gadget.Width = 190
Gadget.Left = x
Gadget.Top = y
Gadget.Visible = True
Gadget.BorderStyle = BorderStyle.Fixed3D
Gadget.BackgroundImageLayout = ImageLayout.Stretch
Gadget.Cursor = Cursors.Hand
Gadget.ContextMenuStrip = ContextMenuStrip1
If System.IO.File.Exists(Fichier) Then
Dim myBitmap = New Bitmap(FichierImage)
FichierImage.Dispose()
FichierImage = Nothing
Gadget.BackgroundImage = myBitmap
End If
Me.Controls.Add(Gadget)
Application.DoEvents()
x += 210 '200
If x = 1905 Then : x = 15 : y += 280 : End If '1425
End If
Next
If x = 15 Then : Me.AutoScrollMinSize = New Size(0, y + 10)
Else : Me.AutoScrollMinSize = New Size(0, y + 280) : End If
Patienter.Hide()
End Sub
Private Sub Site_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AfficherVignettes()
End Sub |