Visaul Basic :insertion image Fermé

Question

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"!!

.nono. · Answer

Bah, tu a mis Image_Click() et image.Picture.
Ton image s'écrit avec une majuscule ou sans ?

sousou.h · Answer

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)

.nono. · Answer

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)

sousou.h · Answer

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

.nono. · Answer

Tu as mis +1. Pourquoi tu as mis +1 ?

.nono. · Answer

C'est quoi cand ? Pourquoi tu n'a pas ouvert le fichier ?

sousou.h · Answer

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

.nono. · Answer

Mais cand doit être du texte >.>

.nono. · Answer

Tu peux m'envoyer les fichiers à romeo.boxer@free.fr que je nettoie un peu tout ca ?

sousou.h · Answer

ok c fait !!

.nono. · Answer

.nono. · Answer

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 ^^

.nono. · Answer

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 >.>)

sousou.h · Answer

merci bpppppppp
mais t as essayé les autres boutons?!!!
cela ne marche pa du tt?!!

Visaul Basic :insertion image

14 réponses

Discussions similaires