Discussion :

[Jean-Luc80]

Bonjour
Je voudrais récupérer certaines données exif d'image jpg et les afficher dans des textbox
J'ai cherché sur le net mais je n'ai rien trouvé d'interressant
Pouvez-vous m'aider
merci

[Pol63]

étonnant
moi quand je tape exif vb.net sur google je vois plein de solutions

[Jean-Luc80]

Bonjour
Bien sûr que j'ai vu plein de solutions aussi
mais soit c'est pas la bonne version soit ça ne correspond pas à ce que je cherche

[rv26t]

Bonjour,

sur ce message de tomlev, tu as un lien sur une description qui semble détaillée. (et récente)

[Jean-Luc80]

Bonjour
Effectivement je n'avais pas fait attention à ce message
Donc je récupère bien les données Exif voulues grâce à ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub lstvItem_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstvItem.SelectedIndexChanged
        Dim frm As New ZoomAffiche
        Try
            Dim s As String = lstvItem.SelectedItems(0).SubItems(1).Text
 
            If File.Exists(s) = True Then
                frm.BackgroundImage = Image.FromFile(s)
                frm.Width = frm.BackgroundImage.Width
                frm.Height = frm.BackgroundImage.Height + 20
                frm.TopMost = True
                Dim PropTitre As PropertyItem = frm.BackgroundImage.GetPropertyItem(&H10E)
                Dim Titre As String = Encoding.Default.GetString(PropTitre.Value, 0, PropTitre.Len)
                Dim PropDuree As PropertyItem = frm.BackgroundImage.GetPropertyItem(&H8298)
                Dim Duree As String = Encoding.Default.GetString(PropDuree.Value, 0, PropDuree.Len)
                Dim PropVideo As PropertyItem = frm.BackgroundImage.GetPropertyItem(&H13B)
                Dim Video As String = Encoding.Default.GetString(PropVideo.Value, 0, PropVideo.Len)
                Dim TxtTitre As String
                TxtTitre = Titre & " (" & Duree & ")" & "  " & Video
                frm.Text = TxtTitre
                frm.Show()
            End If
        Catch ex As Exception
        End Try
    End Sub

Par contre je n'arrive pas à afficher TxtTitre dans la barre de fenêtre
Il ne m'affiche que le titre et pas la suite
Et si je mets par exemple duree en premier il ne m'affiche que Duree
Même chose pour vidéo
Aurai-je fait une erreur dans la concaténation de ma chîne au niveau de TxtTitre ?
Merci de votre aide