Library code snippets
Shorten a Source File
By Nick Avery, published on 14 Jul 2001
Shorten a Sorce File
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
I am as a web developer for a small company, working for a small company. I work on banking websites and verious related projects.
Related articles
Related discussion
-
VB6, SQL 2005 & DMO
by elajaunie3 (1 replies)
-
sending sms from pc
by sriraj20074 (0 replies)
-
Automating Excel from VB6.0
by epurdy (0 replies)
-
VB6 system conversion using VBA to Word 2007
by b.macgregor@vodamail.co.za (0 replies)
-
video not working with visual basic
by Jupiter 2 (9 replies)
Related podcasts
-
Christian Beauclair
14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...
This thread is for discussions of Shorten a Source File.