Visaul Basic :insertion image

sousou.h -  
salam!!
dans la procédure du clik sur l'image,g tapé ce code mais il fonctionne pa:l image s'affiche pa:
Private Sub Image_Click()
boite.DialogTitle = "Choisir une image !!"
boite.InitDir = App.Path
boite.Filter = "image(*.jpg)|*.jpg|image (*.gif)|*.gif|tous les fichiers(*.*)|*.*|"
boite.ShowOpen
image.Picture = LoadPicture(boite.FileName)
End sub

lorsk j exécute,le msg suivant s affiche"l objet ne gère pa cette propriété ou cette méthode"!!
--
JE SUIS REINE DE MOI MEME !!!!!!!!!!
Configuration: Windows XP
Internet Explorer 6.0

14 réponses

  1. sousou.h Auteur
    merci bpppppppp
    mais t as essayé les autres boutons?!!!
    cela ne marche pa du tt?!!
    1. .nono.
      Suffit juste de mettre Val(), mais ton erreur est car tu enregistre un truc trop gros (dès qu'on met l'adresse de l'image ça met ce bug >.>)
      1. .nono.
        Eh, tu vois, tu as mis dans ton Type candidat code As Integer
        Et dans remplir() cand.code = txtcode
        Ca colle pas, la propriété Text est toujours String ^^
        4. .nono.
          Tu peux m'envoyer les fichiers à romeo.boxer@free.fr que je nettoie un peu tout ca ?
          2. sousou.h Auteur
            lof(1)/len(cand) désigne le nbre d enregistrements existants,
            donc pr ajouter un enregistrement ,je dois le mettre dans un emplacement vide ki est lof(1)/len(cand)+1
            3. sousou.h Auteur
              c réglé!! merci bpppppppppp
              mais y a un autre pb :( lorsque je clik sur bouton ajouter msg d erreur: "longeur d'enregistrement incorrect" ,voilà le code :
              Private Sub cmdajouter_Click()
              Dim pos As Integer
              pos = LOF(1) / Len(cand) + 1
              Call remplir
              Put #1, pos, cand
              End Sub

              POUR la procédure remplir c la suivante:
              sub remplir
              cand.code = txtcode.Text
              cand.nom = txtnom.Text
              cand.photo = boite.FileName
              end sub
              1. .nono.
                Ah! Renomme ton machin. Il faut pas que ça soit image. Renomme le par Image1 par exemple (ton objet et ton événement et ton Image1.Picture)
                1. sousou.h Auteur
                  g l'ai modifié mais j crois pa ke c ça le pb, car kand le msg erreur s affiche,y a une ligne jaune sur :
                  image.Picture = LoadPicture(boite.FileName)
                  1. .nono.
                    Bah, tu a mis Image_Click() et image.Picture.
                    Ton image s'écrit avec une majuscule ou sans ?