|
Jak skrócić wyświetlanie długiej ścieżki dostępu? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 03 październik 2005 |
Autor: Heretic
Jak skrocic sciezke i nazwe pliku gdy jest zbyt dluga np.
C:\Moje Dokumenty\Dokumenty MSWord\Sprawozdania\Rok1997\Kwartal3.doc
Gdy bedzie zbyt dluga i nie zmiesci sie w okienku to bedzie to wygladac
nieciekawie (np. nie bedzie widac nazwy pliku, ktora jest
najwazniejsza). Mozna temu zaradzic tak:
Kontrolce Label (niech nazywa sie DispDir), ktora wyswietla sciezke
nadajemy wartosc:
AutoSize = True
Nastepnie wpisujemy w procedure, ktora zmienia zawartosc Label-a:
Zamiast
DispDir.Caption = Path
cos takiego:
' Najpierw chowamy label
DispDir.Visible = False
' Nadajemy mu zawartosc
DispDir.Caption =
dirList.Path
Cap = DispDir.Caption
' Jesli sciezka zbyt dluga - tniemy ja
If DispDir.Width > MaxLength Then ' MaxLength - dozwolona dlugosc Labela
w Twip-ach
For i = 1 To Len(Cap)
If Mid(Cap, i, 1) = "\" And i > 3 Then
A = Left(Cap, 3) + " ..." + Right(Cap, Len(Cap) - i + 1)
DispDir.Caption = A
If DispDir.Width <= MaxLength Then
DispDir.Visible = True
Exit For
End If
End If
Next i
Else
' Jesli sciezka nie przekroczyla dozwolonej dlugosci - pokazujemy ja
DispDir.Visible = True
End If
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
