RACCOURCIR L'AFFICHAGE DU CHEMIN D'UN FICHIER

Signaler
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
Messages postés
33
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
12 mai 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3518-raccourcir-l-affichage-du-chemin-d-un-fichier

Messages postés
33
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
12 mai 2013

Merci beaucoup ca marche impec :)

Juste modifier cette ligne
PathCourt = PathCourt.Substring(0, lngIPos - 1)
en
PathCourt = PathCourt.Substring(0, lngIPos)
pour que l'extension des mes noms de fichier ne soit pas tronquée..;

Encore une fois merci
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
on donne cette reference pour que l'API puisse connaitre la police que nous utilisons




Public Class Form1
Private Declare Function PathCompactPath Lib "shlwapi" Alias "PathCompactPathA" (ByVal hDC As Integer, ByVal lpszPath As String, ByVal dx As Integer) As Integer

Public Function PathCourt(ByVal strPath As String, ByVal lngMaxPixels As Integer, ByVal lngHDC As Integer) As String
Dim lngR, lngIPos As Integer
PathCourt = strPath
lngR = PathCompactPath(lngHDC, PathCourt, lngMaxPixels)
lngIPos = PathCourt.IndexOf(vbNullChar)

If lngIPos > 0 Then
PathCourt = PathCourt.Substring(0, lngIPos - 1)
End If
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oGr As Graphics
oGr = Me.CreateGraphics
Label1.Text = PathCourt("Bonjour, je suis un très très long texte, excusez moi...", Label1.Width, oGr.GetHdc())
oGr.Dispose()
End Sub
End Class
Messages postés
33
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
12 mai 2013

merci renfield.. mais là ça depasse de bcp mes pauvres capacités en programmation ..

en gros dans ma form j'écris quoi?

lblFichier.Caption = PathCourt(Path, lblFichier.Width, Me.hDC)

sachant que me.hDC il ne connait pas ??

Merci
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
pas besoin, .Net cause en pixels
faut pas faire du copier coller, ni "traduire", faut adapter...

hDc => Device Context Handle
identifiant de la surface de rendu, en gros
Afficher les 13 commentaires