cs_SDan
Messages postés288Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention13 juin 2008
-
16 sept. 2004 à 15:22
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
16 sept. 2004 à 18:33
salut,
Actuellement, je suis entrain de créer une applic sur les drapeaux du monde entier. Dans la feuille qui m'intéresse, j'ai créer de slabels et une PictureBox qui a pour name de,propriétés Pic. Il y a un dossier qui s'appelle Drapeaux et dedans 5 dossiers dont Afrique, Asie, ... avec le sdrapeaux e chaque pays. J'aimerais afficher le drapeau centreafrique.gif dans Pic. Voici la procédure que j'ai introduite dans Form_Load mais à chaque fois, quand j'ouvre l afeuille, il me dit Fichier introuvable.
Private Sub Form_Load()
lTitle.Caption = "Question 1"
Label1.Caption = "Tapez la réponse de l aquestion dans l'espac eréservé à cet effet."
Label2.Caption = "Question"
Label3.Caption = "A quel pays correspond le drapeau ci-contre?"
Label4.Caption = "Réponse"
chemin1 = App.Path
If Right(chemin1, 1) <> "" Then
chemin1 = chemin1 & ""
End If
chemin1 = chemin1 & "Drapeaux\Afrique"
Pic.Picture = LoadPicture(chemin1 & "centrearique.gif")
End Sub
qqun pourrait-il me dire où j'ai comis une erreur et comment y remédier?