Image jpg à insérer

Signaler
Messages postés
12
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
13 septembre 2005
-
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
-
Zgezou

Bonour tout le monde.
je voudrais savoir comment insérer une image jpg avec son chemin dans une variable. Avec quelle controle fait on cela?

Merci d'avance

3 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,
Tu utilise le contrôle CommonDialog, un contrôle Label et un CommandButton.

Private Sub Command1_Click()
Dim strname As String
With CommonDialog1
.InitDir = "C:\Mes documents\Images"
.Filter = "Images(*.jpg)|*.jpg"
.FileName = "Société.jpg"
End With
strname = CommonDialog1.FileName
Label1 = CommonDialog1.InitDir & strname
End Sub

'Le chemin est récupéré dans la variable strName et placé dans le contrôle Label

jpleroisse
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
Salut, si tu utilise VB.Net voici un exemple :

Dim MonImage as system.drawing.bitmap
monimage.loadpicture("c:\toto.jpg")

Là on a charger l'image dans une variable maintenant si tu veux concerver l'image et son chemin dans la même variable il faut pour cela créer ton propre objet :

'Création de la nouvelle structure
Structure FullImage
Dim Img as system.drawing.bitmap
Dim Chemin as string
End Structure

Dim Chem as string = "c:\toto.jpg" 'Chemin du fichier image

'Création d'un objet FullImages
Dim MonImage as new FullImage
'Chargement de l'image
MonImage.Img.loadpicture(Chem)
MonImage.Chemin=Chem


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
bonsoir,

sur le même plan que jpleroisse :

- 1 controle image (image1)
- 1 commondialog (commondialog1)
- 1 textbox (txtphoto)
- 1 commandbutton (command1)

pour le commondialog il faut ajouter le composant a ton projet pour ça :

projet => composants => dans la liste tu choisis "Microsoft common dialog control 6.0"

private sub command1_click()

commondialog1.dialogtitle = "Insérer une photo..." ' barre de titre
commondialog1.filter = "Fichiers images (*.jpg)|*.jpg"
commondialog1.filterindex = 1
commondialog.initdir = app.path ' répertoire de l'appli
commondialog1.filename = "" ' ou ce que tu veux
commondialog1.showopen

txtphoto.text = commondialog1.filename

end sub

private sub txtphoto_change()

dim photo as string

image1.picture = loadpicture(photo)

end sub

et suivant la taille de la photo par rapport au contrôle image
renseigner la propriété stretch a true ou false

salut
doro

ps : c'est du vb6