afficher une image grace à une combobox

Question

salut &#224; tous,

voil&#224; mon probleme.

J'ai une form avec un combobox ou on peux selectioner pomme, orange, faise

puis sur cette m&#234;me form j'ai un cadre image.

Donc moi ce que je voudrais faire c'est en selectionner par exemple pomme dans combobox qu'une image pomme d'affiche.

Voil&#224; ce que j'ai fais. je pr&#233;cise que je ne sais pas comment m'y prendre pour faire ce genre de truc.



Private Sub Form_Load()

choix_image.AddIterm ("pomme")

choix_image.AddIterm ("fraise")

choix_image.AddIterm ("orange")

choix_image.AddIterm ("mangue")


End Sub



Private Sub choix_image_Load()

If choix_image = "pomme" Then

       cadre_ image = VQT_Path_Image

EndIf


End Sub



mais bien sur &#231;a ne fonctionne pas pouriez-vous m'aider ??

cs_frop01 · Answer

[mailto:cyberscorp2004@msn.com MSN]  [mailto:frop01@yahoo.fr YAHOO] 

Membre du club CodeS-SourceS

cs_frop01 · Answer

salut,



tout d'abord , c'est choix_image.AddItem et non pas AddIterm

ensuite il faut utiliser l'&#233;v&#233;nement DBLClick et non pas Load pour choix_image.



@+

http://www.codes-sources.com

elpaulo · Answer

en plus, je crois que c'est
  if choix_image.value = "pomme" then...

ou tu fais avec un select case vu que tu as plusieurs choix

et tu peux aussi faire un bouton de validation a cot&#233; de ta combobox.


Ca donnerait


PrivateSub Command1_Click()


  Select case choix_image.value


    case "

AlfaDemeter · Answer

voila ce que j'ai fais, cela me met "type incompatible"



Private Sub choix_image_click()

    If choix_image = "pomme" Then

        MsgBox ("gagner")

        cadre_image = path_image

        path_image =
"C:\DATA\Documents and Settings\jangele\Mes
documents\gerald\AOTT_VQT\Images"

        Else

        MsgBox ("perdu")

    End If

End Sub



Private Sub Form_Load()

    

    choix_image.AddItem ("pomme")

    choix_image.AddItem ("fraise")

    choix_image.AddItem ("orange")

    choix_image.AddItem ("mangue")

    

End Sub

elpaulo · Answer

alors la, je crois que le probleme vient de l'ordre de tes instructions.


En effet, tu essaye d'envoyer ton image dans le cadre et apres tu charge le chemin vers l'image. Essaye d'inverser les deux car dans ton cas, le chemin n'est pas encore dans ta variable path_image lorsque tu veux lancer ton image dans ton cadre.

AlfaDemeter · Answer

Donc voil&#224; j'ai fais ce que tu m'a dit mais il me met un code erreur qui est : "erreur d'execucion 424 un objet est requis.



voila mon code source : 





Private Sub choix_image_click()

    If choix_image = "pomme" Then

        MsgBox ("gagner")

        path_image =
"C:\DATA\Documents and Settings\jangele\Mes
documents\gerald\AOTT_VQT\Images"

        cadre_image.Picture = path_image

        Else

        MsgBox ("perdu")

    End If

End Sub



Private Sub Form_Load()

    

    choix_image.AddItem ("pomme")

    choix_image.AddItem ("fraise")

    choix_image.AddItem ("orange")

    choix_image.AddItem ("mangue")

    

End Sub

elpaulo · Answer

j'ai fait quelques essais et l'autre probleme qui se pose, c'est que le chemin vers l'image doit etre plac&#233;e dans une proprit&#233;t&#233; de l'image, mais je ne sais pas laquelle.

J'ai essay&#233; de r&#233;cup&#233;rer le chemin d'une image dans une variable et de l'afficher dans un label, mais ca affiche des choses &#233;tranges, genre des chiffres a n'en plus finir, ou autres

AlfaDemeter · Answer

bon voila j'ai fais des testes moi aussi de mon c&#244;t&#233; et j'ai trouver gr&#224;ce &#224; vous.

Je donne le code source qui fonctionne alors : 







Private Sub choix_image_click()

    If choix_image = "pomme" Then

        MsgBox ("gagner")

        path_image =
"C:\DATA\Documents and Settings\jangele\Mes
documents\gerald\AOTT_VQT\Images\ECE_1E1.JPG"

        cadre_image.Picture = LoadPicture(path_image)

        MsgBox path_image

        Else

        MsgBox ("perdu")

    End If

End Sub



Private Sub Form_Load()



    choix_image.AddItem ("pomme")

    choix_image.AddItem ("fraise")

    choix_image.AddItem ("orange")

    choix_image.AddItem ("mangue")

    

End Sub



Voil&#224; et merci pour l'aide que vous m'avez apport&#233;.

Afficher une image grace à une combobox

8 réponses

Discussions similaires