Image Change En ClickRésolu

Question

Bonjour a tous, 

J'ai rechercher un peut dans l'aide de Visual Basic 6.0 et puis j'ai trouver ceci :


L'objet Picture est similaire sous certains aspects &#224; l'objet Printer. Tout en n'&#233;tant pas visible, il est n&#233;anmoins tr&#232;s utile. Il peut &#234;tre consid&#233;r&#233; comme un contr&#244;le PictureBox invisible que vous pouvez utiliser comme zone de transfert pour les images. Par exemple, le code suivant charge une image bitmap dans un objet Picture puis affecte cette image bitmap &#224; la propri&#233;t&#233; Picture d'un contr&#244;le PictureBox :

Private Sub Command1_Click()
   Dim objPic As Picture
   Set objPic = LoadPicture("Butterfly.bmp")
   Set Picture1.Picture = objPic
End Sub

Ce que je ne comprend pas, c'est que l'image Buttlefly.bmp je la met ou ?
J'ai essayer le code mais il me dise que le fichier est introuvable.

Faut-il mettre l'image d&#233;ja dans un autre PictureBox ?

Aider moi svp.

cs_DARKSIDIOUS · Accepted Answer

essaye plut&#244;t ceci :



Dim objDeadDuck As stdPicture

Private Sub imgBird1_Click()

Set objDeadDuck = LoadPicture("C:\canardtoucher.jpg")
Set imgBird1.Picture = objDeadDuck

End Sub

Et v&#233;rifie le nom de fichier (il doit &#234;tre exactement le m&#234;me !)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Il te suffit de mettre le chemin complet :

Set objPic = LoadPicture("C:\Image\Butterfly.bmp")

Ou encore :
Set objPic = LoadPicture(App.Path &amp; "\Butterfly.bmp")


Car si tu ne sp&#233;cifie pas de chemin complet, le chemin utilis&#233; sera le
r&#233;pertoire courant (normalement, le dossier de l'application).

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

YaMO_o · Answer

Merci d'avoir r&#233;pondu,

J'ai mis l'image dans C:\  et sa me dit encore que le fichier est introuvable...

voici mon code

Option Explicit

Dim objDeadDuck As PictureBox

Private Sub imgBird1_Click()

Set objDeadDuck = LoadPicture("C:\canardtoucher.jpg")
Set imgBird1.Picture = objDeadDuck

End Sub

J'ai aussi essayer JPG en majuscule et j'ai essayer .bmp encore la sans r&#233;sultat :s je sais pas quoi faire !

valtrase · Answer

Lut,
Si tu doit juste charger l'image de ta pictureBox il te suffit de faire
Set imgBird1.Picture =  LoadPicture("C:\canardtoucher.jpg")

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Image Change En Click

4 réponses

Discussions similaires