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.