Probleme fonction changement imageRésolu

Question

Bonjour,

Voila le probleme, je fait une petite appli et je voudrai pouvoir
changer l'image d'un control image mais comme il faut que je le fasse
quelques dizaines de fois je me suis dit qu'il serait preferable de
faire une fonction mais je ne sais pas comment faire (je voudrai faire
quelque chose qui ressemble a ca : 

public function nom_de_la_fonction(variable)    'la variable etant le nom de mon control

variable.picture = ........................

end function



mais bien entendu le "variable.picture" nest pas correct

donc si quelqu'un pouvait m'aider 

merci

PCPT · Accepted Answer

salut, la solution de Kenji (que je salue au passage) devait donc te mettre sur la piste.... (voir ByVal / ByRef) Option Explicit Private Sub Form_Load() Call ChangePic(Me, "c: mp.jpg") ' bien préciser le nom de la Form appelante si fonction PUBLIC Call ChangePic(Form1.Image1, "c: mp.jpg") End Sub ' PUBLIC si appelée par plusieurs Forms, donc à mettre dans un module Public Sub ChangePic(ByRef Obj As Object, ByVal sPath As String) ' chemin (pour éviter un "C:\mon_image.jpg" sous W9x" sPath = Replace (sPath, "\", "") ' teste et accepte multi-type BYREF If (TypeOf Obj Is PictureBox) Or (TypeOf Obj Is Image) Or (TypeOf Obj Is Form) Then Obj.Picture = LoadPicture(sPath) Else Err.Raise vbObject, , "Object invalide" End If End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

cs_Jack · Answer

Salut
Je n'ai pas tout compris ...
Il faudrait nous dire de quel type est ton "control image", moi, &#231;a ne me dit rien.
Si, par exemple, ton objet est une PictureBox :
maPictureBox.Picture = LoadPicture("C:\mon r&#233;pertoire\mon fichier image.BMP")

Si &#231;a n'a pas r&#233;pondu &#224; ta "question", repose la en pr&#233;cisant bien :
- Vers quel composant/objet tu veux modifier ton image
- O&#249; se trouvent tes images (fichier, collection, ImageList ...)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

PCPT · Answer

salut,

pr&#233;cise &#233;galement le langage stp!!

Utilisateur anonyme · Answer

Salut,

En VB4-5-6:
Public Sub ChangePic(ByVal Pic As PictureBox)
  Pic.Picture = ........................
End Sub

Bien s&#251;r, comme l'a dis Jack et AFCK, faut pr&#233;siser d'aventage ce que tu veut faire

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cameleon044 · Answer

Bonjour,
excusez moi je n'ai pas &#233;t&#233; clair dutout donc je reprend. Je suis avec vb6 et je veut changer l'image d'un objet 'image' (la meme chose qu'un picturebox) je peut donc faire 
MonImage.Picture=LoadPicture("C:\mon r&#233;pertoire\mon fichier image.BMP") ce qui fonctionne tres bien mais le probleme est qu'il faut que je fasse cette manipulation plusieurs fois et je me disai qu'il serait preferable d'utiliser une fonction telle que celle-ci

public function nom_de_la_fonction(variable)   'la variable de mon image (ou picturebox)
variable.picture = LoadPicture("C:\mon r&#233;pertoire\mon fichier image.BMP")
end function
mais le probleme est que vb prend n'accepte pas le "variable.picture" et je voulais savoir s il existait un moyen de le remplacer par exemple tel que 
... with variable
            .picture=......
    end with

merci de vos reponse et j'espere avoir ete plus clair
merci

cameleon044 · Answer

Merci beaucoup pour toutes ces reponses 

et bonne prog.

Probleme fonction changement image

6 réponses

Discussions similaires