Discussion :

[jpfrc908]

Bonjour à tous

Sachant que access n'aime pas les images , j'ai enregistrer mes images dans un lien
je fait correspondre chaque image d'un profil via l'ID de la BD

Code :

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

1
2
 
PictureBox1.Image.Save(N_TextBox.Text + ".bmp")

pour la lecture

Code :

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

1
2
3
4
5
6
 
If My.Computer.FileSystem.FileExists(N_TextBox.Text & ".bmp") Then
            PictureBox1.ImageLocation = (N_TextBox.Text & ".bmp")
        Else
            PictureBox1.ImageLocation = ("profil.jpg")
        End If

J'utilise par contre un timer sinon au changement de ligne la photo ne change pas, sans doute une mauvais solution, mais cela fonctionne
Ma question
j'aimerais enregistrer et lire depuis un répertoire inclut dans celui le l'appli, mais cela ne fonctionne pas ?
J'ai essayer

Code :

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

1
2
 
PictureBox1.ImageLocation = ("\Profil\" & N_TextBox.Text & ".bmp")

Forcement cela ne fonctionne pas
si quelqu"un pouvait m'éclairer

Merci par avance

[hacker59]

voici une autre solution en image :

voici mes codes :

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
Imports System.IO
 
Public Class Form1
    Dim ListPath As New List(Of String)
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim open As New OpenFileDialog
        open.Multiselect = True
        open.Filter = "Fichier (*.jpg)|*.jpg"
        If (open.ShowDialog = Windows.Forms.DialogResult.OK) Then
            ListBox1.Items.Clear()
            ListPath.AddRange(open.FileNames)
            ListBox1.Items.AddRange(open.SafeFileNames)
        End If
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        PictureBox1.ImageLocation = ListPath(ListBox1.SelectedIndex)
    End Sub
 
    Private Sub ListBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim save As New SaveFileDialog
        save.FileName = "image"
        save.Filter = "Fichier (*.jpg)|*.jpg"
        If (save.ShowDialog = DialogResult.OK) Then
            File.Copy(ListPath(ListBox1.SelectedIndex), save.FileName)
        End If
    End Sub
End Class

a vous de choisir a +

[jpfrc908]

Salut

merci pour votre réponse, et votre code, mais ce n'est pas du tout ce que je cherche a faire
l'image afficher correspond a un textbox "ID" d'une BD access , c'est pour cela que j'ai automatiser via un timer, sinon au changement de ligne du datagripview l'image ne change pas! .
Ce que je cherche a faire c'est de placer le tout dans une répertoire propre a l'appli
normalement dans le code j'ai image.location("c:/....") ou directement l'image image.location("photo.bmp") la dans le lien j'ai un textbox donc je suis un peut perdu lol

Cldt

[Pol63]

on peut mettre des images dans access

[jpfrc908]

Salut Pol63

Oui je sais, mais il parait que ce n'est pas trop recommander (éviter d'engorger la BD), donc je n'ai pas pris le risque

[Pol63]

tu aurais voulu en stocker combien ?

[jpfrc908]

Salut

Honnêtement je ne sais pas, vue que c'est un répertoire pour Mme lol

Sinon ce n'est pas très grave cela fonctionne parfaitement comme cela, c'est juste que je voulais éviter de mettre tout dans le même répertoire