Library code snippets

Shorten a Source File

By Nick Avery, published on 14 Jul 2001
Nick Avery I am as a web developer for a small company, working for a small company. I work on banking websites and verious related projects.

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

Related tags

visual basic

Comments

  1. Developer Fusion Bot
    01 Jan 1999 at 00:00

    This thread is for discussions of Shorten a Source File.

Leave a comment

Sign in or Join us (it's free).

AddThis

Related articles

Ask a question

Related discussion

Languages

Web Development

Frameworks & Architecture

Other major sections