Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 11 sur 11
  1. #1
    Invité régulier
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    août 2012
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services de proximité

    Informations forums :
    Inscription : août 2012
    Messages : 70
    Points : 5
    Points
    5

    Par défaut Rafraichir un formulaire

    Bonjour à tous,

    J'ai créé sous visual studio 2010, un formulaire qui affiche des images. Lors du load, j'ai créé un sub qui définit les pictures box. Je voudrais qu'il rafraichisse la fenêtre au fur et à mesure que les gadgets sont créer.

    J'ai bien mis Gadget.refresh mais ça ne fonctionne pas.Pourquoi?
    Merçi à vous tous.

  2. #2
    Membre Expert Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 576
    Points : 1 066
    Points
    1 066

    Par défaut

    Salut programmes,

    Pourrais-tu être plus explicite et éventuellement poster le code de ton formulaire principal que je puisse t'aider stp, car je ne vois pas de quelle facon tu les charges ?

    De plus de quelle faon charges-tu tes images , dynamiquement ? depuis le disque dur, les resources du projet ? la taille de tes images ?

    A+

  3. #3
    Invité régulier
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    août 2012
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services de proximité

    Informations forums :
    Inscription : août 2012
    Messages : 70
    Points : 5
    Points
    5

    Par défaut

    C'est vrai que je suis pas très explicite. Voici mon code:
    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
    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

  4. #4
    Membre chevronné
    Homme Profil pro Yves TRICHAUD
    Technicien bio médical
    Inscrit en
    décembre 2012
    Messages
    321
    Détails du profil
    Informations personnelles :
    Nom : Homme Yves TRICHAUD
    Âge : 30
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Technicien bio médical
    Secteur : Santé

    Informations forums :
    Inscription : décembre 2012
    Messages : 321
    Points : 692
    Points
    692

    Par défaut

    Bonjour,

    D'après ce que je comprends de ton code, tu récupère les images dans un dossier choisit par l'utilisateur.

    Est ce bien ça?

    Si c'est le cas, il existe des méthodes plus simple pour créer dynamiquement toutes les PicturesBox.

    Je ne comprends pas la syntaxe de :
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
     
    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
    Votre fonction LireINI() à quoi sert elle?
    est ton amis, MSDN est ton maître, pour le reste il y a Developpez.net. Pensez au au et

  5. #5
    Membre Expert Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 576
    Points : 1 066
    Points
    1 066

    Par défaut

    @programmes :

    O_O....une usine à gaz dira-t-on ...mais on n'est pas là pour ca...^^

    En fait il faut que tu charges ta fonction "AfficherVignettes" dans un Thread car les opérations de longues durée nécessitant le raffraichissement de controles doivent impérativement passées par des processus pour éviter que la fenêtre principale ne freeze.... (.. et c'est ce qu'il se passe au moment du Load du formulaire principal !!) .

    Utilise 1 backgroundWorker avec le reportProgress pour mettre à jour tes controles : Label, pictureBox, ...etc....

    Pourquoi n'utilises-tu pas 1 controle listview pour afficher tes images au lieu de toutes ces Picturebox ???

    A+

  6. #6
    Invité régulier
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    août 2012
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services de proximité

    Informations forums :
    Inscription : août 2012
    Messages : 70
    Points : 5
    Points
    5

    Par défaut

    En fai, le programme sert à classer des vidéos et la fonction choix est utilisé pour savoir si les vidéos ont été mises à jour.
    Quand aux fonctions LireIni et EcrireIni elles servent à lire et à écrire dans un fichier ini qui contient toutes les vidéos.

  7. #7
    Membre Expert Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 576
    Points : 1 066
    Points
    1 066

    Par défaut

    Votre fonction LireINI() à quoi sert elle?
    Sa fonction LireINI permet de lire la structure d'1 fichier de configuration ".ini" (Section, clé, valeur)

    Cordialement

  8. #8
    Membre Expert Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 576
    Points : 1 066
    Points
    1 066

    Par défaut

    Voilà j'ai fais ca vite fais pour que tu vois à quoi ressemble une opération de type "Thread" avec "Mise à jour des controles du formulaire principal" :

    1- Créé 1 projet
    2- Ajoute 1 listview
    3- Ajoute 1 backgroundWorker

    4- Si tu n'as pas d'images dans le répertoire : "C:\Windows\Web\Wallpaper" modifie la variable dans le code et mets au moins une dizaine d'image d'1 poids conséquent pour véritablement te rendre compte du travail du thread et de la mise à jour GUI.

    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
    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
     
    Public Class Form1
     
        Private fbd As FolderBrowserDialog
        Private Imglist As ImageList
     
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            fbd = New FolderBrowserDialog
            Imglist = New ImageList
            Imglist.ColorDepth = ColorDepth.Depth32Bit
            'Paramétrage du listview (tu peux le faire en mode concepteur de vue ou depuis la fenêtre des propriétés du controle)
            Me.ListView1.Dock = DockStyle.Fill
            Me.ListView1.LargeImageList = Imglist
            Me.ListView1.SmallImageList = Imglist
            'Paramétrage du BackgroundWorker (tu peux le faire en mode concepteur de vue ou depuis la fenêtre des propriétés du controle)
            Me.BackgroundWorker1.WorkerReportsProgress = True
            Me.BackgroundWorker1.WorkerSupportsCancellation = True
            Me.BackgroundWorker1.RunWorkerAsync()
        End Sub
     
        Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
            For Each f As String In System.IO.Directory.GetFiles("C:\Windows\Web\Wallpaper", "*.jpg", IO.SearchOption.AllDirectories)
                Dim fi As New System.IO.FileInfo(f)
                Try
                    Dim items As String() = New String(3) {}
                    items(0) = System.IO.Path.GetFileNameWithoutExtension(f)
                    items(1) = fi.FullName
                    items(2) = fi.Extension
                    Dim item As New ListViewItem(items)
                    Dim img As Image = GetAutoSizeImage(Bitmap.FromFile(f), New Size(100, 100))
                    Me.BackgroundWorker1.ReportProgress(Nothing, New Object() {item, img})
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            Next
        End Sub
     
        Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
            Try
                Dim lvi As ListViewItem = TryCast(e.UserState(0), ListViewItem)
                Dim img As Image = TryCast(e.UserState(1), Image)
                If Not lvi Is Nothing And Not img Is Nothing Then
                    Me.Text = "Chargement de l'image : " & lvi.Text
                    Imglist.ImageSize = New Size(img.Width, img.Height)
                    Imglist.Images.Add(img)
                    lvi.ImageIndex = Imglist.Images.Count - 1
                    Me.ListView1.Items.AddRange(New ListViewItem() {lvi})
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub
     
        Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
            MsgBox("Chargement terminé", MsgBoxStyle.Information, "Eh eh")
        End Sub
     
        Private Function GetAutoSizeImage(ByVal Img As Bitmap, ByVal siz As Size) As Image
            Dim imgOrg As Bitmap
            Dim imgShow As Bitmap
            Dim g As Graphics
            Dim divideBy, divideByH, divideByW As Double
            imgOrg = Img
            divideByW = imgOrg.Width / siz.Width
            divideByH = imgOrg.Height / siz.Height
            If divideByW > 1 Or divideByH > 1 Then
                If divideByW > divideByH Then
                    divideBy = divideByW
                Else
                    divideBy = divideByH
                End If
                imgShow = New Bitmap(CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy))
                imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                g = Graphics.FromImage(imgShow)
                g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(imgOrg, New Rectangle(0, 0, CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy)), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                g.Dispose()
            Else
                imgShow = New Bitmap(imgOrg.Width, imgOrg.Height)
                imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                g = Graphics.FromImage(imgShow)
                g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(imgOrg, New Rectangle(0, 0, imgOrg.Width, imgOrg.Height), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                g.Dispose()
            End If
            imgOrg.Dispose()
            Return imgShow
        End Function
    End Class
    PS0 : j'ai volontairement placé le paramétrage de contrôle dans le gestionnaire d'évènement "Load" du formulaire principal afin de ne pas avoir a détaillé le paramétrage de chaque .... mais tu peux aussi bien :

    1- poser tes controles
    2- les paramétrer à l'aide de la fenêtre de propriétés.

    PS1 : tu observeras la mise à jour du titre de la fenêtre avec les noms des images qui se chargent au fur et à mesure sans que cela ne freeze (gèle) la fenêtre principale.



    A+

  9. #9
    Invité régulier
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    août 2012
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services de proximité

    Informations forums :
    Inscription : août 2012
    Messages : 70
    Points : 5
    Points
    5

    Par défaut

    Je te remercie beaucoup çà répond tout à fait à ma question

    A+

  10. #10
    Invité régulier
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    août 2012
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Services de proximité

    Informations forums :
    Inscription : août 2012
    Messages : 70
    Points : 5
    Points
    5

    Par défaut

    Merci pour toutes vos réponses

    Maintenant, je voudrais que la barre verticale défile au fur et à mesure que les images s'affichent (quand la position de l'image dépasse la hauteur de l'écran). Je pense que çà doit être possible?

    Merçi à vous tous pour votre aide...

  11. #11
    Membre Expert Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 576
    Points : 1 066
    Points
    1 066

    Par défaut

    Ok comme il faut que l'apprentissage te soit profitable je te suggère, avant que je te donne une quelconque réponse toute faite ("codé" comme mon exemple ci dessus)... ,de réfléchir sur le fonctionnement d'une ProgressBar :

    - Quelles données lui faut elle pour être mise à jour ?
    - A quel moment dans le code que je t'ai fais (dans les précédents posts) sera-t-elle mise à jour selon toi ?

    PS0 : Oui c'est tout à fait faisable

    PS1 : La programmation c'est pas des portions de codes copié/collées ca et là, c'est une étude avec des données (d'entrée et de sortie) qui permet de trouver la solution adaptée à ton besoin.
    J'aime bien aidé mais il faut aussi y mettre du votre les gars.

    Cordialement

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •