| Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 05.05.04 |
 Pfad gekürzt anzeigenDieser Tipp verrät, wie sich eine Pfadangabe gekürzt anzeigen lässt, sollte der Pfad nicht in das vorgesehene Control passen. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 12.201 |
| www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Wann immer man eine Pfadangabe z.B. in einem Labelcontrol oder einer TextBox anzeigen muss, sollte man prüfen, ob der Pfad vollständig dargestellt werden kann. Ist dies nicht der Fall, sollte der Pfad entsprechend gekürzt werden - allerdings nicht so, dass einfach das Ende der Pfadangabe abgeschnitten wird 
Abb.1: Standard: Pfad wird hinten abgeschnitten
Eleganter wäre es, wenn der Pfad "irgendwo" zwischen den einzelnen Ordnern gekürzt würde.
Abb.2: Besser: Kürzung erfolgt zwischen den Ordnernamen
Und so geht's:
Option Explicit ' benötigte API-Deklaration Private Declare Function PathCompactPath Lib "shlwapi" _ Alias "PathCompactPathA" ( _ ByVal hDC As Long, _ ByVal lpszPath As String, _ ByVal dx As Long) As Long
' Pfad optimal kürzen, falls notwendig Public Function CompactPath(oForm As Form, _ ByVal sPath As String, _ oControl As Control) As String Dim nWidth As Long ' Breite der Controls in Pixel nWidth = oControl.Width / Screen.TwipsPerPixelX ' API-Funktion aufrufen, um Pfad ggf. zu kürzen PathCompactPath oForm.hDC, sPath, nWidth CompactPath = sPath End Function
Aufruf der Funktion:
Dim sPath As String sPath = "C:\Programme\Gemeinsame Dateien\Microsoft Shared\DAO\DAO360.DLL" Label1.Caption = CompactPath(Me, sPath, Label1)
Hinweis:
Damit der Code korrekt funktioniert, muss die Font-Eigenschaft des Label-Controls mit der Font-Eigenschaft der Form übereinstimmen!
