Picturebox et Drag and drop

Version imprimable

03/11/2020, 13h27
rezolu

Picturebox et Drag and drop

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:

PictureBox1.ImageLocation

il me donne le chemin complet

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

Merci d'avance

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

Code:

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..

03/11/2020, 17h07
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:

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.

Bonsoir,

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

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.

:D

Citation:

Envoyé par MABROUKI

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

Code:

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