Bonjour à tous
Dans mon formulaire j’insère une image via un bouton dans une picturebox, jusque la tout fonctionne. Après avoir enregistré les modifs, quand je ré-ouvre le formulaire mon image n'apparait pas.
Voici mon code
Si quelqu'un aurait une piste pour moi
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 Private Sub BpAjouterIMG_Click(sender As Object, e As EventArgs) Handles BpAjouterIMG.Click 'Bouton ajouter image 'Verifie si le champs MARQUE est remplit If Requis() = True Then Return End If '******************** Dim NomFichier As String Dim CheminFichier As String Dim path As String = My.Settings.DBpath & "\Image\" & TboxMARQUE.Text & "\" 'Crée le repertoire avant le champ Marque Dim OpenFileDialogImage As OpenFileDialog = New OpenFileDialog If OpenFileDialogImage.ShowDialog = Windows.Forms.DialogResult.OK Then ImageProduit.ImageLocation = OpenFileDialogImage.FileName NomFichier = OpenFileDialogImage.SafeFileName TboxImage.Text = NomFichier 'safefilename uniquement le nom - filename le chemin complet CheminFichier = OpenFileDialogImage.FileName 'Recupere le chemin du fichier End If If Directory.Exists(path) Then 'vérifie lexistence du répertoire 'Si le répertoire existe il ne fait rien Else 'Si le répertoire n'existe pas, il le créer My.Computer.FileSystem.CreateDirectory(path) 'création du répertoire End If '''Copie le fichier vers DBpath avec le nom du fichier ''NomFichier'' My.Computer.FileSystem.CopyFile(CheminFichier, path & NomFichier, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) End Sub
Merci d'avance
Bonne journée à tous
Partager