Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
' Show tooltips for items whether the value is fully visible or not
Me.ultraListView1.ItemSettings.TipStyle = ItemTipStyle.ShowAlways
Me.ultraListView1.ViewSettingsDetails.SubItemTipStyle = SubItemTipStyle.ShowIfNeeded
Private Sub ultraListView1_ToolTipDisplaying(ByVal sender As Object, ByVal e As ToolTipDisplayingEventArgs) Handles lvwFiles.ToolTipDisplaying
' Override the default tooltip behavior for folder items,
' so we can display a summary of the contents of the folder
' when the end user hovers over the item.
If (e.IsToolTipForSubItem) Then Return
Dim item As UltraListViewItem = e.Item
Dim directoryInfo As directoryInfo = Nothing
If item.Tag.GetType() Is GetType(directoryInfo) Then directoryInfo = CType(item.Tag, directoryInfo)
If (Not directoryInfo Is Nothing) Then
Dim sb As StringBuilder = New StringBuilder()
Dim directories As directoryInfo() = directoryInfo.GetDirectories()
Dim files As FileInfo() = directoryInfo.GetFiles()
Dim limiter As Integer = 0
Dim i As Integer
If (directories.Length = 0 AndAlso files.Length = 0) Then
sb.Append("Folder is empty")
ElseIf (directories.Length > 0) Then
sb.Append(directoryInfo.Name)
sb.Append(Environment.NewLine)
sb.Append("Folders: ")
sb.Append(Environment.NewLine)
limiter = Math.Min(5, directories.Length - 1)
For i = 0 To limiter
sb.Append(directories(i).Name)
If (i < limiter) Then sb.Append(", ")
Next
If (limiter < (directories.Length - 1)) Then sb.Append("...")
ElseIf (files.Length > 0) Then
sb.Append(directoryInfo.Name)
sb.Append(Environment.NewLine)
sb.Append("Files: ")
sb.Append(Environment.NewLine)
limiter = Math.Min(5, files.Length - 1)
For i = 0 To limiter
sb.Append(files(i).Name)
If (i < limiter) Then sb.Append(", ")
Next
If (limiter < (files.Length - 1)) Then
sb.Append("...")
End If
End If
e.ToolTipText = sb.ToString()
End If
End Sub