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
Eleganter wäre es, wenn der Pfad "irgendwo" zwischen den einzelnen Ordnern gekürzt würde.
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: Dieser Tipp wurde bereits 12.198 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |