Afficher une Image depuis un dossier quelque soit le chemin

**Christian8021** · 18/10/2023, 16h45

Bonjour,

Débutant en VB.net, je me confronte à un problème pour afficher une image correspondant au text d'une textbox. Je m'explique,

1. je souhaite afficher l'image d'un monarque dont le nom se trouve passé dans une textbox.
2.Le chemin d'accès au fichier s'inscrit dans un autre textbox.

Voici le bout de 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
25
26
27
28
29
30
31
32
33
34
35
Imports System.IO
Imports System.Drawing
-----
    Private Sub Chemin_PortraitTextBox_TextChanged(sender As Object, e As EventArgs) Handles Chemin_PortraitTextBox.TextChanged
        Dim exePath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location)
        Dim picturePath As String = Path.Combine(exePath, "Monarques", "Portraits")
 
        If Chemin_PortraitTextBox.Text <> "" Then
            Me.PortraitPictureBox.Image = Image.FromFile(Me.Chemin_PortraitTextBox.Text) 'Affiche l'image suivant le chemin d'accés spécifié dans portraittextbox
        Else
            Me.PortraitPictureBox.Image = Image.FromFile(exePath & "\Portraits\Trone_Vide.jpg") 'S'il n'y a pas de chemin pour l'image alors l'image par defaut est chioisi
        End If
 
    End Sub
 
    Private Sub Chemin_PortraitTextBox_Click(sender As Object, e As EventArgs) Handles Chemin_PortraitTextBox.Click
        Dim exePath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location)
        Dim picturePath As String = Path.Combine(exePath, "Monarques", "Portraits")
 
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = Path.Combine(exePath, "Monarques", "Portraits")
        OpenFileDialog.Filter = "Fichier Image (*.bmp)|*.bmp|Fichier Image (*.Jpg)|*.Jpg"
 
        'choix du fichier...
        If OpenFileDialog.ShowDialog = DialogResult.OK Then
 
            Me.PortraitPictureBox.Image = Image.FromFile(OpenFileDialog.FileName)
        End If
 
        If Chemin_PortraitTextBox.Text <> "" Then
            Me.PortraitPictureBox.Image = Image.FromFile(Me.Chemin_PortraitTextBox.Text) 'Affiche l'image suivant le chemin d'accés spécifié dans portraittextbox
        Else
            Me.PortraitPictureBox.Image = Image.FromFile(exePath & "\Portraits\Trone_Vide.jpg") 'S'il n'y a pas de chemin pour l'image alors l'image par defaut est chioisi
        End If
    End Sub

Le problème est que le fichier choisi dans la boite de dialogue ne s'inscrit pas dans la textbox et de ce fait, l'image ne s'affiche pas.

Auriez vous une idée de ce qui ne tourne pas ou une orientation?

Merci a tous.

**popo** · 18/10/2023, 17h46

A quel moment tu écrit dans ta textbox ?
Il n'y a rien qui le fait dans le code que tu montres.

Par ailleurs, tu un soucis de conception.
L'image que tu affiche ligne 27 est systématiquement écrasé par la ligne 31 ou 33.
Et puisque ta zone de texte reste vide, je dirais que c'est toujours la ligne 33 qui s'exécute.

**umfred** · 18/10/2023, 18h26

Et une modification par programme du Texbox ne va pas déclencher l'évènement TextChanged de celle-ci.

**Christian8021** · 18/10/2023, 18h56

Bonsoir Popo,

merci de ton retour.
J'ai retiré les lignes qui écrasaient les précédentes (je ne m'en était pas aperçu!!!).

Effectivement, lorsque je clic sur la textbox (chemin portrait)cela m'ouvre la boite de dialogue et me propose bien le répertoire en question.
Je sélectionne l'image correspondante. Celle-ci s'affiche correctement, mais le chemin ne s'écrit pas dans la textbox et ne reste pas en mémoire. (elle ne s'enregistre pas dans la base de donnée.)
C'est a partir de cette même textbox qui affiche le chemin de l'image qui lorsqu'il s'affiche fait changer l'image de ma picturebox.

