Visaul Basic :insertion image

sousou.h Messages postés 14 Statut Membre -  
sousou.h Messages postés 14 Statut Membre -
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.
    .nono. Messages postés 90 Statut Membre 17
     
    Bah, tu a mis Image_Click() et image.Picture.
    Ton image s'écrit avec une majuscule ou sans ?
    0
  2. sousou.h Messages postés 14 Statut Membre
     
    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
  3. .nono. Messages postés 90 Statut Membre 17
     
    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
  4. sousou.h Messages postés 14 Statut Membre
     
    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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. .nono. Messages postés 90 Statut Membre 17
     
    Tu as mis +1. Pourquoi tu as mis +1 ?
    0
  7. .nono. Messages postés 90 Statut Membre 17
     
    C'est quoi cand ? Pourquoi tu n'a pas ouvert le fichier ?
    0
  8. sousou.h Messages postés 14 Statut Membre
     
    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
  9. .nono. Messages postés 90 Statut Membre 17
     
    Mais cand doit être du texte >.>
    0
  10. .nono. Messages postés 90 Statut Membre 17
     
    Tu peux m'envoyer les fichiers à romeo.boxer@free.fr que je nettoie un peu tout ca ?
    0
  11. sousou.h Messages postés 14 Statut Membre
     
    ok c fait !!
    0
  13. .nono. Messages postés 90 Statut Membre 17
     
    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
  14. .nono. Messages postés 90 Statut Membre 17
     
    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
  15. sousou.h Messages postés 14 Statut Membre
     
    merci bpppppppp
    mais t as essayé les autres boutons?!!!
    cela ne marche pa du tt?!!
    0