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?!!
    0
    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 >.>)
      0
      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 ^^
        0
        4. .nono.
          Tu peux m'envoyer les fichiers à romeo.boxer@free.fr que je nettoie un peu tout ca ?
          0
          1. .nono.
            Mais cand doit être du texte >.>
            0
            1. 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
              0
              1. .nono.
                C'est quoi cand ? Pourquoi tu n'a pas ouvert le fichier ?
                0
                1. .nono.
                  Tu as mis +1. Pourquoi tu as mis +1 ?
                  0
                  1. 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
                    0
                    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)
                      0
                      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)
                        0
                        1. .nono.
                          Bah, tu a mis Image_Click() et image.Picture.
                          Ton image s'écrit avec une majuscule ou sans ?
                          0