Ci dessous l'ensemble du code de la feuille :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Imports System.IO
Imports System.Drawing
Public Class EnregForm
    Private Sub TableRoisBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TableRoisBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TableRoisBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.RoisDataSet)
    End Sub
 
    Private Sub Enreg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'RoisDataSet.TableRois'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.TableRoisTableAdapter.Fill(Me.RoisDataSet.TableRois)
    End Sub
 
    Private Sub MoveLastButton_Click(sender As Object, e As EventArgs) Handles MoveLastButton.Click
        TableRoisBindingSource.MoveLast()
    End Sub
 
    Private Sub MoveNextButton_Click(sender As Object, e As EventArgs) Handles MoveNextButton.Click
        TableRoisBindingSource.MoveNext()
    End Sub
 
    Private Sub MovePreviousButton_Click(sender As Object, e As EventArgs) Handles MovePreviousButton.Click
 
        TableRoisBindingSource.MovePrevious()
 
    End Sub
 
    Private Sub MoveFirstButton_Click(sender As Object, e As EventArgs) Handles MoveFirstButton.Click
        TableRoisBindingSource.MoveFirst()
 
    End Sub
 
    Private Sub LectureButton_Click(sender As Object, e As EventArgs) Handles LectureButton.Click
        RoisLectureForm.Visible = True
        Me.Close()
    End Sub
 
    Private Sub EnregistrementButton_Click(sender As Object, e As EventArgs) Handles EnregistrementButton.Click
        Me.Validate()
        Me.TableRoisBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.RoisDataSet)
    End Sub
 
    Private Sub QuitterButton_Click(sender As Object, e As EventArgs) Handles QuitterButton.Click
        AccueilRoisForm.Visible = True
        Me.Close()
    End Sub
 
    Private Sub NouveauButton_Click(sender As Object, e As EventArgs) Handles NouveauButton.Click
        TableRoisBindingSource.AddNew()
    End Sub
 
    Private Sub Chemin_PortraitTextBox_TextChanged(sender As Object, e As EventArgs) Handles Chemin_PortraitTextBox.TextChanged
        Dim exePath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location)
        Dim picturePath As String = Path.Combine(exePath, "Monarques", "Portraits")
 
        If Chemin_PortraitTextBox.Text <> "" Then
            Me.PortraitPictureBox.Image = Image.FromFile(Me.Chemin_PortraitTextBox.Text) 'Affiche l'image suivant le chemin d'accés spécifié dans portraittextbox
        Else
            Me.PortraitPictureBox.Image = Image.FromFile(exePath & "\Portraits\Trone_Vide.jpg") 'S'il n'y a pas de chemin pour l'image alors l'image par defaut est chioisi
        End If
    End Sub
 
    Private Sub Chemin_PortraitTextBox_Click(sender As Object, e As EventArgs) Handles Chemin_PortraitTextBox.Click
        Dim exePath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location)
        Dim picturePath As String = Path.Combine(exePath, "Monarques", "Portraits")
 
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = Path.Combine(exePath, "Monarques", "Portraits")
        OpenFileDialog.Filter = "Fichier Image (*.bmp)|*.bmp|Fichier Image (*.Jpg)|*.Jpg"
 
        'choix du fichier...
        If OpenFileDialog.ShowDialog = DialogResult.OK Then
 
            Me.PortraitPictureBox.Image = Image.FromFile(OpenFileDialog.FileName)
        End If
 
    End Sub
End Class

Merci d'avance si tu à un début de réponse.

Cordialement

**popo** · 19/10/2023, 10h17

Tu n'as toujours pas de code qui écrit dans ta zone de texte.

Et puisque OpenFileDialog.FileName contient un chemin qui te permet d'afficher correctement l'image, ce même chemin doit pouvoir être écrit dans ta zone de texte.
Mais si tu n'écrit pas de code pour le faire, tu vas attendre longtemps.

**umfred** · 19/10/2023, 17h00

Pour le dire autrement, il te manque quelque chose du genre Chemin_PortraitTextBox.Text="....." si c'est bien cette Textbox

**popo** · 20/10/2023, 13h41

Envoyé par umfred

...

Merci d'avoir gâcher mes effort pour tenter de le faire réfléchir par lui-même.

**Christian8021** · 22/10/2023, 15h18

Bonjour, Popo et Umfred,

désolé de revenir si tard...

Avant d'avoir lu vos réponses (Umfred a juste confirmé, ce que j'avais trouvé).

Il me manquais deux lignes de code sous OpenfileDialog.

Code :

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

1
2
           selectedfile = OpenFileDialog.FileName
            Chemin_PortraitTextBox.Text = selectedFile

Voila, lors du clic sur le textbox "Chemin_portrait...", le dossier "Portraits" s'affiche. Reste a trouver l'image correspondant au monarque.

Vous remercie vivement tous les deux pour votre aide.

Cordialement.

Afficher une Image depuis un dossier quelque soit le chemin [Débutant]

VB.NET

Discussions similaires

Partager

Partager