Public Class PathLabel
   Inherits Label
 
   Private m_PathText As String
   Private tTip As New ToolTip
 
   Public Property PathText() As String
      Get
         Return m_PathText
      End Get
      Set(ByVal value As String)
         m_PathText = value
         Me.Text = CompactPath(value)
      End Set
   End Property
 
   Private Function CompactPath(ByVal sPath As String) As String
      Dim cPath As String = String.Copy(sPath)
      TextRenderer.MeasureText(cPath, Me.Font, New Drawing.Size(Me.Width, 0), _
      TextFormatFlags.PathEllipsis Or TextFormatFlags.ModifyString)
      Return cPath
   End Function
 
   Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
      If Not Me.Text.Equals(m_PathText) Then
         tTip.SetToolTip(Me, m_PathText)
      Else
         tTip.SetToolTip(Me, "")
      End If
 
      MyBase.OnMouseEnter(e)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control