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 :
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.
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
Auriez vous une idée de ce qui ne tourne pas ou une orientation?
Merci a tous.
Partager