This makes a lable named labPicture shorten its file locations useing "...".
Private Sub labPicture_Change()
Dim Xstr As String
labPicture.AutoSize = True
If labPicture.Width >= 4050 Then
Xstr = Right(labPicture.Caption, Len(labPicture.Caption) - 3)
If Left(Xstr, 3) = "..." Then
Xstr = Right(Xstr, Len(Xstr) - 4)
End If
Do Until Left(Xstr, 1) = ""
Xstr = Right(Xstr, Len(Xstr) - 1)
Loop
labPicture.Caption = Left(labPicture.Caption, 3) & "..." & Xstr
End If
ListView1.Picture = LoadPicture(labPicture.Tag)
End Sub
Comments