chargement d'une image

Question

voila j'ai un soft qui dois afficher une image,
--> ça je sais faire ,la ou cela se complique c'est que l'images doit changer en effet le soft que j'ai fait doit pouvoir servir plusieur fois mais avec une image differrente, sans avoir a recompiler le programme a chaque fois, donc l'image ce trouverais dans un repertoire et lorsque l'on chargerais le programme il chargerais l'images, voila j'espere avoir ete claire.
donc merci d'avance pour toutes info.

Jo Ace · Answer

Fastoche ! Voilà le sub complet :

Sub AfficherImage(Pic1)
Dim nimg as Integer 'le As Integer est très important
nimg=rnd*3-1 'si tu as 3 images, la variable en prend une des 3 au hasard
Select Case nimg
Case 0: Pic1.Picture=LoadPicture(App.Path+"\images\imageload1.bmp") 'exemple d'image si nimg=0
Case 1: Pic1.Picture=LoadPicture(App.Path+"\images\imageload2.bmp") 'exemple d'image si nimg=1
Case 2: Pic1.Picture=LoadPicture(App.Path+"\images\imageload1.bmp") 'exemple d'image si nimg=2
End Select
End Sub

J'espère avoir été moi aussi assez clair.

Chargement d'une image

1 réponse

Discussions similaires