Visaul Basic :insertion image
sousou.h
Messages postés
14
Statut
Membre
-
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"!!
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"!!
A voir également:
- Visaul Basic :insertion image
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- File renamer basic - Télécharger - Gestion de fichiers
- Visual basic editor - Télécharger - Langages
- Quick basic - Télécharger - Édition & Programmation
14 réponses
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)
image.Picture = LoadPicture(boite.FileName)
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)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
donc pr ajouter un enregistrement ,je dois le mettre dans un emplacement vide ki est lof(1)/len(cand)+1
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 ^^
Et dans remplir() cand.code = txtcode
Ca colle pas, la propriété Text est toujours String ^^
