SftDirectory 3.5 - ActiveX File/Folder Control

FullTreeView Sample (VB6)

This sample illustrates implementing a multi-column, multi-selection treeview control with drag & drop, context menus, renaming files/folders, reordering columns.

The source code is located at C:\Program Files (x86)\Softelvdm\SftDirectory 3.5\Samples\VB6\FullTreeView\Form1.frm or C:\Program Files\Softelvdm\SftDirectory 3.5\Samples\VB6\FullTreeView\Form1.frm (on 32-bit Windows versions).

Private Sub CloseButton_Click()
    Unload Form1
End Sub

Private Sub SftDirectory1_SelectionFinal()
    If Not SftDirectory1.CurrentFolder Is Nothing Then
        SftDirectory1.CurrentFolder.GetImage
        InfoTipLabel.Caption = SftDirectory1.CurrentFolder.InfoTip
    Else
        Set Picture1.Picture = Nothing
        InfoTipLabel.Caption = ""
    End If
End Sub

Private Sub SftDirectory1_FolderImageReady(ByVal Folder As SftDirectoryLib30.ISftDirectoryFolder, ByVal Picture As stdole.IPictureDisp)
    Set Picture1.Picture = Picture
End Sub