Discussion :

[rezolu]

Bonjour à tous

J'utilise le glisser déposer pour insérer une image dans mon picturebox mais je voudrai récupérer le nom de l'image dans un textbox (mais uniquement le nom pas tout le chemin)

avec

Code :

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

PictureBox1.ImageLocation

il me donne le chemin complet

Est-ce possible car je ne trouve pas la solution.

Merci d'avance

[MABROUKI]

bonjour
Le class static Path (System.IO) est ton ami.
code exemple .vb :

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
 
Imports System.IO
 
Public Class Form1
    Private pathImage As String = "C:\Users\rezolu\Desktop\Images\tulipes.jpg"
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PictureBox1.ImageLocation = pathImage
        Dim nom As String = Path.GetFileName(PictureBox1.ImageLocation)
        Label1.Text = UtilNomImage(PictureBox1)
    End Sub
    Private Function UtilNomImage(pic As PictureBox) As String
        Dim nameBitmap As String = Path.GetFileName(pic.ImageLocation)
        If Path.HasExtension(nameBitmap) Then
            Dim index As Integer = nameBitmap.LastIndexOf(".")
            nameBitmap = nameBitmap.Substring(0, index)
        End If
        Return nameBitmap
    End Function
End Class

bon code..

[rezolu]

bonjour
Le class static Path (System.IO) est ton ami.
code exemple .vb :

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
 
Imports System.IO
 
Public Class Form1
    Private pathImage As String = "C:\Users\rezolu\Desktop\Images\tulipes.jpg"
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PictureBox1.ImageLocation = pathImage
        Dim nom As String = Path.GetFileName(PictureBox1.ImageLocation)
        Label1.Text = UtilNomImage(PictureBox1)
    End Sub
    Private Function UtilNomImage(pic As PictureBox) As String
        Dim nameBitmap As String = Path.GetFileName(pic.ImageLocation)
        If Path.HasExtension(nameBitmap) Then
            Dim index As Integer = nameBitmap.LastIndexOf(".")
            nameBitmap = nameBitmap.Substring(0, index)
        End If
        Return nameBitmap
    End Function
End Class

bon code..

Bonsoir MABROUKI

Merci pour ton aide j'ai réglé mon souci

Bonne soirée

[ProgElecT]

Salut

Je sais que l'on est sur le forum vb.NET, mais le code VBScript suivant doit facilement être adaptable, cette fonction permet d'extraire le nom d'un fichier, il suffit de lui passer le chemin complet ou un dossier plus le nom du fichier.

Code :

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

1
2
3
4
5
function NomFichier(CheminNom)
        NomFichier = Right(CheminNom,instr(1,strreverse(CheminNom),"\")-1)
End Function
 
 Msgbox  NomFichier("c:\\dossier images\LaBelleImage.jpg")

Motif de l'édit
MABROUKI a répondu entre temps, mais comme cela faisait plus de 3heure qu'il n'y avait pas de réponse .... ma fonction, si adaptable en vb.net est peut être plus généraliste.

[Phil Rob]

Bonsoir,

Inspiré par la fonction de ProgElect, j'écrirais celle-ci :

Code :

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

1
2
3
4
 
Function NomFichierDeLaChaine(ByRef LaChaine As String) As String
         Return LaChaine.Substring(LaChaine.LastIndexOf("\") + 1))
End Function

Attention, cela suppose qu'il y ait au moins un slash.